]> git.eshelyaron.com Git - emacs.git/commitdiff
substitute-command-keys a few more doc strings
authorPaul Eggert <eggert@cs.ucla.edu>
Sun, 16 Aug 2015 00:23:14 +0000 (17:23 -0700)
committerPaul Eggert <eggert@cs.ucla.edu>
Sun, 16 Aug 2015 00:24:42 +0000 (17:24 -0700)
* lisp/allout.el (outlineify-sticky):
* lisp/files.el (hack-one-local-variable--obsolete):
* lisp/help-fns.el (help-fns--obsolete, describe-variable):
Use substitute-command-keys on some doc strings so that
they don't use hard-coded key bindings or quoting styles.

lisp/allout.el
lisp/files.el
lisp/help-fns.el

index db87cb1128bbafcf7ae93d2e142d1c4694f5e49a..025cb17c20342231e3126861c2492ccc49526480 100644 (file)
@@ -6378,8 +6378,9 @@ for details on preparing Emacs for automatic allout activation."
     (if (allout-goto-prefix)
        t
       (allout-open-topic 2)
-      (insert (concat "Dummy outline topic header -- see"
-                      "`allout-mode' docstring: `^Hm'."))
+      (insert (substitute-command-keys
+               (concat "Dummy outline topic header -- see"
+                       " ‘allout-mode’ docstring: ‘\\[describe-mode]’.")))
       (allout-adjust-file-variable
        "allout-layout" (or allout-layout '(-1 : 0))))))
 ;;;_   > allout-file-vars-section-data ()
index a371344d116c0381d5b3bcbc5e2cd08fb12c2a9b..dd0f28681dcff6bb84e934c9cb9eb1fdebde2a5c 100644 (file)
@@ -3554,7 +3554,8 @@ It is dangerous if either of these conditions are met:
             (since (nth 2 o)))
         (message "%s is obsolete%s; %s"
                  var (if since (format " (since %s)" since))
-                 (if (stringp instead) instead
+                 (if (stringp instead)
+                     (substitute-command-keys instead)
                    (format "use `%s' instead" instead)))))))
 
 (defun hack-one-local-variable (var val)
index a5d38340438907eed0ef93e1273bae7150650118..71bcdb6e7599f5514e4cd5f04ae5119239907a1e 100644 (file)
@@ -438,7 +438,8 @@ suitable file is found, return nil."
              " is obsolete")
       (when (nth 2 obsolete)
         (insert (format " since %s" (nth 2 obsolete))))
-      (insert (cond ((stringp use) (concat ";\n" use))
+      (insert (cond ((stringp use)
+                     (concat ";\n" (substitute-command-keys use)))
                     (use (format ";\nuse ‘%s’ instead." use))
                     (t "."))
               "\n"))))
@@ -871,7 +872,8 @@ if it is given a local binding.\n")))
                 (princ "  This variable is obsolete")
                 (if (nth 2 obsolete)
                     (princ (format " since %s" (nth 2 obsolete))))
-               (princ (cond ((stringp use) (concat ";\n  " use))
+               (princ (cond ((stringp use)
+                              (concat ";\n  " (substitute-command-keys use)))
                             (use (format ";\n  use ‘%s’ instead."
                                           (car obsolete)))
                             (t ".")))