[Emacs-diffs] emacs/lisp ChangeLog apropos.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/02/20 06:03:52

Modified files:
        lisp           : ChangeLog apropos.el 

Log message:
        (apropos-library): Remove the element with null filename, if present,
        from the completion list.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15367&r2=1.15368
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/apropos.el?cvsroot=emacs&r1=1.136&r2=1.137

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15367
retrieving revision 1.15368
diff -u -b -r1.15367 -r1.15368
--- ChangeLog   20 Feb 2009 04:50:29 -0000      1.15367
+++ ChangeLog   20 Feb 2009 06:03:45 -0000      1.15368
@@ -1,5 +1,8 @@
 2009-02-20  Glenn Morris  <address@hidden>
 
+       * 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.
 

Index: apropos.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/apropos.el,v
retrieving revision 1.136
retrieving revision 1.137
diff -u -b -r1.136 -r1.137
--- apropos.el  5 Jan 2009 03:18:41 -0000       1.136
+++ apropos.el  20 Feb 2009 06:03:51 -0000      1.137
@@ -569,7 +569,8 @@
 FILE should be one of the libraries currently loaded and should
 thus be found in `load-history'."
   (interactive
-   (let ((libs
+   (let* ((libs (delq nil (mapcar 'car load-history)))
+          (libs
           (nconc (delq nil
                        (mapcar
                         (lambda (l)
@@ -578,8 +579,8 @@
                               (not (equal (setq l (file-name-sans-extension l))
                                           l)))
                           l)
-                        (mapcar 'car load-history)))
-                 (mapcar 'car load-history))))
+                         libs))
+                  libs)))
      (list (completing-read "Describe library: " libs nil t))))
   (let ((symbols nil)
        ;; (autoloads nil)