1 |
;;; tool-bar.el --- setting up the tool bar |
;;; tool-bar.el --- setting up the tool bar |
2 |
;; |
;; |
3 |
;; Copyright (C) 2000, 2001 Free Software Foundation, Inc. |
;; Copyright (C) 2000, 2001, 2002 Free Software Foundation, Inc. |
4 |
;; |
;; |
5 |
;; Author: Dave Love <fx@gnu.org> |
;; Author: Dave Love <fx@gnu.org> |
6 |
;; Keywords: mouse frames |
;; Keywords: mouse frames |
67 |
(= 1 (length (default-value 'tool-bar-map)))) ; not yet setup |
(= 1 (length (default-value 'tool-bar-map)))) ; not yet setup |
68 |
(tool-bar-setup)))) |
(tool-bar-setup)))) |
69 |
|
|
70 |
|
;;; `tool-bar-mode' doesn't really have a standard value, as it depend |
71 |
|
;;; on where and how Emacs was started. By removing the standard |
72 |
|
;;; value, we ensure that customize will always save it. |
73 |
|
;; -- Per Abrahamsen <abraham@dina.kvl.dk> 2002-02-11. |
74 |
|
(put 'tool-bar-mode 'standard-value nil) |
75 |
|
|
76 |
(defvar tool-bar-map (make-sparse-keymap) |
(defvar tool-bar-map (make-sparse-keymap) |
77 |
"Keymap for the tool bar. |
"Keymap for the tool bar. |
78 |
Define this locally to override the global tool bar.") |
Define this locally to override the global tool bar.") |