diff options
author | Andreas Schwab <schwab@linux-m68k.org> | 2015-08-23 13:43:34 +0200 |
---|---|---|
committer | Andreas Schwab <schwab@linux-m68k.org> | 2015-08-23 16:33:39 +0200 |
commit | 6b1765e05db432007ede6f1af3744e71063a728b (patch) | |
tree | f8e0b1cf2b8238a292b6896cf664079765f53861 /lisp/calc/calc-help.el | |
parent | 0b0c9565d050bfecc581b342c40b719917395896 (diff) | |
download | emacs-6b1765e05db432007ede6f1af3744e71063a728b.tar.gz |
Revert "Extend ‘format’ to translate curved quotes"
This reverts commit 244c801689d2f7a80480d83cd7d092d4762ebe08.
Diffstat (limited to 'lisp/calc/calc-help.el')
-rw-r--r-- | lisp/calc/calc-help.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/calc/calc-help.el b/lisp/calc/calc-help.el index 01ab49510cd..50a0291e4cd 100644 --- a/lisp/calc/calc-help.el +++ b/lisp/calc/calc-help.el @@ -365,7 +365,7 @@ C-w Describe how there is no warranty for Calc." (let (Info-history) (Info-goto-node (buffer-substring (match-beginning 1) (match-end 1)))) (let* ((string-target (or target thing)) - (quoted (concat "['`‘]" (regexp-quote string-target) "['’]")) + (quoted (format "['`‘]%s['’]" (regexp-quote string-target))) (bracketed (format "\\[%s\\]\\|(%s)\\|\\<The[ \n]%s" quoted quoted quoted))) (or (let ((case-fold-search nil)) |