[Emacs-diffs] trunk r113535: lisp/desktop.el: Add workaround for bug#14949.

[Juanma Barranquero]

------------------------------------------------------------
revno: 113535
revision-id: address@hidden
parent: address@hidden
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Thu 2013-07-25 02:37:56 +0200
message:
  lisp/desktop.el: Add workaround for bug#14949.
  (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.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/desktop.el                desktop.el-20091113204419-o5vbwnq5f7feedwu-591

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-07-24 16:21:44 +0000
+++ b/lisp/ChangeLog    2013-07-25 00:37:56 +0000
@@ -1,3 +1,11 @@
+2013-07-25  Juanma Barranquero  <address@hidden>
+
+       * 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  <address@hidden>
 
        * desktop.el (desktop-restoring-frames-p): Return a true boolean.

=== modified file 'lisp/desktop.el'
--- a/lisp/desktop.el   2013-07-24 16:21:44 +0000
+++ b/lisp/desktop.el   2013-07-25 00:37:56 +0000
@@ -1289,7 +1289,7 @@
            (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 @@
 
     ;; 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).