diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-03-26 05:24:17 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-03-26 05:24:17 +0000 |
| commit | c3a29d704faffd41a31a77093f9cb4efd1f51557 (patch) | |
| tree | 3f70a954a08cfdd20daeeb7b8d05c4462f095c1e /lisp | |
| parent | c5a02c74d82a84baedb08adc25690687168cc8ee (diff) | |
| download | emacs-c3a29d704faffd41a31a77093f9cb4efd1f51557.tar.gz | |
(Info-insert-dir): Add a save-excursion.
Require menu items for subnodes to end in ::.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/info.el | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/lisp/info.el b/lisp/info.el index be9850f0fff..0b45af541bc 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -408,12 +408,15 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself." (end (save-excursion (search-forward "\^_" nil t) (point)))) (while nodes (let ((nodename (car (car nodes)))) - (or (member (downcase nodename) menu-items) - (re-search-forward (concat "^\\* " (regexp-quote nodename) ":") - end t) - (progn - (insert "* " nodename "::" "\n") - (setq menu-items (cons nodename menu-items))))) + (save-excursion + (or (member (downcase nodename) menu-items) + (re-search-forward (concat "^\\* " + (regexp-quote nodename) + "::") + end t) + (progn + (insert "* " nodename "::" "\n") + (setq menu-items (cons nodename menu-items)))))) (setq nodes (cdr nodes)))) ;; Now take each node of each of the other buffers ;; and merge it into the main buffer. |