Mercurial > hg > xemacs-beta
comparison lisp/packages/info.el @ 177:6075d714658b r20-3b15
Import from CVS: tag r20-3b15
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:51:16 +0200 |
| parents | 8eaf7971accc |
| children | bfd6434d15b3 |
comparison
equal
deleted
inserted
replaced
| 176:6866abce6aaf | 177:6075d714658b |
|---|---|
| 1897 (if Info-standalone | 1897 (if Info-standalone |
| 1898 (save-buffers-kill-emacs) | 1898 (save-buffers-kill-emacs) |
| 1899 (bury-buffer (current-buffer)) | 1899 (bury-buffer (current-buffer)) |
| 1900 (if (and (featurep 'toolbar) | 1900 (if (and (featurep 'toolbar) |
| 1901 (eq toolbar-info-frame (selected-frame))) | 1901 (eq toolbar-info-frame (selected-frame))) |
| 1902 (delete-frame toolbar-info-frame) | 1902 (condition-case () |
| 1903 (delete-frame toolbar-info-frame) | |
| 1904 (error (bury-buffer))) | |
| 1903 (switch-to-buffer (other-buffer (current-buffer)))))) | 1905 (switch-to-buffer (other-buffer (current-buffer)))))) |
| 1904 | 1906 |
| 1905 (defun Info-undefined () | 1907 (defun Info-undefined () |
| 1906 "Make command be undefined in Info." | 1908 "Make command be undefined in Info." |
| 1907 (interactive) | 1909 (interactive) |
| 2341 ;; (Also, in xemacs this is fast even on indexes, and without it, nodes don't | 2343 ;; (Also, in xemacs this is fast even on indexes, and without it, nodes don't |
| 2342 ;; highlight when you move over them.) | 2344 ;; highlight when you move over them.) |
| 2343 ;; (not (string-match "\\<Index\\>" Info-current-node)) | 2345 ;; (not (string-match "\\<Index\\>" Info-current-node)) |
| 2344 ;; (< (- (point-max) (point)) 10000) | 2346 ;; (< (- (point-max) (point)) 10000) |
| 2345 ) | 2347 ) |
| 2346 (while (re-search-forward "^\\* \\([^:\t\n]*\\):" nil t) | 2348 (while (re-search-forward |
| 2349 "^\\* \\([^\t\n]*\\):?:[ \t\n]" nil t) | |
| 2347 (Info-highlight-region (match-beginning 1) (match-end 1) | 2350 (Info-highlight-region (match-beginning 1) (match-end 1) |
| 2348 'info-node ;lucid | 2351 'info-node ;lucid |
| 2349 ))) | 2352 ))) |
| 2350 (set-buffer-modified-p nil)))) | 2353 (set-buffer-modified-p nil)))) |
| 2351 | 2354 |