summaryrefslogtreecommitdiff
path: root/lisp/info.el
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2014-03-14 16:51:22 -0400
committerGlenn Morris <rgm@gnu.org>2014-03-14 16:51:22 -0400
commitf2dd4ba86de585cb8b1ef505152b26c2ebc9d77e (patch)
tree92afdfe4ddab6a2837e9d53d5359ec67e5631938 /lisp/info.el
parentac0f82ef86b56c7f3bdaba1fef86162c56ee0467 (diff)
downloademacs-f2dd4ba86de585cb8b1ef505152b26c2ebc9d77e.tar.gz
* lisp/info.el (Info-finder-find-node): Ignore the `emacs' metapackage.
Fixes: debbugs:10813
Diffstat (limited to 'lisp/info.el')
-rw-r--r--lisp/info.el7
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/info.el b/lisp/info.el
index ee2d99f402e..2b2490b5bdc 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -3698,7 +3698,9 @@ Build a menu of the possible matches."
hits desc)
(dolist (keyword keywords)
(push (copy-tree (gethash keyword finder-keywords-hash)) hits))
- (setq hits (delete-dups (apply 'append hits)))
+ (setq hits (delete-dups (apply 'append hits))
+ ;; Not a meaningful package.
+ hits (delete 'emacs hits))
(dolist (package hits)
(setq desc (cdr-safe (assq package package--builtins)))
(when (vectorp desc)
@@ -3713,6 +3715,9 @@ Build a menu of the possible matches."
(insert "*****************\n\n")
(insert
"Commentary section of the package `" nodename "':\n\n")
+ ;; FIXME this assumes that a file named package.el exists,
+ ;; which is not always true. E.g. for the nxml package,
+ ;; there is no "nxml.el" (it's nxml-mode.el).
(let ((str (lm-commentary (find-library-name nodename))))
(if (null str)
(insert "Can't find any Commentary section\n\n")