* lisp/help.el (substitute-quotes): Improve docstring.
This commit is contained in:
parent
60dcea7658
commit
57760f585e
1 changed files with 4 additions and 3 deletions
|
@ -1449,10 +1449,11 @@ Otherwise, return a new string."
|
|||
(buffer-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
|
||||
apostrophe \\=' is replaced by right quote. Left and right quote
|
||||
characters are specified by `text-quoting-style'."
|
||||
apostrophe \\=' is replaced by right quote. Which left and right
|
||||
quote characters to use is determined by the variable
|
||||
`text-quoting-style'."
|
||||
(cond ((eq (text-quoting-style) 'curve)
|
||||
(string-replace "`" "‘"
|
||||
(string-replace "'" "’" string)))
|
||||
|
|
Loading…
Add table
Reference in a new issue