Mercurial > emacs

comparison lisp/menu-bar.el @ 31645:0d9e6ed2718b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(menu-bar-files-menu): Disable ``Save'' if current buffer has no file name.
author Gerd Moellmann <gerd@gnu.org>
date Fri, 15 Sep 2000 20:27:06 +0000
parents 84f6fc78ec6d
children 878aee6eaf4b
comparison
equal deleted inserted replaced
31644:0113112028c5 31645:0d9e6ed2718b
150 (frame-selected-window menu-updating-frame))) 150 (frame-selected-window menu-updating-frame)))
151 :help "Write current buffer to another file")) 151 :help "Write current buffer to another file"))
152 (define-key menu-bar-files-menu [save-buffer] 152 (define-key menu-bar-files-menu [save-buffer]
153 '(menu-item "Save (current buffer)" save-buffer 153 '(menu-item "Save (current buffer)" save-buffer
154 :enable (and (buffer-modified-p) 154 :enable (and (buffer-modified-p)
155 (buffer-file-name)
155 (not (window-minibuffer-p 156 (not (window-minibuffer-p
156 (frame-selected-window menu-updating-frame)))) 157 (frame-selected-window menu-updating-frame))))
157 :help "Save current buffer to its file")) 158 :help "Save current buffer to its file"))
158 159
159 (define-key menu-bar-files-menu [separator-save] 160 (define-key menu-bar-files-menu [separator-save]