diff options
| author | Karoly Lorentey | 2007-01-13 22:59:28 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2007-01-13 22:59:28 +0000 |
| commit | 38db5c8d522cc1faa8190e77dbc932a5560e6aad (patch) | |
| tree | efe4c81d7210843bb208282461ebce12c5bd3daf /lisp/tutorial.el | |
| parent | 191ae1cf7cd2571277635b3b8e488e773ca5c9b9 (diff) | |
| parent | b4ec8cb4e66f94547e8215a1c1eb6cda3b83ca63 (diff) | |
| download | emacs-38db5c8d522cc1faa8190e77dbc932a5560e6aad.tar.gz emacs-38db5c8d522cc1faa8190e77dbc932a5560e6aad.zip | |
Merged from emacs@sv.gnu.org
Patches applied:
* emacs@sv.gnu.org/emacs--devo--0--patch-592
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-593
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-594
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-595
Merge from gnus--rel--5.10
* emacs@sv.gnu.org/emacs--devo--0--patch-596
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-597
Update from CVS
* emacs@sv.gnu.org/emacs--devo--0--patch-598
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-186
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-187
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-188
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-189
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-190
Update from CVS
* emacs@sv.gnu.org/gnus--rel--5.10--patch-191
Update from CVS
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-593
Diffstat (limited to 'lisp/tutorial.el')
| -rw-r--r-- | lisp/tutorial.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/tutorial.el b/lisp/tutorial.el index cf9a391e5a6..53f41c95646 100644 --- a/lisp/tutorial.el +++ b/lisp/tutorial.el | |||
| @@ -446,7 +446,8 @@ where | |||
| 446 | (cond ((eq key-fun def-fun) | 446 | (cond ((eq key-fun def-fun) |
| 447 | ;; No rebinding, return t | 447 | ;; No rebinding, return t |
| 448 | t) | 448 | t) |
| 449 | ((eq key-fun (command-remapping def-fun)) | 449 | ((and key-fun |
| 450 | (eq key-fun (command-remapping def-fun))) | ||
| 450 | ;; Just a remapping, return t | 451 | ;; Just a remapping, return t |
| 451 | t) | 452 | t) |
| 452 | ;; cua-mode specials: | 453 | ;; cua-mode specials: |
| @@ -571,6 +572,8 @@ with some explanatory links." | |||
| 571 | (where (nth 3 ck)) | 572 | (where (nth 3 ck)) |
| 572 | s1 s2 help-string) | 573 | s1 s2 help-string) |
| 573 | (unless (string= where "Same key") | 574 | (unless (string= where "Same key") |
| 575 | (when (string= where "") | ||
| 576 | (setq where (format "M-x %s" def-fun))) | ||
| 574 | (setq tutorial--point-after-chkeys (point-marker) | 577 | (setq tutorial--point-after-chkeys (point-marker) |
| 575 | s1 (get-lang-string tutorial--lang 'tut-chgdkey) | 578 | s1 (get-lang-string tutorial--lang 'tut-chgdkey) |
| 576 | s2 (get-lang-string tutorial--lang 'tut-chgdkey2) | 579 | s2 (get-lang-string tutorial--lang 'tut-chgdkey2) |