diff options
Diffstat (limited to 'lisp/tutorial.el')
| -rw-r--r-- | lisp/tutorial.el | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/lisp/tutorial.el b/lisp/tutorial.el index 7df71e02af..96aec65f38 100644 --- a/lisp/tutorial.el +++ b/lisp/tutorial.el @@ -138,9 +138,11 @@ options: " is the command `") (insert (format "%s" db)) (insert "'. " - "However, your customizations have rebound it to the command `") - (insert (format "%s" cb)) - (insert "'.") + "However, your customizations have " + (if cb + (format "rebound it to the command `%s'" cb) + "unbound it")) + (insert ".") (when mapsym (insert " (For the more advanced user:" " This binding is in the keymap `" @@ -862,6 +864,10 @@ Run the Viper tutorial? ")) (when (< old-point 1) (setq old-point 1)) (goto-char old-point)) + ;; Delete the arch-tag line, so as not to confuse readers. + (goto-char (point-max)) + (if (search-backward ";;; arch-tag: " nil t) + (delete-region (point) (point-max))) (goto-char (point-min)) (search-forward "\n<<") (beginning-of-line) |