Mercurial > emacs
comparison lisp/info.el @ 4261:f9599125f7f0
(Info-select-node): Run Info-selection-hook.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 24 Jul 1993 17:35:02 +0000 |
| parents | a8255430d8b0 |
| children | 25fb71fc2643 |
comparison
equal
deleted
inserted
replaced
| 4260:e0713a13f2d7 | 4261:f9599125f7f0 |
|---|---|
| 473 (progn | 473 (progn |
| 474 (goto-char (match-end 0)) | 474 (goto-char (match-end 0)) |
| 475 (setq active-expression | 475 (setq active-expression |
| 476 (read (current-buffer)))))) | 476 (read (current-buffer)))))) |
| 477 (point-max))) | 477 (point-max))) |
| 478 (if Info-enable-active-nodes (eval active-expression))))) | 478 (if Info-enable-active-nodes (eval active-expression)) |
| 479 (run-hooks 'Info-selection-hook)))) | |
| 479 | 480 |
| 480 (defun Info-set-mode-line () | 481 (defun Info-set-mode-line () |
| 481 (setq mode-line-buffer-identification | 482 (setq mode-line-buffer-identification |
| 482 (concat | 483 (concat |
| 483 "Info: (" | 484 "Info: (" |