Mercurial > emacs
comparison lisp/info.el @ 998:61c6983219ff
entered into RCS
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Wed, 19 Aug 1992 03:54:46 +0000 |
parents | d76731ebdff0 |
children | aa286e6e7bec |
comparison
equal
deleted
inserted
replaced
997:894201c58bb8 | 998:61c6983219ff |
---|---|
177 (setq case-fold-search t) | 177 (setq case-fold-search t) |
178 (erase-buffer) | 178 (erase-buffer) |
179 (insert-buffer-substring buf) | 179 (insert-buffer-substring buf) |
180 (set-marker Info-tag-table-marker | 180 (set-marker Info-tag-table-marker |
181 (match-end 0)))) | 181 (match-end 0)))) |
182 (set-marker Info-tag-table-marker pos)))) | 182 (set-marker Info-tag-table-marker pos)))) |
183 (setq Info-current-file | 183 (setq Info-current-file |
184 (file-name-sans-versions buffer-file-name)))) | 184 (file-name-sans-versions buffer-file-name)))) |
185 (if (equal nodename "*") | 185 (if (equal nodename "*") |
186 (progn (setq Info-current-node nodename) | 186 (progn (setq Info-current-node nodename) |
187 (Info-set-mode-line)) | 187 (Info-set-mode-line)) |