Mercurial > emacs
changeset 78136:35849fc29fa6
(tutorial--find-changed-keys): Handle C-x specially like ESC.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 15 Jul 2007 18:40:09 +0000 |
| parents | e263911ac582 |
| children | c56397e1e004 |
| files | lisp/tutorial.el |
| diffstat | 1 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/tutorial.el Sun Jul 15 18:16:21 2007 +0000 +++ b/lisp/tutorial.el Sun Jul 15 18:40:09 2007 +0000 @@ -431,10 +431,16 @@ (def-fun (nth 0 kdf)) (def-fun-txt (format "%s" def-fun)) (rem-fun (command-remapping def-fun)) + ;; Handle prefix definitions specially + ;; so that a mode that rebinds some subcommands + ;; won't make it appear that the whole prefix is gone. (key-fun (if (eq def-fun 'ESC-prefix) (lookup-key global-map [27]) - (key-binding key))) + (if (eq def-fun 'Control-X-prefix) + (lookup-key global-map [24]) + (key-binding key)))) (where (where-is-internal (if rem-fun rem-fun def-fun)))) + (if where (progn (setq where (key-description (car where)))