Re: save-some-buffers ought to be in the menus

[Kevin Rodgers]

Kevin Rodgers wrote:
> Dan Jacobson wrote:
> > save-some-buffers ought to be in the menus, under File.
> > Advanced users, such as myself, use it all the time.
>
> I seldom use use it, so I guess I am not an advanced user.  But I do
> know how to add it to the File menu:
>
> (define-key-after menu-bar-file-menu [save-some-buffers]
>   '(menu-item "Save Some Buffers..." save-some-buffers
>           :enable (and (menu-bar-menu-frame-live-and-visible-p)
>                (menu-bar-non-minibuffer-window-p))
>           :help "Save some modified file-visiting buffers")
>   'write-file)

I admit, I copy-and-pasted the :enable form from the "Save As..." entry,
and I don't know why the menu-bar-non-minibuffer-window-p predicate is
necessary.  Maybe be this would be better:


:enable (and (menu-bar-menu-frame-live-and-visible-p)
             (catch 'some-buffer
               (mapc (lambda (buffer)
                       (with-current-buffer buffer
                         (when (and buffer-file-name (buffer-modified-p))
                           (throw 'some-buffer buffer))))
                     (buffer-list))
               nil))


--
Kevin Rodgers
Denver, Colorado, USA