diff options
| author | Richard M. Stallman | 1996-06-21 05:54:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-06-21 05:54:19 +0000 |
| commit | 27aa8132cdecb9555b2c3a14f1b0eb1011e542f9 (patch) | |
| tree | 105e2f161deda63263f2a6acc15f567f5a4c5c02 | |
| parent | ebf9219e1c6717750943cfd9356d70f5b1bb612f (diff) | |
| download | emacs-27aa8132cdecb9555b2c3a14f1b0eb1011e542f9.tar.gz emacs-27aa8132cdecb9555b2c3a14f1b0eb1011e542f9.zip | |
Whitespace change.
| -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." | |||
| 380 | (defun delete-frame-enabled-p () | 380 | (defun delete-frame-enabled-p () |
| 381 | "Return non-nil if `delete-frame' should be enabled in the menu bar." | 381 | "Return non-nil if `delete-frame' should be enabled in the menu bar." |
| 382 | (let ((frames (frame-list)) | 382 | (let ((frames (frame-list)) |
| 383 | (count 0)) | 383 | (count 0)) |
| 384 | (while frames | 384 | (while frames |
| 385 | (if (frame-visible-p (car frames)) | 385 | (if (frame-visible-p (car frames)) |
| 386 | (setq count (1+ count))) | 386 | (setq count (1+ count))) |
| 387 | (setq frames (cdr frames))) | 387 | (setq frames (cdr frames))) |
| 388 | (> count 1))) | 388 | (> count 1))) |
| 389 | 389 | ||
| 390 | (put 'advertised-undo 'menu-enable | 390 | (put 'advertised-undo 'menu-enable |
| 391 | '(and (not (eq t buffer-undo-list)) | 391 | '(and (not (eq t buffer-undo-list)) |