Mercurial > emacs

changeset 15471:f0b473ee47a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Whitespace change.
author Richard M. Stallman <rms@gnu.org>
date Fri, 21 Jun 1996 05:54:19 +0000
parents 7cdabdc3ce59
children 300b52e37681
files lisp/menu-bar.el
diffstat 1 files changed, 6 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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))