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/info.el | |
| parent | 0b0c9565d050bfecc581b342c40b719917395896 (diff) | |
| download | emacs-6b1765e05db432007ede6f1af3744e71063a728b.tar.gz | |
Revert "Extend ‘format’ to translate curved quotes"
This reverts commit 244c801689d2f7a80480d83cd7d092d4762ebe08.
Diffstat (limited to 'lisp/info.el')
| -rw-r--r-- | lisp/info.el | 6 |
1 files changed, 2 insertions, 4 deletions
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 |