diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2011-06-05 02:18:46 +0200 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2011-06-05 02:18:46 +0200 |
| commit | 8eda563d1eeece721cb95cfb24e45b701a76c4b2 (patch) | |
| tree | 479cbfaf65096b01493db38ce3bc6b2ea1c349c3 /lisp/doc-view.el | |
| parent | 989bf36895ebcac51c94ba4f06cd82a281c9f8c5 (diff) | |
| download | emacs-8eda563d1eeece721cb95cfb24e45b701a76c4b2.tar.gz | |
lisp/doc-view.el: Silence compiler warning.
Diffstat (limited to 'lisp/doc-view.el')
| -rw-r--r-- | lisp/doc-view.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/doc-view.el b/lisp/doc-view.el index 7bd1a55011e..06c3b70a3a6 100644 --- a/lisp/doc-view.el +++ b/lisp/doc-view.el @@ -614,9 +614,10 @@ It's a subdirectory of `doc-view-cache-directory'." (defun doc-view-remove-if (predicate list) "Return LIST with all items removed that satisfy PREDICATE." (let (new-list) - (dolist (item list (nreverse new-list)) + (dolist (item list) (when (not (funcall predicate item)) - (setq new-list (cons item new-list)))))) + (setq new-list (cons item new-list)))) + (nreverse new-list))) ;;;###autoload (defun doc-view-mode-p (type) |