emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Glenn Morris
Subject: [Emacs-diffs] emacs/lisp ChangeLog apropos.el
Date: Fri, 20 Feb 2009 06:06:20 +0000

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

Modified files:
        lisp           : ChangeLog apropos.el 

Log message:
        Daniel Jensen  <daniel at bigwalter.net>  (tiny change)
        
        (apropos-library): Check for null filename in load-history.

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

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15368
retrieving revision 1.15369
diff -u -b -r1.15368 -r1.15369
--- ChangeLog   20 Feb 2009 06:03:45 -0000      1.15368
+++ ChangeLog   20 Feb 2009 06:06:18 -0000      1.15369
@@ -1,3 +1,7 @@
+2009-02-20  Daniel Jensen  <address@hidden>  (tiny change)
+
+       * apropos.el (apropos-library): Check for null filename in load-history.
+
 2009-02-20  Glenn Morris  <address@hidden>
 
        * apropos.el (apropos-library): Remove the element with null filename,

Index: apropos.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/apropos.el,v
retrieving revision 1.137
retrieving revision 1.138
diff -u -b -r1.137 -r1.138
--- apropos.el  20 Feb 2009 06:03:51 -0000      1.137
+++ apropos.el  20 Feb 2009 06:06:19 -0000      1.138
@@ -593,7 +593,7 @@
             (re (concat "\\(?:\\`\\|[\\/]\\)" (regexp-quote file)
                         "\\(\\.\\|\\'\\)")))
         (while (and lh (null lh-entry))
-          (if (string-match re (caar lh))
+          (if (and (caar lh) (string-match re (caar lh)))
               (setq lh-entry (car lh))
             (setq lh (cdr lh)))))
       (unless lh-entry (error "Unknown library `%s'" file)))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]