mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

; * lisp/doc-view.el (doc-view-initiate-display): Improve last commit

Browse source
This commit is contained in:
Tassilo Horn 2025-08-08 13:25:54 +02:00
parent be4be3eb09
commit ba1453cf61
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/doc-view.el
View file

@ -2146,10 +2146,8 @@ If FILE-NAME is nil, use the current file instead."
;; Inhibit the echo area display of the "Type C-c C-c..." message ;; Inhibit the echo area display of the "Type C-c C-c..." message
;; if the doc-view buffer is not shown in the selected window ;; if the doc-view buffer is not shown in the selected window
;; which can happen due to auto-reverting the buffer (bug#79145). ;; which can happen due to auto-reverting the buffer (bug#79145).
(let ((inhibit-message (let ((inhibit-message (not (eq (current-buffer)
(not (eq (selected-window) (window-buffer)))))
(get-buffer-window (current-buffer)
(selected-frame))))))
(doc-view-buffer-message) (doc-view-buffer-message)
(setf (doc-view-current-page) (or (doc-view-current-page) 1)) (setf (doc-view-current-page) (or (doc-view-current-page) 1))
(if (doc-view-already-converted-p) (if (doc-view-already-converted-p)