procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/info.el (Info-finder-find-node): Ignore the `emacs' metapackage.

Browse source 
Fixes: debbugs:10813
This commit is contained in:
Glenn Morris 2014-03-14 16:51:22 -04:00
parent ac0f82ef86
commit f2dd4ba86d
2 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2014-03-14 Glenn Morris <rgm@gnu.org>
* info.el (Info-finder-find-node):
Ignore the `emacs' metapackage. (Bug#10813)
* finder.el (finder-list-matches): Include unversioned packages
in the result of a keyword search.

7
lisp/info.el
View file

@ -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")