diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/calc/calc-help.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/derived.el | 5 | ||||
| -rw-r--r-- | lisp/info.el | 6 |
3 files changed, 5 insertions, 8 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)) diff --git a/lisp/emacs-lisp/derived.el b/lisp/emacs-lisp/derived.el index 1f8572b278b..ee137f1771e 100644 --- a/lisp/emacs-lisp/derived.el +++ b/lisp/emacs-lisp/derived.el @@ -331,10 +331,9 @@ which more-or-less shadow%s %s's corresponding table%s." "\n\nThis mode " (concat "\n\nIn addition to any hooks its parent mode " - (if (string-match (concat "[`%‘]" + (if (string-match (format "[`‘]%s['’]" (regexp-quote - (symbol-name parent)) - "['%’]") + (symbol-name parent))) docstring) nil (format "`%s' " parent)) diff --git a/lisp/info.el b/lisp/info.el index 8a43a8182aa..454fadaca03 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -3398,12 +3398,10 @@ Give an empty topic name to go to the Index node itself." (re-search-forward (format "[a-zA-Z]+: [a-zA-Z0-9_ *&]+ %s\\( \\|$\\)" (regexp-quote name)) nil t) - (search-forward (concat "['`‘]" name "['’]") nil t) + (search-forward (format "['`‘]%s['’]" name) nil t) (and (string-match "\\`.*\\( (.*)\\)\\'" name) (search-forward - (concat "['`%‘]" - (substring name 0 (match-beginning 1)) - "['%’]") + (format "['`‘]%s['’]" (substring name 0 (match-beginning 1))) nil t)) (search-forward name nil t) ;; Try again without the " <1>" makeinfo can append |