Mercurial > emacs

comparison lisp/info.el @ 2038:dd9ab1e9467e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Info-insert-dir): Fix typo.
author Richard M. Stallman <rms@gnu.org>
date Sun, 07 Mar 1993 04:25:47 +0000
parents a71101e5abff
children 1bd4cf98df68
comparison
equal deleted inserted replaced
2037:4a4e8a4552f9 2038:dd9ab1e9467e
320 (or (member (downcase nodename) menu-items) 320 (or (member (downcase nodename) menu-items)
321 (re-search-forward (concat "^\\* " (regexp-quote nodename) ":") 321 (re-search-forward (concat "^\\* " (regexp-quote nodename) ":")
322 end t) 322 end t)
323 (progn 323 (progn
324 (insert "* " nodename "\n") 324 (insert "* " nodename "\n")
325 (setq menu-items (cons nodename menu-item))))) 325 (setq menu-items (cons nodename menu-items)))))
326 (setq nodes (cdr nodes)))) 326 (setq nodes (cdr nodes))))
327 ;; Now take each node of each of the other buffers 327 ;; Now take each node of each of the other buffers
328 ;; and merge it into the main buffer. 328 ;; and merge it into the main buffer.
329 (while nodes 329 (while nodes
330 (let ((nodename (car (car nodes)))) 330 (let ((nodename (car (car nodes))))