diff options
| author | Karl Heuer <kwzh@gnu.org> | 1998-03-14 09:08:26 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1998-03-14 09:08:26 +0000 |
| commit | ca722adbaa7d7ee50cf4bdeeb9d4c89a9cd4131b (patch) | |
| tree | 5246acc24ef58254c968fbba841687037d21394c | |
| parent | 84dd0ae5553ba97a930be12e997ecae28070f535 (diff) | |
| download | emacs-ca722adbaa7d7ee50cf4bdeeb9d4c89a9cd4131b.tar.gz | |
(texinfo-incorporate-menu-entry-names)
(texinfo-start-menu-description): Call regexp-quote.
| -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." ;; ;; We're interested in the second case. (concat "\\* " ; so only menu entries are found - "\\(.*\\): " (car (car new-menu-list)) "[.,\t\n]") + "\\(.*\\): " (regexp-quote (car (car new-menu-list))) + "[.,\t\n]") end-of-menu t) (setcar @@ -650,7 +651,7 @@ complements the node name rather than repeats it as a title does." (if (re-search-forward (concat "^@node[ \t]+" - node-name + (regexp-quote node-name) ".*\n" ; match node line "\\(" "\\(\\(^@c \\|^@comment\\).*\n\\)" ; match comment line, if any |