mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Fix rst-mode deprecated keybindings

Browse source
This commit is contained in:
Daniel Colascione 2014-01-13 15:50:20 -08:00
parent 1b49bd5d72
commit c176054fe1
2 changed files with 28 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

33
lisp/textmodes/rst.el
View file

@ -611,17 +611,28 @@ KEYMAP, KEY, and DEF are as in `define-key'. DEPRECATED key
definitions should be in vector notation. These are defined as
well but give an additional message."
(define-key keymap key def)
(dolist (dep-key deprecated)
(define-key keymap dep-key
`(lambda ()
,(format "Deprecated binding for %s, use \\[%s] instead." def def)
(interactive)
(call-interactively ',def)
(message "[Deprecated use of key %s; use key %s instead]"
(key-description (this-command-keys))
(key-description ,key))))))
;; Key bindings.
(when deprecated
(let* ((command-name (symbol-name def))
(forwarder-function-name
(if (string-match "^rst-\\(.*\\)$" command-name)
(concat "rst-deprecated-"
(match-string 1 command-name))
(error "not an RST command: %s" command-name)))
(forwarder-function (intern forwarder-function-name)))
(unless (fboundp forwarder-function)
(defalias forwarder-function
(lexical-let ((key key) (def def))
(lambda ()
(interactive)
(call-interactively def)
(message "[Deprecated use of key %s; use key %s instead]"
(key-description (this-command-keys))
(key-description key))))
(format "Deprecated binding for %s, use \\[%s] instead."
def def)))
(dolist (dep-key deprecated)
(define-key keymap dep-key forwarder-function)))))
;; Key bindings.
(defvar rst-mode-map
(let ((map (make-sparse-keymap)))