From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 24 Jul 1993 17:35:02 +0000 (+0000)
Subject: (Info-select-node): Run Info-selection-hook.
X-Git-Tag: emacs-19.34~11590
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f05f43e747fc7f072d445df6a4de7dfb1998acbb;p=emacs.git

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

diff --git a/lisp/info.el b/lisp/info.el
index 843fc97a664..5b37550502a 100644
--- 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