Mercurial > hg > xemacs-beta
diff lisp/obsolete.el @ 5208:9fa29ec759e3
Implement suggest-key-bindings in terms of teach-extended-commands-p
2010-04-29 Aidan Kehoe <kehoea@parhasard.net>
* cmdloop.el (suggest-key-bindings):
Make this available, documenting that it's for GNU Emacs
compatibility.
Implement it in terms of teach-extended-commands-p and
teach-extended-commands-timeout, using Ben's
set-symbol-value-handler functionality.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Thu, 29 Apr 2010 16:16:47 +0100 |
| parents | dc94bf0afa37 |
| children | 7d06a8bf47d2 |
line wrap: on
line diff
--- a/lisp/obsolete.el Thu Apr 29 15:49:21 2010 +0100 +++ b/lisp/obsolete.el Thu Apr 29 16:16:47 2010 +0100 @@ -273,6 +273,8 @@ parent) (make-compatible 'set-keymap-parent 'set-keymap-parents) +(make-compatible-variable 'suggest-key-bindings 'teach-extended-commands-p) + ;; too bad there's not a way to check for aref, assq, and nconc ;; being called on the values of functions known to return keymaps, ;; or known to return vectors of events instead of strings...