(Info-select-node): Run Info-selection-hook.

f05f43e7 · Richard M. Stallman · 1c0b3743 · f05f43e7
Commit f05f43e7 authored Jul 24, 1993 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

lisp/info.el lisp/info.el +2 -1

No files found.
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -475,7 +475,8 @@ to read a file name from the minibuffer."
 				  (setq active-expression
 					(read (current-buffer))))))
 			 (point-max)))
-     (if Info-enable-active-nodes (eval active-expression)))))
+     (if Info-enable-active-nodes (eval active-expression))
+     (run-hooks 'Info-selection-hook))))

 (defun Info-set-mode-line ()
  (setq mode-line-buffer-identification