diff options
author | Glenn Morris <rgm@gnu.org> | 2014-03-14 16:51:22 -0400 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2014-03-14 16:51:22 -0400 |
commit | f2dd4ba86de585cb8b1ef505152b26c2ebc9d77e (patch) | |
tree | 92afdfe4ddab6a2837e9d53d5359ec67e5631938 /lisp/info.el | |
parent | ac0f82ef86b56c7f3bdaba1fef86162c56ee0467 (diff) | |
download | emacs-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.el | 7 |
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") |