Mercurial > emacs
comparison lisp/tutorial.el @ 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 | 88eb7407b1e4 |
| children | 9355f9b7bbff 38a46faaf8c1 |
comparison
equal
deleted
inserted
replaced
| 78135:e263911ac582 | 78136:35849fc29fa6 |
|---|---|
| 429 ;; described in the doc string. | 429 ;; described in the doc string. |
| 430 (let* ((key (nth 1 kdf)) | 430 (let* ((key (nth 1 kdf)) |
| 431 (def-fun (nth 0 kdf)) | 431 (def-fun (nth 0 kdf)) |
| 432 (def-fun-txt (format "%s" def-fun)) | 432 (def-fun-txt (format "%s" def-fun)) |
| 433 (rem-fun (command-remapping def-fun)) | 433 (rem-fun (command-remapping def-fun)) |
| 434 ;; Handle prefix definitions specially | |
| 435 ;; so that a mode that rebinds some subcommands | |
| 436 ;; won't make it appear that the whole prefix is gone. | |
| 434 (key-fun (if (eq def-fun 'ESC-prefix) | 437 (key-fun (if (eq def-fun 'ESC-prefix) |
| 435 (lookup-key global-map [27]) | 438 (lookup-key global-map [27]) |
| 436 (key-binding key))) | 439 (if (eq def-fun 'Control-X-prefix) |
| 440 (lookup-key global-map [24]) | |
| 441 (key-binding key)))) | |
| 437 (where (where-is-internal (if rem-fun rem-fun def-fun)))) | 442 (where (where-is-internal (if rem-fun rem-fun def-fun)))) |
| 443 | |
| 438 (if where | 444 (if where |
| 439 (progn | 445 (progn |
| 440 (setq where (key-description (car where))) | 446 (setq where (key-description (car where))) |
| 441 (when (and (< 10 (length where)) | 447 (when (and (< 10 (length where)) |
| 442 (string= (substring where 0 (length "<menu-bar>")) | 448 (string= (substring where 0 (length "<menu-bar>")) |