diff options
| author | Andreas Politz <politza@hochschule-trier.de> | 2018-11-18 21:46:17 +0100 |
|---|---|---|
| committer | Andreas Politz <politza@hochschule-trier.de> | 2018-11-18 21:46:17 +0100 |
| commit | 7f01195c8d0cabe83897d2e7b1664e968f1a924a (patch) | |
| tree | 8bac12089dcfa24ac73dc08b02b24d7e432a3ce2 | |
| parent | 5f0d71d0ccf301e6d722c5a4a75d921d8bd884e6 (diff) | |
Return t on success to for :before-until to work
| -rw-r--r-- | lisp/pdf-view.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/pdf-view.el b/lisp/pdf-view.el index 11fabc4..1dc8f35 100644 --- a/lisp/pdf-view.el +++ b/lisp/pdf-view.el @@ -412,10 +412,12 @@ PNG images in Emacs buffers." (unless (version< emacs-version "24.4") (defun cua-copy-region--pdf-view-advice (&rest _) - "If current buffer is in `pdf-view' mode, call + "If the current buffer is in `pdf-view' mode, call `pdf-view-kill-ring-save'." (when (eq major-mode 'pdf-view-mode) - (pdf-view-kill-ring-save))) + (pdf-view-kill-ring-save) + t)) + (advice-add 'cua-copy-region :before-until #'cua-copy-region--pdf-view-advice)) |