Mercurial > emacs

comparison lisp/info.el @ 38407:4569042ee316

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Info-build-node-completions): Make Info-current-file-completions buffer local.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 13 Jul 2001 18:33:23 +0000
parents 03f0515fe575
children 253f761ad37b
comparison
equal deleted inserted replaced
38406:ab9e41f31336 38407:4569042ee316
1122 (if (re-search-backward node-regexp beg t) 1122 (if (re-search-backward node-regexp beg t)
1123 (setq compl 1123 (setq compl
1124 (cons (list (match-string-no-properties 1)) 1124 (cons (list (match-string-no-properties 1))
1125 compl)))))))) 1125 compl))))))))
1126 (setq compl (cons '("*") compl)) 1126 (setq compl (cons '("*") compl))
1127 (setq Info-current-file-completions compl)))) 1127 (set (make-local-variable 'Info-current-file-completions) compl))))
1128 1128
1129 (defun Info-restore-point (hl) 1129 (defun Info-restore-point (hl)
1130 "If this node has been visited, restore the point value when we left." 1130 "If this node has been visited, restore the point value when we left."
1131 (while hl 1131 (while hl
1132 (if (and (equal (nth 0 (car hl)) Info-current-file) 1132 (if (and (equal (nth 0 (car hl)) Info-current-file)