diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-06-21 05:54:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-06-21 05:54:19 +0000 |
| commit | 8e91895cdc3c37c957b5064148759a665e2323b4 (patch) | |
| tree | dc9a8d73bd775ec2a6f0f76b904eae5692767ef5 /lisp/menu-bar.el | |
| parent | 55c9d213058df0ebf4eb3fe7abe05205d463eff8 (diff) | |
| download | emacs-8e91895cdc3c37c957b5064148759a665e2323b4.tar.gz | |
Whitespace change.
Diffstat (limited to 'lisp/menu-bar.el')
| -rw-r--r-- | lisp/menu-bar.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 29047d18a1c..e72aab64f01 100644 --- 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)) |