(tool-bar-setup): Remove the EXIT button.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index acb679926034d5afc169ba97ebebfbf5dac8690c..61b6660b860c24428e2db25c77e57367e5728a18 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2001-06-21  Eli Zaretskii  <eliz@is.elta.co.il>
 
+       * toolbar/tool-bar.el (tool-bar-setup): Remove the EXIT button.
+
        * dabbrev.el (dabbrev--select-buffers): Fix last change.
 
 2001-06-20  Richard M. Stallman  <rms@gnu.org>

diff --git a/lisp/toolbar/tool-bar.el b/lisp/toolbar/tool-bar.el
index e7534c9e4a6658615371c9f842b5d0937df8a98d..302f6f3d93702be582c4ed5cbd76b91986b777ac 100644 (file)
--- a/lisp/toolbar/tool-bar.el
+++ b/lisp/toolbar/tool-bar.el
@@ -170,7 +170,9 @@ function."
 ;;; Set up some global items.  Additions/deletions up for grabs.
 
 (defun tool-bar-setup ()
-  (tool-bar-add-item-from-menu 'save-buffers-kill-emacs "exit")
+  ;; People say it's bad to have EXIT on the tool bar, since users
+  ;; might inadvertently click that button.
+  ;;(tool-bar-add-item-from-menu 'save-buffers-kill-emacs "exit")
   (tool-bar-add-item-from-menu 'find-file "new")
   (tool-bar-add-item-from-menu 'dired "open")
   (tool-bar-add-item-from-menu 'kill-this-buffer "close")