diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2015-08-28 20:32:03 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2015-08-28 20:32:39 -0700 |
| commit | ff441d3508add9eed3c5217ae7b0a8800b9fc917 (patch) | |
| tree | 7cb511c46c115ef734e563d29ebf058e54838a70 /lisp/novice.el | |
| parent | c6af816affb36d512f806725518e6e5f2353b197 (diff) | |
| download | emacs-ff441d3508add9eed3c5217ae7b0a8800b9fc917.tar.gz | |
Fix minor text quoting problems in lisp top level
* lisp/apropos.el (apropos-describe-plist):
* lisp/cus-theme.el (customize-themes):
* lisp/dired.el (dired-log):
* lisp/help-fns.el (describe-variable):
* lisp/hexl.el (hexl-insert-multibyte-char):
* lisp/info.el (Info-finder-find-node):
* lisp/json.el (json-read-string):
* lisp/novice.el (disabled-command-function)
(disabled-command-function):
* lisp/startup.el (normal-mouse-startup-screen):
* lisp/woman.el (WoMan-log, WoMan-warn):
Respect text quoting style in doc string or diagnostic.
* lisp/replace.el (replace-character-fold):
* src/syntax.c (Fmodify_syntax_entry):
Escape an apostrophe in a docstring.
* lisp/tempo.el (tempo-define-template):
Remove confusing apostrophe from docstring.
* lisp/whitespace.el (whitespace-mark-x):
Use directed quotes in docstring.
Diffstat (limited to 'lisp/novice.el')
| -rw-r--r-- | lisp/novice.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/novice.el b/lisp/novice.el index ce6e16f1117..18ffa5da0e5 100644 --- a/lisp/novice.el +++ b/lisp/novice.el @@ -65,7 +65,8 @@ If nil, the feature is disabled, i.e., all commands work normally.") (if (stringp (get cmd 'disabled)) (princ (get cmd 'disabled)) (princ "It is disabled because new users often find it confusing.\n") - (princ "Here's the first part of its description:\n\n") + (princ (substitute-command-keys + "Here's the first part of its description:\n\n")) ;; Keep only the first paragraph of the documentation. (with-current-buffer "*Disabled Command*" ;; standard-output (goto-char (point-max)) @@ -80,11 +81,11 @@ If nil, the feature is disabled, i.e., all commands work normally.") (goto-char (point-max)) (indent-rigidly start (point) 3)))) (princ "\n\nDo you want to use this command anyway?\n\n") - (princ "You can now type + (princ (substitute-command-keys "You can now type y to try it and enable it (no questions if you use it again). n to cancel--don't try the command, and it remains disabled. SPC to try the command just this once, but leave it disabled. -! to try it, and enable all disabled commands for this session only.") +! to try it, and enable all disabled commands for this session only.")) ;; Redundant since with-output-to-temp-buffer will do it anyway. ;; (with-current-buffer standard-output ;; (help-mode)) |