mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

(Info-insert-dir): Add a save-excursion.

Browse Source 
Require menu items for subnodes to end in ::.
This commit is contained in:
Richard M. Stallman 1994-03-26 05:24:17 +00:00
parent c5a02c74d8
commit c3a29d704f
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/info.el
View File

@ -408,12 +408,15 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself."
(end (save-excursion (search-forward "\^_" nil t) (point)))) (end (save-excursion (search-forward "\^_" nil t) (point))))
(while nodes (while nodes
(let ((nodename (car (car nodes)))) (let ((nodename (car (car nodes))))
(or (member (downcase nodename) menu-items) (save-excursion
(re-search-forward (concat "^\\* " (regexp-quote nodename) ":") (or (member (downcase nodename) menu-items)
end t) (re-search-forward (concat "^\\* "
(progn (regexp-quote nodename)
(insert "* " nodename "::" "\n") "::")
(setq menu-items (cons nodename menu-items))))) end t)
(progn
(insert "* " nodename "::" "\n")
(setq menu-items (cons nodename menu-items))))))
(setq nodes (cdr nodes)))) (setq nodes (cdr nodes))))
;; Now take each node of each of the other buffers ;; Now take each node of each of the other buffers
;; and merge it into the main buffer. ;; and merge it into the main buffer.