From 8b5a10dbc6665d88aac6bd753415b26c515e70b1 Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Sun, 6 Dec 2009 00:42:19 +0000 Subject: [PATCH] * info-look.el: Add setup for apropos-mode to use emacs-lisp-mode manuals, similar to existing setup for help-mode. (My bug#3913.) --- lisp/ChangeLog | 3 +++ lisp/info-look.el | 6 ++++++ 2 files changed, 9 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dc86bd235cf..e98993cb132 100644 --- 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 Save and restore dired buffer's point positions too. (Bug#4880) diff --git a/lisp/info-look.el b/lisp/info-look.el index a061611aa9b..7c9c124eb39 100644 --- 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]+" -- 2.39.2