procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/help.el (substitute-quotes): Improve docstring.

Browse source
This commit is contained in:
Stefan Kangas 2023-09-02 02:21:54 +02:00
parent 60dcea7658
commit 57760f585e
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/help.el
View file

@ -1449,10 +1449,11 @@ Otherwise, return a new string."
(buffer-string))))) (buffer-string)))))
(defun substitute-quotes (string) (defun substitute-quotes (string)
"Substitute quote characters for display. "Substitute quote characters in STRING for display.
Each grave accent \\=` is replaced by left quote, and each Each grave accent \\=` is replaced by left quote, and each
apostrophe \\=' is replaced by right quote. Left and right quote apostrophe \\=' is replaced by right quote. Which left and right
characters are specified by `text-quoting-style'." quote characters to use is determined by the variable
`text-quoting-style'."
(cond ((eq (text-quoting-style) 'curve) (cond ((eq (text-quoting-style) 'curve)
(string-replace "`" "‘" (string-replace "`" "‘"
(string-replace "'" "’" string))) (string-replace "'" "’" string)))