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)) |