# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 993127618 0
# Node ID ef9d470d0fd189ce0f8f8323aba698f57e5fd0e0
# Parent  455e613891ff48dfc90c586669b66d8cc6259b97
(tool-bar-setup): Remove the EXIT button.

diff -r 455e613891ff -r ef9d470d0fd1 lisp/toolbar/tool-bar.el
--- a/lisp/toolbar/tool-bar.el	Thu Jun 21 07:42:04 2001 +0000
+++ b/lisp/toolbar/tool-bar.el	Thu Jun 21 12:46:58 2001 +0000
@@ -170,7 +170,9 @@
 ;;; 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")