diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2015-08-02 00:04:51 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2015-08-02 00:05:25 -0700 |
| commit | bd3b426ebb7a60045839e97c9da9bfd249fab1f1 (patch) | |
| tree | e275317adecd9e4eed8362d9982983a7ee314c7c /lisp/emacs-lisp | |
| parent | 543bb9bc2023fafdadf697e23484214daac95dee (diff) | |
| download | emacs-bd3b426ebb7a60045839e97c9da9bfd249fab1f1.tar.gz | |
Substitute some customization etc. doc strings
These changes apply substitute-command-keys to some
doc strings that were going through untranslated
when creating customization or other widgets.
* lisp/cus-edit.el (custom-group-value-create):
* lisp/wid-edit.el (widget-default-create):
(widget-push-button-value-create):
Treat the widget tag as a doc string.
* lisp/emacs-lisp/cl-extra.el (cl--describe-class-slot):
Treat the :documentation value as a doc string.
* lisp/wid-edit.el (widget-choose):
Treat the choice names as doc strings.
(widget-default-create): Treat the :doc value as a doc string.
(widget-toggle-value-create): Treat the :on and :off values
as doc strings.
(widget-documentation-string-value-create):
Substitute the doc string.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-extra.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el index 38cc772e8b0..101864d3721 100644 --- a/lisp/emacs-lisp/cl-extra.el +++ b/lisp/emacs-lisp/cl-extra.el @@ -831,7 +831,9 @@ including `cl-block' and `cl-eval-when'." (prin1-to-string (alist-get :printer (cl--slot-descriptor-props slot))))) (when (alist-get :documentation (cl--slot-descriptor-props slot)) - (concat "\n " (alist-get :documentation (cl--slot-descriptor-props slot)) + (concat "\n " + (substitute-command-keys + (alist-get :documentation (cl--slot-descriptor-props slot))) "\n"))) "\n")) |