mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(tutorial--find-changed-keys): Handle C-x specially like ESC.

Browse Source
This commit is contained in:
Richard M. Stallman 2007-07-15 18:40:19 +00:00
parent f9b9868496
commit 0e01e4afb9
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2007-07-15 Richard Stallman <rms@gnu.org>
* tutorial.el (tutorial--find-changed-keys):
Handle C-x specially like ESC.
2007-07-15 Roland McGrath <roland@frob.com>
* add-log.el (add-change-log-entry): Check add-log-full-name

8
lisp/tutorial.el
View File

@ -431,10 +431,16 @@ where
(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)))