# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 835336459 0
# Node ID f0b473ee47a515bda09109f08a7eb365a2cf2b8a
# Parent  7cdabdc3ce593f133de3959cd95f38df4245fea8
Whitespace change.

diff -r 7cdabdc3ce59 -r f0b473ee47a5 lisp/menu-bar.el
--- a/lisp/menu-bar.el	Fri Jun 21 05:47:24 1996 +0000
+++ b/lisp/menu-bar.el	Fri Jun 21 05:54:19 1996 +0000
@@ -380,12 +380,12 @@
 (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))