Lines Matching +defs:message +defs:options +defs:set
46 ;; property. Similarly, set-default (or the 'custom-set' property)
47 ;; can set it.
109 ;; 3. set
302 "Internationalization and alternate character-set support."
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)
763 (defvar custom-options nil
766 (defun Custom-set ()
769 (let ((children custom-options))
776 (widget-apply child :custom-set)))
778 (message "Aborted"))))
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.
785 (let ((children custom-options))
793 '(modified set changed rogue))
797 (message "Aborted"))))
820 (let ((children custom-options))
830 (message "Aborted"))))
833 "Reset all edited or set settings in the buffer to their saved value.
836 (let ((children custom-options))
843 '(modified set changed rogue))
846 (message "Aborted"))))
854 (let ((children custom-options))
864 '(modified set changed saved rogue))
867 (message "Aborted"))))
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.
998 User options are structured into \"groups\".
1006 "Customize options related to the current major mode.
1095 (message "`%s' is an alias for `%s'" symbol basevar))))
1112 (message "`%s' is an alias for `%s'" symbol basevar))))
1114 (defvar customize-changed-options-previous-release "21.1"
1115 "Version for `customize-changed-options' to refer back to by default.")
1147 the user might see the value in a error message, a good choice is
1151 (defalias 'customize-changed 'customize-changed-options)
1154 (defun customize-changed-options (since-version)
1157 customization groups, as well as older options and faces whose meanings
1166 (format "Customize options changed, since version (default %s): "
1167 customize-changed-options-previous-release))))
1175 (setq since-version customize-changed-options-previous-release))
1217 ;; Use message instead of error since we want user to be able to
1221 (message "Invalid package-version value for %s" symbol))
1227 (message "%s version %s not found in %s" symbol
1231 (message "Package %s version %s lists no corresponding Emacs version"
1323 "Customize all user options set in this session but not saved."
1336 (error "No user options are set but unsaved")
1356 (error "No rogue user options")
1361 "Customize all already saved user options."
1374 (error "No saved user options")
1380 "Customize all loaded options, faces and groups matching REGEXP.
1381 If ALL is `options', include only options.
1385 that are not customizable options, as well as faces and groups
1391 (when (and (not (memq all '(faces options)))
1394 (when (and (not (memq all '(options groups)))
1402 (and (not (memq all '(nil options)))
1412 (defun customize-apropos-options (regexp &optional arg)
1413 "Customize all loaded customizable options matching REGEXP.
1414 With prefix arg, include variables that are not customizable options
1417 (customize-apropos regexp (or arg 'options)))
1480 (defun custom-buffer-create (options &optional name description)
1487 (custom-buffer-create-internal options description))
1490 (defun custom-buffer-create-other-window (options &optional name description)
1502 (custom-buffer-create-internal options description)))
1536 :set (lambda (variable value)
1537 (custom-set-default variable value)
1547 (defun custom-buffer-create-internal (options &optional description)
1562 Use the setting's State button to set it or save changes in it.
1587 (Custom-set)))
1642 (message "Creating customization items...")
1644 (setq custom-options
1645 (if (= (length options) 1)
1653 options)
1655 (length (length options)))
1658 (message "Creating customization items ...%2d%%"
1668 options))))
1671 (message "Creating customization items ...done")
1672 (message "Resetting customization items...")
1674 (mapc 'custom-magic-reset custom-options))
1675 (message "Resetting customization items...done")
1676 (message "Creating customization setup...")
1680 (message "Creating customization setup...done"))
1859 (defface custom-set '((((min-colors 88) (class color))
1865 "Face used when the customize item has been set."
1868 (put 'custom-set-face 'face-alias 'custom-set)
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.
1957 ITEM-DESC is a string describing the state for options.
1980 :type '(set (const group) (const option) (const face))
2078 (widget-value-set magic (widget-value magic))))
2207 (widget-value-set widget (widget-value widget))
2223 (widget-value-set magic (widget-value magic))
2257 (message nil))
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
2508 (options (get symbol 'custom-options))
2512 (when options
2513 (widget-put tmp :options options))
2666 (custom-variable-state-set widget))
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))
3207 :custom-set 'custom-face-set
3232 (not (face-spec-set-match-display value (selected-frame))))
3377 (message "Creating face editor...")
3411 (custom-face-state-set widget)
3414 (message "Creating face editor...done"))))))
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)
3687 ;; Handle `:options'.
3688 (let* ((options (widget-get widget :options))
3692 (args (if options
3696 options))
3769 :custom-set 'custom-group-set
3868 (message "Creating group...")
3893 (message "Creating group...done")))
3984 (message "Creating group...")
3994 (message "\
4010 (message "Creating group magic...")
4012 (message "Creating group state...")
4015 (message "Creating group... done"))
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.
4316 (message "Unknown requested feature: %s" request)
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)
4546 (defun custom-state-buffer-message (widget)
4548 (message "To install your edits, invoke [State] and choose the Set operation")))
4563 Set all options from current text. \\[Custom-set]
4566 Reset options to permanent settings. \\[Custom-reset-saved]
4567 Erase customizations; set options
4577 (make-local-variable 'custom-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) ""))
4600 (add-hook 'widget-edit-functions 'custom-state-buffer-message nil t)
4608 "^No \\(?:customized\\|rogue\\|saved\\) user options"
4611 "^Cannot set hidden variable"