Revert incorrect checkin.

1 files changed, 1 insertions, 7 deletions

diff --git a/lisp/startup.el b/lisp/startup.el
index e2929e08b83..7a1f9dc392d 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -499,8 +499,7 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
                      (delete (concat "PWD=" pwd)
                              process-environment)))))
     (setq default-directory (abbreviate-file-name default-directory))
-    (let ((menubar-bindings-done nil)
-          (old-face-font-rescale-alist face-font-rescale-alist))
+    (let ((menubar-bindings-done nil))
       (unwind-protect
           (command-line)
         ;; Do this again, in case .emacs defined more abbreviations.
@@ -541,11 +540,6 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
                   (not (and initial-window-system
                             (not noninteractive)
                             (not (eq initial-window-system 'pc)))))
-          ;; If face-font-rescale-alist has changed, reload the
-          ;; default font.
-          (unless (eq face-font-rescale-alist
-                      old-face-font-rescale-alist)
-            (set-face-attribute 'default nil :font (font-spec)))
           ;; Modify the initial frame based on what .emacs puts into
           ;; ...-frame-alist.
           (if (fboundp 'frame-notice-user-settings)