aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/tutorial.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/tutorial.el')
-rw-r--r--lisp/tutorial.el8
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)