diff options
| author | Richard M. Stallman | 1993-11-10 20:46:09 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-11-10 20:46:09 +0000 |
| commit | de3fa0b2382dd1eb35e4362cbdd66d7749a58fb6 (patch) | |
| tree | 61880e2871c6b6f04bab6f4d618defc6d745feef | |
| parent | c6fcafde81fc0cd31cd36ad8a8cc9b6204f076ab (diff) | |
| download | emacs-de3fa0b2382dd1eb35e4362cbdd66d7749a58fb6.tar.gz emacs-de3fa0b2382dd1eb35e4362cbdd66d7749a58fb6.zip | |
(Info-extract-menu-item): Quote `*' in the menu-item
leadin re-search to prevent us from finding node names which
contain the text of another node name within them.
| -rw-r--r-- | lisp/info.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/info.el b/lisp/info.el index adbc1930c2d..feac4523ee9 100644 --- a/lisp/info.el +++ b/lisp/info.el | |||
| @@ -844,8 +844,8 @@ Completion is allowed, and the menu item point is on is the default." | |||
| 844 | (goto-char (point-min)) | 844 | (goto-char (point-min)) |
| 845 | (or (search-forward "\n* menu:" nil t) | 845 | (or (search-forward "\n* menu:" nil t) |
| 846 | (error "No menu in this node")) | 846 | (error "No menu in this node")) |
| 847 | (or (re-search-forward (concat "\n* " menu-item ":") nil t) | 847 | (or (re-search-forward (concat "\n\\* " menu-item ":") nil t) |
| 848 | (re-search-forward (concat "\n* " menu-item) nil t) | 848 | (re-search-forward (concat "\n\\* " menu-item) nil t) |
| 849 | (error "No such item in menu")) | 849 | (error "No such item in menu")) |
| 850 | (beginning-of-line) | 850 | (beginning-of-line) |
| 851 | (forward-char 2) | 851 | (forward-char 2) |