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

Display new keybinding in obsolete command warning

Browse source 
* lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning):
* lisp/simple.el (command-execute): When warning about an obsolete
command, display the keybinding for the new command.
This commit is contained in:
Stefan Kangas 2022-08-19 19:00:24 +02:00
parent 021ae515f9
commit 935e4da0e1
2 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/macroexp.el
View file

@ -187,13 +187,15 @@ It should normally be a symbol with position and it defaults to FORM."
msg))
form)))
(defun macroexp--obsolete-warning (fun obsolescence-data type)
(defun macroexp--obsolete-warning (fun obsolescence-data type &optional key)
(let ((instead (car obsolescence-data))
(asof (nth 2 obsolescence-data)))
(format-message
"`%s' is an obsolete %s%s%s" fun type
(if asof (concat " (as of " asof ")") "")
(cond ((stringp instead) (concat "; " (substitute-command-keys instead)))
((and instead key)
(format-message "; use `%s' (%s) instead." instead key))
(instead (format-message "; use `%s' instead." instead))
(t ".")))))