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, 8 insertions, 5 deletions
diff --git a/lisp/calc/calc-help.el b/lisp/calc/calc-help.el index b2e7df1b718..7a1a983e6b3 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 (format "['`‘]%s['’]" (regexp-quote string-target))) + (quoted (concat "['`‘]" (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 ee137f1771e..1f8572b278b 100644 --- a/lisp/emacs-lisp/derived.el +++ b/lisp/emacs-lisp/derived.el @@ -331,9 +331,10 @@ 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 (format "[`‘]%s['’]" + (if (string-match (concat "[`%‘]" (regexp-quote - (symbol-name parent))) + (symbol-name parent)) + "['%’]") docstring) nil (format "`%s' " parent)) diff --git a/lisp/info.el b/lisp/info.el index 0a2206d61bf..1b02c3585b1 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -3398,10 +3398,12 @@ 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 (format "['`‘]%s['’]" name) nil t) + (search-forward (concat "['`‘]" name "['’]") nil t) (and (string-match "\\`.*\\( (.*)\\)\\'" name) (search-forward - (format "['`‘]%s['’]" (substring name 0 (match-beginning 1))) + (concat "['`%‘]" + (substring name 0 (match-beginning 1)) + "['%’]") nil t)) (search-forward name nil t) ;; Try again without the " <1>" makeinfo can append |