* info-look.el: Add setup for apropos-mode to use emacs-lisp-mode

manuals, similar to existing setup for help-mode.  (My bug#3913.)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dc86bd235cfb81024c46de06fbf0f14a3788c656..e98993cb132e8ac43adcd4bcaea7dc4109726115 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,9 @@
        * ffap.el (ffap-rfc-path): Make this a defcustom since
        `ffap-rfc-directories' is also a defcustom.  (My Bug#4514.)
 
+       * info-look.el: Add setup for apropos-mode to use emacs-lisp-mode
+       manuals, similar to existing setup for help-mode.  (My bug#3913.)
+
 2009-12-05  Juri Linkov  <juri@jurta.org>
 
        Save and restore dired buffer's point positions too.  (Bug#4880)

diff --git a/lisp/info-look.el b/lisp/info-look.el
index a061611aa9b7acc23d0811481c4abd2a8c83c17f..7c9c124eb395c09d8a25e252b3f05e877605def6 100644 (file)
--- a/lisp/info-look.el
+++ b/lisp/info-look.el
@@ -861,6 +861,12 @@ Return nil if there is nothing appropriate in the buffer near point."
              ;; sort of fallback match scheme existed.
              ("(elisp)Index"          nil "^ -+ .*: " "\\( \\|$\\)")))
 
+;; docstrings talk about elisp, so have apropos-mode follow emacs-lisp-mode
+(info-lookup-maybe-add-help
+ :mode 'apropos-mode
+ :regexp "[^][()`',\" \t\n]+" ;; same as emacs-lisp-mode above
+ :other-modes '(emacs-lisp-mode))
+
 (info-lookup-maybe-add-help
  :mode 'lisp-interaction-mode
  :regexp "[^][()`',\" \t\n]+"