diff options
| author | jao <jao@gnu.org> | 2021-10-05 14:37:49 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-10-05 14:37:49 +0100 |
| commit | 4f16d1635a8a34864500be57939f71a7c398cf96 (patch) | |
| tree | 92779c737d5beb76813287b7d00f65e9e92149c4 /lib | |
| parent | ba95ee504371c7a30f67e080a77e9a4d316e0bfb (diff) | |
| download | elibs-4f16d1635a8a34864500be57939f71a7c398cf96.tar.gz elibs-4f16d1635a8a34864500be57939f71a7c398cf96.tar.bz2 | |
nits
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/eos/jao-afio.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/eos/jao-afio.el b/lib/eos/jao-afio.el index f62c314..e6fce03 100644 --- a/lib/eos/jao-afio.el +++ b/lib/eos/jao-afio.el @@ -20,6 +20,8 @@ ;;; Code: +(require 'cl-lib) + (defvar jao-open-doc-fun 'find-file) (defvar jao-afio-mail-function 'gnus) (defvar jao-afio-use-w3m nil) @@ -81,9 +83,9 @@ (interactive) (delete-other-windows) (split-window-right) - (let ((docs (remove-if-not (lambda (b) - (with-current-buffer b (jao-doc-view--is-pdf))) - (buffer-list)))) + (let ((docs (cl-remove-if-not (lambda (b) + (with-current-buffer b (jao-doc-view--is-pdf))) + (buffer-list)))) (if (car docs) (progn (switch-to-buffer (car docs)) (switch-to-buffer-other-window (or (cadr docs) (car docs)))) |