procyberian/emacs
2
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

In frameset save pixel values with frame-resize-pixelwise non-nil (Bug#30141)

Browse source 
* lisp/frameset.el (frameset--record-relationships): Replace
check for text width/height and replace with check for
frame-resize-pixelwise.  (Bug#30141)
This commit is contained in:
Aaron Jensen 2018-03-17 10:58:17 +01:00 • committed by Martin Rudalics
commit f7346a584e
1 changed files with 10 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

25
lisp/frameset.el
View file

@ -800,22 +800,17 @@ Internal use only."
(cons nil
(and mb-frame
(frameset-frame-id mb-frame)))))))))
;; Now store text-pixel width and height if it differs from the calculated
;; width and height and the frame is not fullscreen.
;; Now store text-pixel width and height if `frame-resize-pixelwise'
;; is set. (Bug#30141)
(dolist (frame frame-list)
(unless (frame-parameter frame 'fullscreen)
(unless (eq (* (frame-parameter frame 'width)
(frame-char-width frame))
(frame-text-width frame))
(set-frame-parameter
frame 'frameset--text-pixel-width
(frame-text-width frame)))
(unless (eq (* (frame-parameter frame 'height)
(frame-char-height frame))
(frame-text-height frame))
(set-frame-parameter
frame 'frameset--text-pixel-height
(frame-text-height frame))))))
(when (and frame-resize-pixelwise
(not (frame-parameter frame 'fullscreen)))
(set-frame-parameter
frame 'frameset--text-pixel-width
(frame-text-width frame))
(set-frame-parameter
frame 'frameset--text-pixel-height
(frame-text-height frame)))))
;;;###autoload
(cl-defun frameset-save (frame-list