diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-11-16 16:33:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-11-16 16:33:04 +0000 |
| commit | 6b2ca2584c8a5eb66daec63798ceb451003bb2c4 (patch) | |
| tree | fe468be3742d4a0d9c34a5d67be5d4e1a763b482 /lisp/info.el | |
| parent | e75a2a908901a0e391f65729d173491e5f6d5e53 (diff) | |
| download | emacs-6b2ca2584c8a5eb66daec63798ceb451003bb2c4.tar.gz | |
(Info-complete-menu-item): Don't treat `* Menu:' as a menu item.
Diffstat (limited to 'lisp/info.el')
| -rw-r--r-- | lisp/info.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/info.el b/lisp/info.el index 6e8252c10a4..2625e84beef 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -943,6 +943,7 @@ NAME may be an abbreviation of the reference name." (save-excursion (set-buffer Info-complete-menu-buffer) (goto-char (point-min)) + (search-forward "\n* Menu:") (while (re-search-forward pattern nil t) (setq completions (cons (cons (format "%s" (buffer-substring @@ -959,6 +960,7 @@ NAME may be an abbreviation of the reference name." (save-excursion (set-buffer Info-complete-menu-buffer) (goto-char (point-min)) + (search-forward "\n* Menu:") (while (re-search-forward pattern nil t) (setq completions (cons (cons (format "%s" (buffer-substring @@ -971,6 +973,7 @@ NAME may be an abbreviation of the reference name." (save-excursion (set-buffer Info-complete-menu-buffer) (goto-char (point-min)) + (search-forward "\n* Menu:") (re-search-forward (concat "\n\\* " (regexp-quote string) ":") |