procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make unused `Buffer-menu-sort' alias obsolete

Browse source 
* lisp/buff-menu.el (Buffer-menu-sort): Make unused alias obsolete.
* test/lisp/progmodes/elisp-mode-tests.el
(find-defs-defalias-defun-el): Adjust test to use an alias that's
not obsolete.
This commit is contained in:
Lars Ingebrigtsen 2021-02-17 20:14:22 +01:00
parent da78d31c6e
commit a5293c8dd3
2 changed files with 13 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/buff-menu.el
View file

@ -338,7 +338,8 @@ negative ARG, display other buffers as well."
"Showing all non-internal buffers."))
(revert-buffer))
(defalias 'Buffer-menu-sort 'tabulated-list-sort)
(define-obsolete-function-alias 'Buffer-menu-sort 'tabulated-list-sort
"28.1")
(defun Buffer-menu-buffer (&optional error-if-non-existent-p)

19
test/lisp/progmodes/elisp-mode-tests.el
View file

@ -398,18 +398,21 @@ to (xref-elisp-test-descr-to-target xref)."
"(cl-defstruct (xref-elisp-location")
))
(require 'em-xtra)
(require 'find-dired)
(xref-elisp-deftest find-defs-defalias-defun-el
(elisp--xref-find-definitions 'Buffer-menu-sort)
(elisp--xref-find-definitions 'eshell/ff)
(list
(xref-make "(defalias Buffer-menu-sort)"
(xref-make "(defalias eshell/ff)"
(xref-make-elisp-location
'Buffer-menu-sort 'defalias
(expand-file-name "../../../lisp/buff-menu.elc" emacs-test-dir)))
(xref-make "(defun tabulated-list-sort)"
'eshell/ff 'defalias
(expand-file-name "../../../lisp/eshell/em-xtra.elc"
emacs-test-dir)))
(xref-make "(defun find-name-dired)"
(xref-make-elisp-location
'tabulated-list-sort nil
(expand-file-name "../../../lisp/emacs-lisp/tabulated-list.el" emacs-test-dir)))
))
'find-name-dired nil
(expand-file-name "../../../lisp/find-dired.el"
emacs-test-dir)))))
;; FIXME: defconst