mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

(tutorial--describe-nonstandard-key):

Browse Source 
Adjust the message for when a key has been unbound.
(help-with-tutorial): Hide the arch-tag.
This commit is contained in:
Glenn Morris 2009-07-08 02:37:11 +00:00
parent 38d4f316da
commit f35fc841ab
2 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2009-07-08 Glenn Morris <rgm@gnu.org>
* tutorial.el (tutorial--describe-nonstandard-key):
Adjust the message for when a key has been unbound.
(help-with-tutorial): Hide the arch-tag.
2009-07-08 Kenichi Handa <handa@m17n.org>
* language/japanese.el (japanese-shift-jis-2004): Fix typo in the

12
lisp/tutorial.el
View File

@ -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)