masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-05 11:49:37 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Avoid errors in shr-pixel-column due to dedicated windows

Browse source 
* lisp/net/shr.el (shr-pixel-column): If we are switching to
another buffer in the selected window, make that window
temporarily non-dedicated.  (Bug#24950)
This commit is contained in:
Eli Zaretskii 2016-11-20 21:08:47 +02:00
parent 3138598dd8
commit a725592db8
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/net/shr.el
View file

@ -518,6 +518,9 @@ size, and full-buffer size."
(current-column) (current-column)
(if (not (get-buffer-window (current-buffer))) (if (not (get-buffer-window (current-buffer)))
(save-window-excursion (save-window-excursion
;; Avoid errors if the selected window is a dedicated one,
;; and they just want to insert a document into it.
(set-window-dedicated-p nil nil)
(set-window-buffer nil (current-buffer)) (set-window-buffer nil (current-buffer))
(car (window-text-pixel-size nil (line-beginning-position) (point)))) (car (window-text-pixel-size nil (line-beginning-position) (point))))
(car (window-text-pixel-size nil (line-beginning-position) (point)))))) (car (window-text-pixel-size nil (line-beginning-position) (point))))))