diff options
| author | Miles Bader | 2007-07-24 01:25:28 +0000 |
|---|---|---|
| committer | Miles Bader | 2007-07-24 01:25:28 +0000 |
| commit | 492d9f3e3ccd2b640958e840caa451e9e04e86db (patch) | |
| tree | c87779daf272535b621216ef05179fa48102e57e /lisp/tutorial.el | |
| parent | 7eb1e4534e88a32fe5e549e630fdabf3e062be2b (diff) | |
| parent | 1e8995158740b15936887264a3d7183beb5c51d9 (diff) | |
| download | emacs-492d9f3e3ccd2b640958e840caa451e9e04e86db.tar.gz emacs-492d9f3e3ccd2b640958e840caa451e9e04e86db.zip | |
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 814-823)
- Update from CVS
- Merge from emacs--rel--22
* emacs--rel--22 (patch 59-69)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 237-238)
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--multi-tty--0--patch-26
Diffstat (limited to 'lisp/tutorial.el')
| -rw-r--r-- | lisp/tutorial.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/tutorial.el b/lisp/tutorial.el index 7c97579ab6e..6a52d751c5b 100644 --- a/lisp/tutorial.el +++ b/lisp/tutorial.el | |||
| @@ -431,11 +431,17 @@ where | |||
| 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))) |
| 438 | cwhere) | 443 | cwhere) |
| 444 | |||
| 439 | (if where | 445 | (if where |
| 440 | (progn | 446 | (progn |
| 441 | (setq cwhere (car where) | 447 | (setq cwhere (car where) |