[Top][All Lists]
[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)))