from the completion list.
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.
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)