aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/tutorial.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/tutorial.el')
-rw-r--r--lisp/tutorial.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/tutorial.el b/lisp/tutorial.el
index e9095b3b41b..f8660f55f65 100644
--- a/lisp/tutorial.el
+++ b/lisp/tutorial.el
@@ -136,18 +136,18 @@ options:
136 (setq mapsym s))))) 136 (setq mapsym s)))))
137 (insert 137 (insert
138 (format 138 (format
139 "The default Emacs binding for the key %s is the command %s. " 139 "The default Emacs binding for the key %s is the command `%s'. "
140 (key-description key) 140 (key-description key)
141 db)) 141 db))
142 (insert "However, your customizations have " 142 (insert "However, your customizations have "
143 (if cb 143 (if cb
144 (format-message "rebound it to the command %s" cb) 144 (format-message "rebound it to the command `%s'" cb)
145 "unbound it")) 145 "unbound it"))
146 (insert ".") 146 (insert ".")
147 (when mapsym 147 (when mapsym
148 (insert " (For the more advanced user:" 148 (insert " (For the more advanced user:"
149 (format-message 149 (format-message
150 " This binding is in the keymap %s.)" mapsym))) 150 " This binding is in the keymap `%s'.)" mapsym)))
151 (if (string= where "") 151 (if (string= where "")
152 (unless (keymapp db) 152 (unless (keymapp db)
153 (insert "\n\nYou can use M-x " 153 (insert "\n\nYou can use M-x "
@@ -159,7 +159,7 @@ options:
159 "" 159 ""
160 "the key") 160 "the key")
161 where 161 where
162 (format-message " to get the function %s." db)))) 162 (format-message " to get the function `%s'." db))))
163 (fill-region (point-min) (point))))) 163 (fill-region (point-min) (point)))))
164 (help-print-return-message)))) 164 (help-print-return-message))))
165 165
@@ -451,7 +451,7 @@ where
451 (lookup-key global-map 451 (lookup-key global-map
452 [menu-bar])))) 452 [menu-bar]))))
453 (stringp cwhere)) 453 (stringp cwhere))
454 (format-message "the %s menu" cwhere) 454 (format-message "the `%s' menu" cwhere)
455 "the menus")))) 455 "the menus"))))
456 (setq where "")) 456 (setq where ""))
457 (setq remark nil) 457 (setq remark nil)