diff options
| author | jao <jao@gnu.org> | 2026-09-06 23:23:26 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2026-09-06 23:23:26 +0100 |
| commit | 10019bc241f0f9a30fb44371546b0d8f532892ed (patch) | |
| tree | cd3c83a88bbfe5e2b16f67beaf4b4604f3f2c560 /lib/doc/jao-doc-view.el | |
| parent | 0f8eb65fb807a125dd601cd6b3ee746e6c7b6020 (diff) | |
| download | elibs-10019bc241f0f9a30fb44371546b0d8f532892ed.tar.gz elibs-10019bc241f0f9a30fb44371546b0d8f532892ed.tar.bz2 | |
little fixes for doc-view and pdfs
Diffstat (limited to 'lib/doc/jao-doc-view.el')
| -rw-r--r-- | lib/doc/jao-doc-view.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/doc/jao-doc-view.el b/lib/doc/jao-doc-view.el index bb89f03..74c4751 100644 --- a/lib/doc/jao-doc-view.el +++ b/lib/doc/jao-doc-view.el @@ -53,15 +53,15 @@ (defvar-local jao-doc-view--trail-back ()) (defvar-local jao-doc-view--trail-fwd ()) -(defun jao-doc-view--trail-push () +(defun jao-doc-view--trail-push (_dest-page) (when-let* ((page (jao-doc-view-current-page))) (unless (eq (car jao-doc-view--trail-back) page) - (push page jao-doc-view--trail-back)))) + (cl-pushnew page jao-doc-view--trail-back)))) (defun jao-doc-view-back () (interactive nil doc-view-mode) (if-let* ((p (pop jao-doc-view--trail-back))) - (progn (push (jao-doc-view-current-page) jao-doc-view--trail-fwd) + (progn (cl-pushnew (jao-doc-view-current-page) jao-doc-view--trail-fwd) (jao-doc-view-goto-page p)) (message "No more back marks."))) |