[Emacs-diffs] /srv/bzr/emacs/trunk r100810: * lisp/frame.el (make-frame): Fix typo in 2010-06-30 change (Bug#6625).

[Chong Yidong]

------------------------------------------------------------
revno: 100810
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Tue 2010-07-13 13:02:27 -0400
message:
  * lisp/frame.el (make-frame): Fix typo in 2010-06-30 change (Bug#6625).
modified:
  lisp/ChangeLog
  lisp/frame.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-07-13 10:41:49 +0000
+++ b/lisp/ChangeLog    2010-07-13 17:02:27 +0000
@@ -1,3 +1,7 @@
+2010-07-13  Chong Yidong  <address@hidden>
+
+       * frame.el (make-frame): Fix typo in 2010-06-30 change (Bug#6625).
+
 2010-07-13  Adrian Robert  <address@hidden>
 
        * term/ns-win.el: Bind M-~ to 'ns-prev-frame (due to Matthew

=== modified file 'lisp/frame.el'
--- a/lisp/frame.el     2010-07-01 00:14:17 +0000
+++ b/lisp/frame.el     2010-07-13 17:02:27 +0000
@@ -736,11 +736,11 @@
       (error "Don't know how to create a frame on window system %s" w))
     ;; Add parameters from `window-system-default-frame-alist'.
     (dolist (p (cdr (assq w window-system-default-frame-alist)))
-      (unless (memq (car p) params)
+      (unless (assq (car p) params)
        (push p params)))
     ;; Add parameters from `default-frame-alist'.
     (dolist (p default-frame-alist)
-      (unless (memq (car p) params)
+      (unless (assq (car p) params)
        (push p params)))
     ;; Now make the frame.
     (run-hooks 'before-make-frame-hook)