Lines Matching +refs:set +refs:mouse +refs:color
46 ;; property. Similarly, set-default (or the 'custom-set' property)
47 ;; can set it.
109 ;; 3. set
185 (defgroup mouse nil
302 "Internationalization and alternate character-set support."
433 (defgroup mouse nil
434 "Input from the mouse."
476 (set-keymap-parent map widget-keymap)
481 (define-key map "\C-c\C-c" 'Custom-set)
492 (set-keymap-parent map custom-mode-map)
493 (define-key map [down-mouse-2] nil)
494 (define-key map [down-mouse-1] 'mouse-drag-region)
495 (define-key map [mouse-2] 'widget-move-and-invoke)
766 (defun Custom-set ()
776 (widget-apply child :custom-set)))
781 "Set all edited settings, then save all settings that have been set.
782 If a setting was edited and set before, this saves it.
793 '(modified set changed rogue))
833 "Reset all edited or set settings in the buffer to their saved value.
843 '(modified set changed rogue))
864 '(modified set changed saved rogue))
913 (defun customize-set-value (variable value &optional comment)
931 (set variable value))
934 (defun customize-set-variable (variable value &optional comment)
938 If VARIABLE has a `custom-set' property, that is used for setting
939 VARIABLE, otherwise `set-default' is used.
952 (custom-push-theme 'theme-value variable 'user 'set (custom-quote value))
953 (funcall (or (get variable 'custom-set) 'set-default) variable value)
968 If VARIABLE has a `custom-set' property, that is used for setting
969 VARIABLE, otherwise `set-default' is used.
981 (funcall (or (get variable 'custom-set) 'set-default) variable value)
983 (custom-push-theme 'theme-value variable 'user 'set (custom-quote value))
997 "Select a customization buffer which you can use to set user options.
1323 "Customize all user options set in this session but not saved."
1336 (error "No user options are set but unsaved")
1523 (defvar custom-button-mouse nil
1536 :set (lambda (variable value)
1537 (custom-set-default variable value)
1540 (setq custom-button-mouse
1541 (if value 'custom-button-mouse 'highlight))
1555 %s buttons; type RET or click mouse-1 to actuate one.
1562 Use the setting's State button to set it or save changes in it.
1587 (Custom-set)))
1610 :mouse-down-action (lambda (&rest junk) t)
1694 %s buttons; type RET or click mouse-1
1817 :follow-link 'mouse-face
1819 :mouse-face 'highlight
1830 (defface custom-invalid '((((class color))
1839 (defface custom-rogue '((((class color))
1848 (defface custom-modified '((((min-colors 88) (class color))
1850 (((class color))
1859 (defface custom-set '((((min-colors 88) (class color))
1861 (((class color))
1865 "Face used when the customize item has been set."
1868 (put 'custom-set-face 'face-alias 'custom-set)
1870 (defface custom-changed '((((min-colors 88) (class color))
1872 (((class color))
1881 (defface custom-themed '((((min-colors 88) (class color))
1883 (((class color))
1887 "Face used when the customize item has been set by a theme."
1905 INVALID, the displayed value cannot be set.")
1907 EDITED, shown value does not take effect until you set or save it." "\
1908 something in this group has been edited but not set.")
1909 (set "+" custom-set "\
1911 something in this group has been set but not saved.")
1916 SAVED and set." "\
1917 something in this group has been set and saved.")
1942 `set'
1943 This item has been set but not saved.
1980 :type '(set (const group) (const option) (const face))
1997 (defun widget-magic-mouse-down-action (widget &optional event)
2036 :mouse-down-action 'widget-magic-mouse-down-action
2062 :mouse-down-action 'widget-magic-mouse-down-action
2078 (widget-value-set magic (widget-value magic))))
2083 '((((type x w32 mac) (class color)) ; Like default modeline
2094 (defface custom-button-mouse
2095 '((((type x w32 mac) (class color))
2113 (setq custom-button-mouse
2114 (if custom-raised-buttons 'custom-button-mouse 'highlight))
2117 '((((type x w32 mac) (class color))
2130 (((class color) (background light)) :foreground "magenta4")
2131 (((class color) (background dark)) :foreground "violet"))
2147 (defface custom-state '((((class color)
2150 (((class color)
2207 (widget-value-set widget (widget-value widget))
2223 (widget-value-set magic (widget-value magic))
2302 :mouse-face 'highlight
2349 :mouse-face 'highlight
2373 (((class grayscale color)
2376 (((class grayscale color)
2389 '((((class color) (background dark)) (:foreground "gray80"))
2390 (((class color) (background light)) (:foreground "blue4"))
2440 `((((class color)
2443 (((min-colors 88) (class color)
2446 (((class color)
2471 becomes buffer local when set, append a message to that effect."
2472 (if (and (local-variable-if-set-p variable)
2475 (local-variable-if-set-p variable))))
2478 This variable automatically becomes buffer-local when set outside Custom.
2493 :custom-set 'custom-variable-set
2611 :mouse-down-action 'custom-tag-mouse-down-action
2666 (custom-variable-state-set widget))
2678 (defun custom-tag-mouse-down-action (widget &rest args)
2679 "Pass :mouse-down-action to first child of WIDGET's parent."
2681 :mouse-down-action args))
2683 (defun custom-variable-state-set (widget)
2701 'set
2722 ;; The value was originally set outside
2723 ;; custom, but it was set to the standard
2743 `(("Set for Current Session" custom-variable-set
2750 '(modified set changed rogue))))))
2760 '(modified set changed rogue)))))
2766 '(modified set changed saved rogue)))))))
2792 (custom-variable-state-set widget))
2816 (defun custom-variable-set (widget)
2822 (set (or (get symbol 'custom-set) 'set-default))
2827 (error "Cannot set hidden variable"))
2838 'set (custom-quote (widget-value child)))
2839 (funcall set symbol (eval (setq val (widget-value child))))
2850 'set (custom-quote (widget-value child)))
2851 (funcall set symbol (setq val (widget-value child)))
2855 (custom-variable-state-set widget)
2864 (set (or (get symbol 'custom-set) 'set-default))
2869 (error "Cannot set hidden variable"))
2880 'set (custom-quote (widget-value child)))
2881 (funcall set symbol (eval (widget-value child)))
2892 'set (custom-quote (widget-value child)))
2893 (funcall set symbol (widget-value child))
2899 (custom-variable-state-set widget)
2908 (set (or (get symbol 'custom-set) 'set-default))
2914 (custom-push-theme 'theme-value symbol 'user 'set (car-safe value))
2916 (funcall set symbol (eval (car value)))
2967 (set (or (get symbol 'custom-set) 'set-default))
2974 (custom-push-theme 'theme-value symbol 'user 'set value)
2976 (funcall set symbol (car value))
2982 (custom-variable-state-set widget)
3070 (widget-value-set widget (car inactive))
3140 Only match the frames with the specified color support.")
3147 Match color frames.")
3148 color)
3155 Match frames with no color support.")
3207 :custom-set 'custom-face-set
3232 (not (face-spec-set-match-display value (selected-frame))))
3411 (custom-face-state-set widget)
3417 `(("Set for Current Session" custom-face-set)
3468 (defun custom-face-state-set (widget)
3479 'set
3499 ;; If the user called set-face-attribute to change the default
3500 ;; for new frames, this face is "set outside of Customize".
3521 (defun custom-face-set (widget)
3533 (custom-push-theme 'theme-face symbol 'user 'set value)
3535 (face-spec-set symbol value)
3536 ;; face-set-spec ignores empty attribute lists, so just give it
3538 (face-spec-set symbol '((t :foreground unspecified))))
3541 (custom-face-state-set widget)
3555 (custom-push-theme 'theme-face symbol 'user 'set value)
3557 (face-spec-set symbol value)
3558 ;; face-set-spec ignores empty attribute lists, so just give it
3560 (face-spec-set symbol '((t :foreground unspecified))))
3568 (custom-face-state-set widget)
3586 (custom-push-theme 'theme-face symbol 'user 'set value)
3587 (face-spec-set symbol value)
3589 (widget-value-set child value)
3591 (widget-value-set comment-widget (or comment ""))
3592 (custom-face-state-set widget)
3611 (face-spec-set symbol value)
3618 (widget-value-set child
3623 (widget-value-set comment-widget "")
3624 (custom-face-state-set widget)
3679 :set (lambda (symbol value)
3707 :mouse-face 'highlight
3711 :follow-link 'mouse-face
3729 `((((class color)
3732 (((min-colors 88) (class color)
3735 (((class color)
3745 `((((class color)
3748 (((min-colors 88) (class color)
3751 (((class color)
3769 :custom-set 'custom-group-set
4024 `(("Set for Current Session" custom-group-set
4030 (memq (widget-get widget :custom-state) '(modified set))))))
4036 (memq (widget-get widget :custom-state) '(modified set))))
4040 (memq (widget-get widget :custom-state) '(modified set saved)))))))
4063 (defun custom-group-set (widget)
4068 (widget-apply child :custom-set)))
4075 (when (memq (widget-get child :custom-state) '(modified set))
4088 "Reset all modified or set group members."
4091 (when (memq (widget-get child :custom-state) '(modified set))
4096 "Reset all modified, set, or saved group members."
4100 '(modified set saved))
4133 You can set this option through Custom, if you carefully read the
4145 forms `(custom-set-variables ...)' and `(custom-set-faces ...)',
4152 `custom-set-variables' and `custom-set-faces' forms already
4158 and hence will not set `custom-file' to that file either."
4214 "Save all user options which have been set in this session."
4224 (custom-push-theme 'theme-face symbol 'user 'set value)
4228 (custom-push-theme 'theme-value symbol 'user 'set value)
4284 (custom-save-delete 'custom-set-variables)
4299 (princ "(custom-set-variables
4300 ;; custom-set-variables was added by Custom.
4326 ;; NOW if non-nil means always set the variable immediately
4359 (custom-save-delete 'custom-set-faces)
4375 (princ "(custom-set-faces
4376 ;; custom-set-faces was added by Custom.
4514 ["Set" Custom-set t]
4523 (define-key map "\C-c\C-c" 'Custom-set)
4561 Invoke button under the mouse pointer. \\[widget-button-click]
4563 Set all options from current text. \\[Custom-set]
4567 Erase customizations; set options
4588 (set (make-local-variable 'widget-button-click-moves-point) t)
4590 (set (make-local-variable 'widget-button-pressed-face) custom-button-pressed)
4591 (set (make-local-variable 'widget-mouse-face) custom-button-mouse)
4596 (set (make-local-variable 'widget-push-button-prefix) "")
4597 (set (make-local-variable 'widget-push-button-suffix) "")
4598 (set (make-local-variable 'widget-link-prefix) "")
4599 (set (make-local-variable 'widget-link-suffix) ""))
4611 "^Cannot set hidden variable"