diff options
| author | Glenn Morris | 2017-03-01 14:35:29 -0500 |
|---|---|---|
| committer | Glenn Morris | 2017-03-01 14:35:29 -0500 |
| commit | ebb105054a421faff17ee11f0cbcbed87661dd11 (patch) | |
| tree | 59998839481ae9cc028bf3387d8dbc30da3a9cb1 | |
| parent | 03f64ebbc685d803f9dcbb638c37501e0d6f8340 (diff) | |
| download | emacs-ebb105054a421faff17ee11f0cbcbed87661dd11.tar.gz emacs-ebb105054a421faff17ee11f0cbcbed87661dd11.zip | |
Small help--loaded-p fix
* lisp/help-fns.el (help--loaded-p): Handle entry in load-history
with nil file name. (Bug#25847)
| -rw-r--r-- | lisp/help-fns.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 742c66919af..21f76e100a7 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el | |||
| @@ -73,7 +73,7 @@ The functions will receive the function name as argument.") | |||
| 73 | (let* ((re (load-history-regexp file)) | 73 | (let* ((re (load-history-regexp file)) |
| 74 | (done nil)) | 74 | (done nil)) |
| 75 | (dolist (x load-history) | 75 | (dolist (x load-history) |
| 76 | (if (string-match-p re (car x)) (setq done t))) | 76 | (and (car x) (string-match-p re (car x)) (setq done t))) |
| 77 | done))) | 77 | done))) |
| 78 | 78 | ||
| 79 | (defun help--load-prefixes (prefixes) | 79 | (defun help--load-prefixes (prefixes) |