Mercurial > emacs

comparison lisp/toolbar/tool-bar.el @ 43246:c187056ac630

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
2002-02-11 Per Abrahamsen <abraham@dina.kvl.dk> * toolbar/tool-bar.el (tool-bar-mode): Removed standard value. * menu-bar.el (menu-bar-mode): Ditto. * cus-edit.el (customize-mark-to-save): Always save variables without a standard value. * menu-bar.el (menu-bar-make-toggle): Made it aware of customize. (menu-bar-options-save): Ditto. (menu-bar-showhide-menu): Ditto. (menu-bar-options-menu): Ditto. (menu-bar-scroll-bar-right, menu-bar-scroll-bar-left, menu-bar-scroll-bar-none): Removed. (menu-bar-showhide-scroll-bar-menu): Use customize aware lambda expressions instead. * cus-edit.el (customize-set-value): Return value. (customize-set-variable): Ditto. (customize-save-variable): Ditto. (customize-set-variable): Load dependencies before setting value. (custom-load-symbol): Autoload it. (customize-mark-as-set): New function.
author Per Abrahamsen <abraham@dina.kvl.dk>
date Mon, 11 Feb 2002 16:47:55 +0000
parents a9bd717014f0
children ce181770fa8e
comparison
equal deleted inserted replaced
43245:6a3915789e36 43246:c187056ac630
1 ;;; tool-bar.el --- setting up the tool bar 1 ;;; tool-bar.el --- setting up the tool bar
2 ;; 2 ;;
3 ;; Copyright (C) 2000, 2001 Free Software Foundation, Inc. 3 ;; Copyright (C) 2000, 2001, 2002 Free Software Foundation, Inc.
4 ;; 4 ;;
5 ;; Author: Dave Love <fx@gnu.org> 5 ;; Author: Dave Love <fx@gnu.org>
6 ;; Keywords: mouse frames 6 ;; Keywords: mouse frames
7 7
8 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
64 (add-to-list 'default-frame-alist (cons 'tool-bar-lines lines))))) 64 (add-to-list 'default-frame-alist (cons 'tool-bar-lines lines)))))
65 (if (and tool-bar-mode 65 (if (and tool-bar-mode
66 (display-graphic-p) 66 (display-graphic-p)
67 (= 1 (length (default-value 'tool-bar-map)))) ; not yet setup 67 (= 1 (length (default-value 'tool-bar-map)))) ; not yet setup
68 (tool-bar-setup)))) 68 (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)
69 75
70 (defvar tool-bar-map (make-sparse-keymap) 76 (defvar tool-bar-map (make-sparse-keymap)
71 "Keymap for the tool bar. 77 "Keymap for the tool bar.
72 Define this locally to override the global tool bar.") 78 Define this locally to override the global tool bar.")
73 79