diff options
Diffstat (limited to 'lisp/tutorial.el')
| -rw-r--r-- | lisp/tutorial.el | 10 |
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) |