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

lisp/desktop.el: Add workaround for bug#14949.

Browse source 
(desktop--make-frame): Do not pass the `fullscreen' parameter to
modify-frame-parameters if the value has not changed.
(desktop--make-frame): On cl-delete-if call, check parameter name,
not full parameter.
This commit is contained in:
Juanma Barranquero 2013-07-25 02:37:56 +02:00
parent 8121f08950
commit cb3a56d238
2 changed files with 14 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -1,3 +1,11 @@
2013-07-25 Juanma Barranquero <lekktu@gmail.com>
* desktop.el (desktop--make-frame): Do not pass the `fullscreen'
parameter to modify-frame-parameters if the value has not changed;
this is a workaround for bug#14949.
(desktop--make-frame): On cl-delete-if call, check parameter name,
not full parameter.
2013-07-24 Juanma Barranquero <lekktu@gmail.com>
* desktop.el (desktop-restoring-frames-p): Return a true boolean.

8
lisp/desktop.el
View file

@ -1289,7 +1289,7 @@ its window state. Internal use only."
(visible (assq 'visibility filtered-cfg)))
(setq filtered-cfg (cl-delete-if (lambda (p)
(memq p '(visibility fullscreen width height)))
filtered-cfg))
filtered-cfg :key #'car))
(when width
(setq filtered-cfg (append `((user-size . t) (width . ,width))
filtered-cfg)))
@ -1302,7 +1302,11 @@ its window state. Internal use only."
;; Time to select or create a frame an apply the big bunch of parameters
(if (setq frame (desktop--select-frame display filtered-cfg))
(modify-frame-parameters frame filtered-cfg)
(modify-frame-parameters frame
(if (eq (frame-parameter frame 'fullscreen) fullscreen)
;; Workaround for bug#14949
(assq-delete-all 'fullscreen filtered-cfg)
filtered-cfg))
(setq frame (make-frame-on-display display filtered-cfg)))
;; Let's give the finishing touches (visibility, tool-bar, maximization).