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: (" |