* lisp/frame.el (make-frame): Use t rather than nil for `w'.

Fixes: debbugs:18653

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 87852d64a4667ca3e75f0e81cd65d1fcfd5ac966..c8c6f61cdcfbcfa61136535a9ed211ba98a63530 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2014-10-09  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * frame.el (make-frame): Use t rather than nil for `w' (bug#18653).
+
 2014-10-08  Leo Liu  <sdl.web@gmail.com>
 
        * emacs-lisp/cl-extra.el (cl-fresh-line): New function.
@@ -9,8 +13,8 @@
 
 2014-10-08  Leo Liu  <sdl.web@gmail.com>
 
-       * progmodes/cfengine.el (cfengine3-make-syntax-cache): Always
-       return a syntax.  Replace call-process-shell-command with
+       * progmodes/cfengine.el (cfengine3-make-syntax-cache):
+       Always return a syntax.  Replace call-process-shell-command with
        process-file.  Ensure cfengine-mode-syntax-functions-regex is
        always set.  Ensure cache when cfengine-cf-promises fails.
        (Bug#18620)

diff --git a/lisp/frame.el b/lisp/frame.el
index bd055b7d6dfb17d1f0d4fcf49afd49d2b06cb612..34f35db34b75046384b896dee6c4c4ee526d0dc0 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -646,20 +646,23 @@ frame the selected frame.  However, the window system may select
 the new frame according to its own rules."
   (interactive)
   (let* ((display (cdr (assq 'display parameters)))
-         (w (cond
-            ((assq 'terminal parameters)
-             (let ((type (terminal-live-p (cdr (assq 'terminal parameters)))))
-               (cond
-                ((null type) (error "Terminal %s does not exist"
-                                     (cdr (assq 'terminal parameters))))
-                (t type))))
-            ((assq 'window-system parameters)
-             (cdr (assq 'window-system parameters)))
-             (display
-              (or (window-system-for-display display)
-                  (error "Don't know how to interpret display %S"
-                         display)))
-            (t window-system)))
+         (w (or
+             (cond
+              ((assq 'terminal parameters)
+               (let ((type (terminal-live-p
+                            (cdr (assq 'terminal parameters)))))
+                 (cond
+                  ((null type) (error "Terminal %s does not exist"
+                                      (cdr (assq 'terminal parameters))))
+                  (t type))))
+              ((assq 'window-system parameters)
+               (cdr (assq 'window-system parameters)))
+              (display
+               (or (window-system-for-display display)
+                   (error "Don't know how to interpret display %S"
+                          display)))
+              (t window-system))
+             t))
         (oldframe (selected-frame))
         (params parameters)
         frame)
@@ -680,7 +683,7 @@ the new frame according to its own rules."
     ;; Now make the frame.
     (run-hooks 'before-make-frame-hook)
     (setq frame
-          (funcall (gui-method frame-creation-function (or w t)) params))
+          (funcall (gui-method frame-creation-function w) params))
     (normal-erase-is-backspace-setup-frame frame)
     ;; Inherit the original frame's parameters.
     (dolist (param frame-inherited-parameters)