Mercurial > emacs

comparison lisp/toolbar/tool-bar.el @ 36715:2b98ff02ebaf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tool-bar-setup): Don't suppress write-file and save-buffer if buffer-file-name non-nil. From rms.
author Dave Love <fx@gnu.org>
date Sat, 10 Mar 2001 13:20:25 +0000
parents 0a2ba9c8fde1
children ef9d470d0fd1
comparison
equal deleted inserted replaced
36714:60af090908e9 36715:2b98ff02ebaf
173 (tool-bar-add-item-from-menu 'save-buffers-kill-emacs "exit") 173 (tool-bar-add-item-from-menu 'save-buffers-kill-emacs "exit")
174 (tool-bar-add-item-from-menu 'find-file "new") 174 (tool-bar-add-item-from-menu 'find-file "new")
175 (tool-bar-add-item-from-menu 'dired "open") 175 (tool-bar-add-item-from-menu 'dired "open")
176 (tool-bar-add-item-from-menu 'kill-this-buffer "close") 176 (tool-bar-add-item-from-menu 'kill-this-buffer "close")
177 (tool-bar-add-item-from-menu 'save-buffer "save" nil 177 (tool-bar-add-item-from-menu 'save-buffer "save" nil
178 :visible '(not (eq 'special (get major-mode 178 :visible '(or buffer-file-name
179 'mode-class)))) 179 (not (eq 'special
180 (get major-mode
181 'mode-class)))))
180 (tool-bar-add-item-from-menu 'write-file "saveas" nil 182 (tool-bar-add-item-from-menu 'write-file "saveas" nil
181 :visible '(not (eq 'special (get major-mode 183 :visible '(or buffer-file-name
182 'mode-class)))) 184 (not (eq 'special
185 (get major-mode
186 'mode-class)))))
183 (tool-bar-add-item-from-menu 'undo "undo" nil 187 (tool-bar-add-item-from-menu 'undo "undo" nil
184 :visible '(not (eq 'special (get major-mode 188 :visible '(not (eq 'special (get major-mode
185 'mode-class)))) 189 'mode-class))))
186 (tool-bar-add-item-from-menu 'kill-region "cut" nil 190 (tool-bar-add-item-from-menu 'kill-region "cut" nil
187 :visible '(not (eq 'special (get major-mode 191 :visible '(not (eq 'special (get major-mode