Mercurial > emacs
changeset 102143:c365db646335
(apropos-library): Remove the element with null filename, if present,
from the completion list.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 20 Feb 2009 06:03:45 +0000 |
| parents | ac77f094f3e9 |
| children | 1ec88ff720f2 |
| files | lisp/ChangeLog lisp/apropos.el |
| diffstat | 2 files changed, 15 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Feb 20 05:07:49 2009 +0000 +++ b/lisp/ChangeLog Fri Feb 20 06:03:45 2009 +0000 @@ -1,5 +1,8 @@ 2009-02-20 Glenn Morris <rgm@gnu.org> + * apropos.el (apropos-library): Remove the element with null filename, + if present, from the completion list. + * mail/rmail.el (rmail-speedbar-buttons): Only add regular files. (rmail-speedbar-find-file): Use rmail rather than find-file.
--- a/lisp/apropos.el Fri Feb 20 05:07:49 2009 +0000 +++ b/lisp/apropos.el Fri Feb 20 06:03:45 2009 +0000 @@ -569,17 +569,18 @@ FILE should be one of the libraries currently loaded and should thus be found in `load-history'." (interactive - (let ((libs - (nconc (delq nil - (mapcar - (lambda (l) - (setq l (file-name-nondirectory l)) - (while - (not (equal (setq l (file-name-sans-extension l)) - l))) - l) - (mapcar 'car load-history))) - (mapcar 'car load-history)))) + (let* ((libs (delq nil (mapcar 'car load-history))) + (libs + (nconc (delq nil + (mapcar + (lambda (l) + (setq l (file-name-nondirectory l)) + (while + (not (equal (setq l (file-name-sans-extension l)) + l))) + l) + libs)) + libs))) (list (completing-read "Describe library: " libs nil t)))) (let ((symbols nil) ;; (autoloads nil)