Daniel Jensen <daniel at bigwalter.net> (tiny change)

(apropos-library): Check for null filename in load-history.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9a2e46c9191170c562f1f8865301a5e605141c65..fbcec5b8f5e1e4615c127c45b6c35b264a574ac2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2009-02-20  Daniel Jensen  <daniel@bigwalter.net>  (tiny change)
+
+       * apropos.el (apropos-library): Check for null filename in load-history.
+
 2009-02-20  Glenn Morris  <rgm@gnu.org>
 
        * apropos.el (apropos-library): Remove the element with null filename,

diff --git a/lisp/apropos.el b/lisp/apropos.el
index 91e763185b6c1a47a713258c03d43fbadfb5f7de..375b19eebe710cce602fa6246ab17daa5bfbcbef 100644 (file)
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -593,7 +593,7 @@ thus be found in `load-history'."
             (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)))