andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Whitespace change.

Browse source
This commit is contained in:
Richard M. Stallman 1996-06-21 05:54:19 +00:00
parent ebf9219e1c
commit 27aa8132cd
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/menu-bar.el
View file

@ -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))