diff options
| author | Stefan Kangas | 2023-09-02 02:21:54 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2023-09-02 02:21:54 +0200 |
| commit | 57760f585e2e7f935df18989009fde0a2ca7d01e (patch) | |
| tree | c701a911c2e2aeb59a784b31e6799a8f3e273ec5 | |
| parent | 60dcea7658a08761f059c3ce7265e873ae6076db (diff) | |
| download | emacs-57760f585e2e7f935df18989009fde0a2ca7d01e.tar.gz emacs-57760f585e2e7f935df18989009fde0a2ca7d01e.zip | |
* lisp/help.el (substitute-quotes): Improve docstring.
| -rw-r--r-- | lisp/help.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/help.el b/lisp/help.el index 7902a5c5b14..b384c476eb3 100644 --- a/lisp/help.el +++ b/lisp/help.el | |||
| @@ -1449,10 +1449,11 @@ Otherwise, return a new string." | |||
| 1449 | (buffer-string))))) | 1449 | (buffer-string))))) |
| 1450 | 1450 | ||
| 1451 | (defun substitute-quotes (string) | 1451 | (defun substitute-quotes (string) |
| 1452 | "Substitute quote characters for display. | 1452 | "Substitute quote characters in STRING for display. |
| 1453 | Each grave accent \\=` is replaced by left quote, and each | 1453 | Each grave accent \\=` is replaced by left quote, and each |
| 1454 | apostrophe \\=' is replaced by right quote. Left and right quote | 1454 | apostrophe \\=' is replaced by right quote. Which left and right |
| 1455 | characters are specified by `text-quoting-style'." | 1455 | quote characters to use is determined by the variable |
| 1456 | `text-quoting-style'." | ||
| 1456 | (cond ((eq (text-quoting-style) 'curve) | 1457 | (cond ((eq (text-quoting-style) 'curve) |
| 1457 | (string-replace "`" "‘" | 1458 | (string-replace "`" "‘" |
| 1458 | (string-replace "'" "’" string))) | 1459 | (string-replace "'" "’" string))) |