mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-05-28 08:02:40 -07:00
Code Issues Projects Releases Wiki Activity

Fix substitution of pretty quotes in code in easy-mmode

Browse source 
* lisp/emacs-lisp/easy-mmode.el (easy-mmode--arg-docstring): Adjust.
(easy-mmode--mode-docstring): Avoid making quotes into pretty
quotes in code (bug#50968).
This commit is contained in:
Lars Ingebrigtsen 2021-10-03 11:35:28 +02:00
parent b47d7ce1b8
commit 7fb2789509
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/easy-mmode.el
View file

@ -93,7 +93,7 @@ Enable the mode if ARG is nil, omitted, or is a positive number.
Disable the mode if ARG is a negative number. Disable the mode if ARG is a negative number.
To check whether the minor mode is enabled in the current buffer, To check whether the minor mode is enabled in the current buffer,
evaluate `%S'. evaluate `%s'.
The mode's hook is called both when the mode is enabled and when The mode's hook is called both when the mode is enabled and when
it is disabled.") it is disabled.")
@ -109,7 +109,9 @@ it is disabled.")
(docs-fc (bound-and-true-p emacs-lisp-docstring-fill-column)) (docs-fc (bound-and-true-p emacs-lisp-docstring-fill-column))
(fill-column (if (integerp docs-fc) docs-fc 65)) (fill-column (if (integerp docs-fc) docs-fc 65))
(argdoc (format easy-mmode--arg-docstring mode-pretty-name (argdoc (format easy-mmode--arg-docstring mode-pretty-name
getter)) ;; Avoid having quotes turn into pretty quotes.
(string-replace "'" "\\\\='"
(format "%S" getter))))
(filled (if (fboundp 'fill-region) (filled (if (fboundp 'fill-region)
(with-temp-buffer (with-temp-buffer
(insert argdoc) (insert argdoc)