(server-select-display): Fix important typo.

(server-process-filter): Turn a "" display into nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c7f046adf5f4e8a84f3236cee138eb2a4a0fe18a..701a0071745d958db291cc25bb2085e6d8370870 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-12-10  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * server.el (server-select-display): Fix important typo.
+       (server-process-filter): Turn a "" display into nil.
+
 2007-12-09  Juri Linkov  <juri@jurta.org>
 
        * replace.el (keep-lines, flush-lines, how-many): Doc fix.
@@ -29,9 +34,9 @@
 
        * printing.el: Fix pr-interface-map initialization code.
        (pr-version): New version 6.9.3.
-       (pr-f-set-keymap-parents): Replaced by pr-set-keymap-parents.
-       (pr-f-set-keymap-name): Replaced by pr-set-keymap-name.
-       (pr-f-read-string): Replaced by pr-read-string.
+       (pr-f-set-keymap-parents): Replace by pr-set-keymap-parents.
+       (pr-f-set-keymap-name): Replace by pr-set-keymap-name.
+       (pr-f-read-string): Replace by pr-read-string.
        (pr-set-keymap-parents, pr-set-keymap-name, pr-read-string): New fun
        name.
        (pr-interactive-n-up, pr-interactive-regexp): Code fix.
@@ -68,8 +73,7 @@
 2007-12-08  Michael Albinus  <michael.albinus@gmx.de>
 
        * net/dbus.el (dbus-hash-table=): Remove function.  We cannot
-       apply wildcards in a hash table key; there is no usable hash code
-       then.
+       apply wildcards in a hash table key; there is no usable hash code then.
        (dbus-registered-functions-table): Use `equal' as test function.
        (dbus-name-owner-changed-handler): Rewrite due to new hash table
        structure.
@@ -114,8 +118,7 @@
        * calc/calcalg2.el (math-integral):
        * calc/calc.el (calc-read-key-sequence, calc-version):
        * calc/calc-mode.el (calc-set-simplify-mode):
-       * calc/calc-ext.el (calc-fancy-prefix): Fix buggy call to
-       `message'.
+       * calc/calc-ext.el (calc-fancy-prefix): Fix buggy call to `message'.
 
 2007-12-07  D. Goel  <deego3@gmail.com>
 
@@ -136,10 +139,8 @@
 
 2007-12-07  Michael Albinus  <michael.albinus@gmx.de>
 
-       * net/dbus.el (dbus-hash-table=): Fix for new hash table key
-       structure.
-       (dbus-list-hash-table, dbus-name-owner-changed-handler): New
-       defuns.
+       * net/dbus.el (dbus-hash-table=): Fix for new hash table key structure.
+       (dbus-list-hash-table, dbus-name-owner-changed-handler): New defuns.
        (dbus-check-event, dbus-handle-event, dbus-event-bus-name)
        (dbus-event-service-name, dbus-event-path-name)
        (dbus-event-interface-name, dbus-event-member-name): Fix for new
@@ -291,8 +292,8 @@
 
        * eshell/esh-module.el (eshell-load-defgroups): Eval and compile.
 
-       * eshell/esh-util.el (top-level): Don't require pp.  Use
-       condition-case rather than ignore-errors.
+       * eshell/esh-util.el (top-level): Don't require pp.
+       Use condition-case rather than ignore-errors.
 
        * eshell/eshell.el (eshell-buffer-name): Define for compiler.
 
@@ -314,8 +315,8 @@
        esh-maint.  Collect any require statements.  Leave provide at start.
        Move any commentary to start.
 
-       * emacs-lisp/bytecomp.el (byte-compile-declare-function): Remove
-       declared function from byte-compile-noruntime-functions.
+       * emacs-lisp/bytecomp.el (byte-compile-declare-function):
+       Remove declared function from byte-compile-noruntime-functions.
 
        * ediff-util.el (ediff-version):
        * progmodes/python.el (compilation-shell-minor-mode):
@@ -417,16 +418,16 @@
 
 2007-12-03  Richard Stallman  <rms@gnu.org>
 
-       * subr.el (declare-function): Moved from byte-run.el.
+       * subr.el (declare-function): Move from byte-run.el.
 
-       * emacs-lisp/byte-run.el (declare-function): Moved to subr.el
+       * emacs-lisp/byte-run.el (declare-function): Move to subr.el
 
        * window.el (recenter-top-bottom): Don't use `ecase'.
 
 2007-12-02  Karl Fogel  <kfogel@red-bean.com>
 
-       * saveplace.el (save-place-alist-to-file): Set
-       coding-system-for-write once and refer to it throughout.
+       * saveplace.el (save-place-alist-to-file):
+       Set coding-system-for-write once and refer to it throughout.
        Suggested by David Reitter <dreitter{_AT_}inf.ed.ac.uk>.
 
 2007-12-02  Karl Fogel  <kfogel@red-bean.com>

diff --git a/lisp/server.el b/lisp/server.el
index e6477b92d6f6579d6bf8551d19ad77c9900ef529..4d21959774a6e1dd444376e51cff4f6715555bdd 100644 (file)
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -242,8 +242,7 @@ ENV should be in the same format as `process-environment'."
   "Delete PROC, including its buffers, terminals and frames.
 If NOFRAME is non-nil, let the frames live.  (To be used from
 `delete-frame-functions'.)"
-  (server-log (concat "server-delete-client" (if noframe " noframe"))
-             proc)
+  (server-log (concat "server-delete-client" (if noframe " noframe")) proc)
   ;; Force a new lookup of client (prevents infinite recursion).
   (when (memq proc server-clients)
     (let ((buffers (process-get proc 'buffers)))
@@ -339,7 +338,7 @@ If CLIENT is non-nil, add a description of it to the logged message."
                      display
                      ;; Make it display (and remember) some dummy buffer, so
                      ;; we can detect later if the frame is in use or not.
-                     `((server-dummmy-buffer . ,buffer)
+                     `((server-dummy-buffer . ,buffer)
                        ;; This frame may be deleted later (see
                        ;; server-unselect-display) so we want it to be as
                        ;; unobtrusive as possible.
@@ -833,7 +832,8 @@ The following commands are accepted by the client:
                 ;; -display DISPLAY:
                 ;; Open X frames on the given display instead of the default.
                 ((and (equal "-display" arg) command-line-args-left)
-                 (setq display (pop command-line-args-left)))
+                 (setq display (pop command-line-args-left))
+                  (if (zerop (length display)) (setq display nil)))
 
                 ;; -window-system:  Open a new X frame.
                 ((equal "-window-system" arg)