Mercurial > emacs
comparison lisp/apropos.el @ 102144:1ec88ff720f2
Daniel Jensen <daniel at bigwalter.net> (tiny change)
(apropos-library): Check for null filename in load-history.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 20 Feb 2009 06:06:18 +0000 |
| parents | c365db646335 |
| children | c0cacccaa351 |
comparison
equal
deleted
inserted
replaced
| 102143:c365db646335 | 102144:1ec88ff720f2 |
|---|---|
| 591 ;; `file' may be the "shortname". | 591 ;; `file' may be the "shortname". |
| 592 (let ((lh load-history) | 592 (let ((lh load-history) |
| 593 (re (concat "\\(?:\\`\\|[\\/]\\)" (regexp-quote file) | 593 (re (concat "\\(?:\\`\\|[\\/]\\)" (regexp-quote file) |
| 594 "\\(\\.\\|\\'\\)"))) | 594 "\\(\\.\\|\\'\\)"))) |
| 595 (while (and lh (null lh-entry)) | 595 (while (and lh (null lh-entry)) |
| 596 (if (string-match re (caar lh)) | 596 (if (and (caar lh) (string-match re (caar lh))) |
| 597 (setq lh-entry (car lh)) | 597 (setq lh-entry (car lh)) |
| 598 (setq lh (cdr lh))))) | 598 (setq lh (cdr lh))))) |
| 599 (unless lh-entry (error "Unknown library `%s'" file))) | 599 (unless lh-entry (error "Unknown library `%s'" file))) |
| 600 (dolist (x (cdr lh-entry)) | 600 (dolist (x (cdr lh-entry)) |
| 601 (case (car-safe x) | 601 (case (car-safe x) |