changeset 7322:1f3536445289

(frame-notice-user-settings): Discard `reverse' when making the replacement for the initial frame. Put it on as nil. (new-frame): Use make-frame instead.

--- a/lisp/frame.el	Wed May 04 22:00:30 1994 +0000
+++ b/lisp/frame.el	Wed May 04 22:41:02 1994 +0000
@@ -58,7 +58,7 @@
 
 (setq pop-up-frame-function
       (function (lambda ()
-		  (new-frame pop-up-frame-alist))))
+		  (make-frame pop-up-frame-alist))))
 
 (defvar special-display-frame-alist 
   '((height . 14) (width . 80) (unsplittable . t))
@@ -82,7 +82,7 @@
 	  (raise-frame frame)
 	  window)
       ;; If no window yet, make one in a new frame.
-      (let ((frame (new-frame special-display-frame-alist)))
+      (let ((frame (make-frame special-display-frame-alist)))
 	(set-window-buffer (frame-selected-window frame) buffer)
 	(set-window-dedicated-p (frame-selected-window frame) t)
 	(frame-selected-window frame)))))
@@ -130,7 +130,7 @@
 		    (append initial-frame-alist default-frame-alist))
 	      (setq default-minibuffer-frame
 		    (setq frame-initial-frame
-			  (new-frame initial-frame-alist)))
+			  (make-frame initial-frame-alist)))
 	      ;; Delete any specifications for window geometry parameters
 	      ;; so that we won't reapply them in frame-notice-user-settings.
 	      ;; It would be wrong to reapply them then,
@@ -181,17 +181,19 @@
 			      '(minibuffer . t)))
 		     t))
 	    ;; Create the new frame.
-	    (let ((new
-		   (new-frame
-		    (append initial-frame-alist
-			    default-frame-alist
-			    (frame-parameters frame-initial-frame)))))
-
+	    (let* ((parms (append initial-frame-alist
+				  default-frame-alist
+				  (frame-parameters frame-initial-frame)
+				  nil))
+		   ;; Get rid of `reverse', because that was handled
+		   ;; when we first made the frame.
+		   (new (make-frame (cons '(reverse . nil)
+					  (delq (assq 'reverse parms) parms)))))
 	      ;; The initial frame, which we are about to delete, may be
 	      ;; the only frame with a minibuffer.  If it is, create a
 	      ;; new one.
 	      (or (delq frame-initial-frame (minibuffer-frame-list))
-		  (new-frame (append minibuffer-frame-alist
+		  (make-frame (append minibuffer-frame-alist
 				     '((minibuffer . only)))))
 
 	      ;; If the initial frame is serving as a surrogate
@@ -280,7 +282,7 @@
 ;;; considered (see next-frame).
 (defun get-other-frame ()
   (let ((s (if (equal (next-frame (selected-frame)) (selected-frame))
-	       (new-frame)
+	       (make-frame)
 	     (next-frame (selected-frame)))))
     s))
 
@@ -578,7 +580,7 @@
 (defalias 'ctl-x-5-prefix ctl-x-5-map)
 (define-key ctl-x-map "5" 'ctl-x-5-prefix)
 
-(define-key ctl-x-5-map "2" 'new-frame)
+(define-key ctl-x-5-map "2" 'make-frame)
 (define-key ctl-x-5-map "0" 'delete-frame)
 (define-key ctl-x-5-map "o" 'other-frame)