Whitespace change.

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 29047d18a1ca7a5abea846d9bffeca3dbc7c13d4..e72aab64f010ca20a17ec6266062001c3e97a28f 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -380,12 +380,12 @@ Do the same for the keys of the same name."
 (defun delete-frame-enabled-p ()
   "Return non-nil if `delete-frame' should be enabled in the menu bar."
   (let ((frames (frame-list))
-             (count 0))
-         (while frames
-           (if (frame-visible-p (car frames))
-               (setq count (1+ count)))
-           (setq frames (cdr frames)))
-         (> count 1)))
+       (count 0))
+    (while frames
+      (if (frame-visible-p (car frames))
+         (setq count (1+ count)))
+      (setq frames (cdr frames)))
+    (> count 1)))
 
 (put 'advertised-undo 'menu-enable
      '(and (not (eq t buffer-undo-list))