mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-05 19:31:02 -08:00
Code Issues Projects Releases Wiki Activity

Make the M-x obsoletion check more robust

Browse source 
* lisp/simple.el (read-extended-command): Make the obsoletion
check more robust.
This commit is contained in:
Lars Ingebrigtsen 2021-05-14 18:50:24 +02:00
parent 780b1db126
commit efc24f1e0b
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/simple.el
View file

@ -2020,8 +2020,13 @@ This function uses the `read-extended-command-predicate' user option."
;; Has a current-name.
(functionp (car obsolete))
;; when >= emacs-major-version
(>= (car (version-to-list (caddr obsolete)))
emacs-major-version))))))
(condition-case nil
(>= (car (version-to-list
(caddr obsolete)))
emacs-major-version)
;; If the obsoletion version isn't
;; valid, include the command.
(error t)))))))
pred)))
(complete-with-action action obarray string pred))))
(lambda (sym)