pestctrl/emacs
1
0
Fork 0
forked from Github/emacs
Code Issues Pull requests Projects Releases Packages Wiki Activity

Avoid resizing mini buffer when displaying page numbers

Browse source 
* doc-view.el (doc-view-goto-page): Do not insert a newline at the end
of the "current info" if not necessary.
This commit is contained in:
Philip Kaludercic 2022-05-04 14:24:31 +02:00
parent a4e5fdf975
commit be374c18b3
1 changed files with 7 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/doc-view.el
View file

@ -632,17 +632,16 @@ Typically \"page-%s.png\".")
(propertize
(format "Page %d of %d." page len) 'face 'bold)
;; Tell user if converting isn't finished yet
(if doc-view--current-converter-processes
" (still converting...)\n"
"\n")
;; Display context infos if this page matches the last search
(when (and doc-view--current-search-matches
(assq page doc-view--current-search-matches))
(concat (propertize "Search matches:\n" 'face 'bold)
(and doc-view--current-converter-processes
" (still converting...)")
;; Display context infos if this page matches the last search
(when (and doc-view--current-search-matches
(assq page doc-view--current-search-matches))
(concat "\n" (propertize "Search matches:" 'face 'bold)
(let ((contexts ""))
(dolist (m (cdr (assq page
doc-view--current-search-matches)))
(setq contexts (concat contexts " - \"" m "\"\n")))
(setq contexts (concat contexts "\n - \"" m "\"")))
contexts)))))
;; Update the buffer
;; We used to find the file name from doc-view--current-files but