diff options
| -rw-r--r-- | lisp/textmodes/texnfo-upd.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/textmodes/texnfo-upd.el b/lisp/textmodes/texnfo-upd.el index 22d9fc60538..1f8b0590807 100644 --- a/lisp/textmodes/texnfo-upd.el +++ b/lisp/textmodes/texnfo-upd.el | |||
| @@ -498,7 +498,8 @@ appears in the texinfo file." | |||
| 498 | ;; | 498 | ;; |
| 499 | ;; We're interested in the second case. | 499 | ;; We're interested in the second case. |
| 500 | (concat "\\* " ; so only menu entries are found | 500 | (concat "\\* " ; so only menu entries are found |
| 501 | "\\(.*\\): " (car (car new-menu-list)) "[.,\t\n]") | 501 | "\\(.*\\): " (regexp-quote (car (car new-menu-list))) |
| 502 | "[.,\t\n]") | ||
| 502 | end-of-menu | 503 | end-of-menu |
| 503 | t) | 504 | t) |
| 504 | (setcar | 505 | (setcar |
| @@ -650,7 +651,7 @@ complements the node name rather than repeats it as a title does." | |||
| 650 | (if (re-search-forward | 651 | (if (re-search-forward |
| 651 | (concat | 652 | (concat |
| 652 | "^@node[ \t]+" | 653 | "^@node[ \t]+" |
| 653 | node-name | 654 | (regexp-quote node-name) |
| 654 | ".*\n" ; match node line | 655 | ".*\n" ; match node line |
| 655 | "\\(" | 656 | "\\(" |
| 656 | "\\(\\(^@c \\|^@comment\\).*\n\\)" ; match comment line, if any | 657 | "\\(\\(^@c \\|^@comment\\).*\n\\)" ; match comment line, if any |