diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2015-08-15 17:23:14 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2015-08-15 17:24:42 -0700 |
| commit | f7ee23e587b01f179284b5554c67d579a2def676 (patch) | |
| tree | 113d984d553d225f29a87e72a7d1938abfd96fff /lisp/help-fns.el | |
| parent | 59b5141dd7247260cbc383e0bc2afde139d55670 (diff) | |
| download | emacs-f7ee23e587b01f179284b5554c67d579a2def676.tar.gz | |
substitute-command-keys a few more doc strings
* 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.
Diffstat (limited to 'lisp/help-fns.el')
| -rw-r--r-- | lisp/help-fns.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index a5d38340438..71bcdb6e759 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -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 "."))) |