Mercurial > emacs
changeset 75162:4ad75aa56c40
(tutorial--display-changes): Show M-x sequence if no
keybinding is found.
(tutorial--find-changed-keys): Never treat null keybinding as a
remapping.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Tue, 09 Jan 2007 13:09:44 +0000 |
| parents | 65588c449c5c |
| children | 492fbd51cb1d |
| files | lisp/tutorial.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/tutorial.el Tue Jan 09 13:09:02 2007 +0000 +++ b/lisp/tutorial.el Tue Jan 09 13:09:44 2007 +0000 @@ -446,7 +446,8 @@ (cond ((eq key-fun def-fun) ;; No rebinding, return t t) - ((eq key-fun (command-remapping def-fun)) + ((and key-fun + (eq key-fun (command-remapping def-fun))) ;; Just a remapping, return t t) ;; cua-mode specials: @@ -571,6 +572,8 @@ (where (nth 3 ck)) s1 s2 help-string) (unless (string= where "Same key") + (when (string= where "") + (setq where (format "M-x %s" def-fun))) (setq tutorial--point-after-chkeys (point-marker) s1 (get-lang-string tutorial--lang 'tut-chgdkey) s2 (get-lang-string tutorial--lang 'tut-chgdkey2)