lisp/frameset.el (frameset-restore): Compare display strings with equal.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 50d33c69b37bf4e79086f486ff04e0c9e9bebc31..943a5e8da7cf3e4ae3db20789a1bbde2cfade874 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2014-03-23  Juanma Barranquero  <lekktu@gmail.com>
 
+       * frameset.el (frameset-restore): Compare display strings with equal.
+
        * frame.el (make-frame): Don't quote display name in error message,
        it is already a string.
 

diff --git a/lisp/frameset.el b/lisp/frameset.el
index 05fae1b4fa258d6865dc89041493493988edd6e6..50055bb2782c770595a8967a7a4842bc5b17d213 100644 (file)
--- a/lisp/frameset.el
+++ b/lisp/frameset.el
@@ -1146,8 +1146,8 @@ All keyword parameters default to nil."
                     frame to-tty duplicate)
                ;; Only set target if forcing displays and the target display is different.
                (unless (or (frameset-keep-original-display-p force-display)
-                           (eq (frame-parameter nil 'display)
-                               (cdr (assq 'display frame-cfg))))
+                           (equal (frame-parameter nil 'display)
+                                  (cdr (assq 'display frame-cfg))))
                  (setq frameset--target-display (cons 'display
                                                       (frame-parameter nil 'display))
                        to-tty (null (cdr frameset--target-display))))