comparison lisp/cus-edit.el @ 68343:05dbd20a248e

(custom-buffer-create-internal): Use widget type `custom-manual' instead of `info-link' and don't set properties `button-face' and `mouse-face' explicitly. (custom-browse-group-tag, custom-browse-variable-tag) (custom-browse-face-tag): Inherit from widget class `custom-group-link' instead of `push-button'. (custom-button-unraised): Inherit from `underline' face. (custom-link): Inherit from `link' face. Fix doc and group. (custom-add-parent-links, custom-group-value-create): Don't set properties `button-face' and `mouse-face' explicitly for `custom-group-link' widget. (custom-group-link): Add properties `button-face' and `mouse-face' to widget definition. (custom-field-keymap): New variable. Put `custom-field-keymap' to editable-field's :keymap property. (custom-mode): Fix docstring: substitute keybindings for `widget-forward' and `widget-backward' from `widget-keymap', `widget-complete' from `custom-field-keymap', replace old `Custom-move-and-invoke' with `widget-move-and-invoke'. Untabify.

68342:e3989d3241d5

Saving a change normally works by editing your Emacs init file.
See "
			       (if custom-raised-buttons
				   "`Raised' text indicates"
				 "Square brackets indicate")))
	(widget-create 'info-link
		       :tag "Custom file"
		       :button-face 'custom-link
		       :mouse-face 'highlight
		       "(emacs)Saving Customizations")
	(widget-insert
	 " for information on how to save in a different file.\n
See ")
	(widget-create 'info-link
		       :tag "Help"
		       :button-face 'custom-link
		       :mouse-face 'highlight
		       :help-echo "Read the online help."
		       "(emacs)Easy Customization")
	(widget-insert " for more information.\n\n")
	(widget-insert "Operate on all settings in this buffer that \
are not marked HIDDEN:\n "))

		 :action (lambda (widget &optional event)
			   (Custom-set)))
  (if (not custom-buffer-verbose-help)
      (progn
	(widget-insert " ")
	(widget-create 'info-link
		       :tag "Help"
		       :button-face 'custom-link
		       :mouse-face 'highlight
		       :help-echo "Read the online help."
		       "(emacs)Easy Customization")))
  (when (or custom-file user-init-file)
    (widget-insert " ")
    (widget-create 'push-button

(defun custom-browse-visibility-action (widget &rest ignore)
  (let ((custom-buffer-style 'tree))
    (custom-toggle-parent widget)))

(define-widget 'custom-browse-group-tag 'push-button
  "Show parent in other window when activated."
  :tag "Group"
  :tag-glyph "folder"
  :action 'custom-browse-group-tag-action)

(defun custom-browse-group-tag-action (widget &rest ignore)
  (let ((parent (widget-get widget :parent)))
    (customize-group-other-window (widget-value parent))))

(define-widget 'custom-browse-variable-tag 'push-button
  "Show parent in other window when activated."
  :tag "Option"
  :tag-glyph "option"
  :action 'custom-browse-variable-tag-action)

(defun custom-browse-variable-tag-action (widget &rest ignore)
  (let ((parent (widget-get widget :parent)))
    (customize-variable-other-window (widget-value parent))))

(define-widget 'custom-browse-face-tag 'push-button
  "Show parent in other window when activated."
  :tag "Face"
  :tag-glyph "face"
  :action 'custom-browse-face-tag-action)

  "Mouse face for custom buffer buttons if `custom-raised-buttons' is non-nil."
  :version "22.1"
  :group 'custom-faces)

(defface custom-button-unraised
  '((((min-colors 88)
      (class color) (background light)) :foreground "blue1" :underline t)
    (((class color) (background light)) :foreground "blue" :underline t)
    (((min-colors 88)
      (class color) (background dark)) :foreground "cyan1" :underline t)
    (((class color) (background dark)) :foreground "cyan" :underline t)
    (t :underline t))
  "Face for custom buffer buttons if `custom-raised-buttons' is nil."
  :version "22.1"
  :group 'custom-faces)

(setq custom-button

  :group 'custom-faces)
;; backward-compatibility alias
(put 'custom-state-face 'face-alias 'custom-state)

(defface custom-link
  '((((min-colors 88)
      (class color) (background light)) :foreground "blue1" :underline t)
    (((class color) (background light)) :foreground "blue" :underline t)
    (((min-colors 88)
      (class color) (background dark)) :foreground "cyan1" :underline t)
    (((class color) (background dark)) :foreground "cyan" :underline t)
    (t :underline t))
  "Face for Info links in customization buffers."
  :group 'info)

(define-widget 'custom 'default
  "Customize a user option."
  :format "%v"
  :convert-widget 'custom-convert-widget

    (mapatoms (lambda (symbol)
		(when (member (list name type) (get symbol 'custom-group))
		  (insert " ")
		  (push (widget-create-child-and-convert
			 widget 'custom-group-link
			 :button-face 'custom-link
			 :mouse-face 'highlight
			 :tag (custom-unlispify-tag-name symbol)
			 symbol)
			buttons)
		  (setq parents (cons symbol parents)))))
    (and (null (get name 'custom-links)) ;No links of its own.

;;; The `custom-group-link' Widget.

(define-widget 'custom-group-link 'link
  "Show parent in other window when activated."
  :help-echo "Create customization buffer for this group."
  :action 'custom-group-link-action)

(defun custom-group-link-action (widget &rest ignore)
  (customize-group (widget-value widget)))

	   (insert " group: ")
	   ;; Create link/visibility indicator.
	   (if (eq custom-buffer-style 'links)
	       (push (widget-create-child-and-convert
		      widget 'custom-group-link
		      :button-face 'custom-link
		      :mouse-face 'highlight
		      :tag "Go to Group"
		      symbol)
		     buttons)
	     (push (widget-create-child-and-convert
		    widget 'custom-group-visibility

    ["Undo Edits" Custom-reset-current t]
    ["Reset to Saved" Custom-reset-saved t]
    ["Erase Customization" Custom-reset-standard t]
    ["Info" (info "(emacs)Easy Customization") t]))

(defun Custom-goto-parent ()
  "Go to the parent group listed at the top of this buffer.
If several parents are listed, go to the first of them."
  (interactive)
  (save-excursion

(defun custom-mode ()
  "Major mode for editing customization buffers.

The following commands are available:

Move to next button or editable field.     \\[widget-forward]
Move to previous button or editable field. \\[widget-backward]
\\<widget-field-keymap>\
Complete content of editable text field.   \\[widget-complete]
\\<custom-mode-map>\
Invoke button under the mouse pointer.     \\[Custom-move-and-invoke]
Invoke button under point.		   \\[widget-button-press]
Set all options from current text.         \\[Custom-set]
Make values in current text permanent.     \\[Custom-save]
Make text match actual option values.	   \\[Custom-reset-current]
Reset options to permanent settings.	   \\[Custom-reset-saved]
Erase customizations; set options
  and buffer text to the standard values.  \\[Custom-reset-standard]

Entry to this mode calls the value of `custom-mode-hook'
if that value is non-nil."

68343:05dbd20a248e

Saving a change normally works by editing your Emacs init file.
See "
			       (if custom-raised-buttons
				   "`Raised' text indicates"
				 "Square brackets indicate")))
	(widget-create 'custom-manual
		       :tag "Custom file"
		       "(emacs)Saving Customizations")
	(widget-insert
	 " for information on how to save in a different file.\n
See ")
	(widget-create 'custom-manual
		       :tag "Help"
		       :help-echo "Read the online help."
		       "(emacs)Easy Customization")
	(widget-insert " for more information.\n\n")
	(widget-insert "Operate on all settings in this buffer that \
are not marked HIDDEN:\n "))

		 :action (lambda (widget &optional event)
			   (Custom-set)))
  (if (not custom-buffer-verbose-help)
      (progn
	(widget-insert " ")
	(widget-create 'custom-manual
		       :tag "Help"
		       :help-echo "Read the online help."
		       "(emacs)Easy Customization")))
  (when (or custom-file user-init-file)
    (widget-insert " ")
    (widget-create 'push-button

(defun custom-browse-visibility-action (widget &rest ignore)
  (let ((custom-buffer-style 'tree))
    (custom-toggle-parent widget)))

(define-widget 'custom-browse-group-tag 'custom-group-link
  "Show parent in other window when activated."
  :tag "Group"
  :tag-glyph "folder"
  :action 'custom-browse-group-tag-action)

(defun custom-browse-group-tag-action (widget &rest ignore)
  (let ((parent (widget-get widget :parent)))
    (customize-group-other-window (widget-value parent))))

(define-widget 'custom-browse-variable-tag 'custom-group-link
  "Show parent in other window when activated."
  :tag "Option"
  :tag-glyph "option"
  :action 'custom-browse-variable-tag-action)

(defun custom-browse-variable-tag-action (widget &rest ignore)
  (let ((parent (widget-get widget :parent)))
    (customize-variable-other-window (widget-value parent))))

(define-widget 'custom-browse-face-tag 'custom-group-link
  "Show parent in other window when activated."
  :tag "Face"
  :tag-glyph "face"
  :action 'custom-browse-face-tag-action)

  "Mouse face for custom buffer buttons if `custom-raised-buttons' is non-nil."
  :version "22.1"
  :group 'custom-faces)

(defface custom-button-unraised
  '((t :inherit underline))
  "Face for custom buffer buttons if `custom-raised-buttons' is nil."
  :version "22.1"
  :group 'custom-faces)

(setq custom-button

  :group 'custom-faces)
;; backward-compatibility alias
(put 'custom-state-face 'face-alias 'custom-state)

(defface custom-link
  '((t :inherit link))
  "Face for links in customization buffers."
  :version "22.1"
  :group 'custom-faces)

(define-widget 'custom 'default
  "Customize a user option."
  :format "%v"
  :convert-widget 'custom-convert-widget

    (mapatoms (lambda (symbol)
		(when (member (list name type) (get symbol 'custom-group))
		  (insert " ")
		  (push (widget-create-child-and-convert
			 widget 'custom-group-link
			 :tag (custom-unlispify-tag-name symbol)
			 symbol)
			buttons)
		  (setq parents (cons symbol parents)))))
    (and (null (get name 'custom-links)) ;No links of its own.

;;; The `custom-group-link' Widget.

(define-widget 'custom-group-link 'link
  "Show parent in other window when activated."
  :button-face 'custom-link
  :mouse-face 'highlight
  :help-echo "Create customization buffer for this group."
  :action 'custom-group-link-action)

(defun custom-group-link-action (widget &rest ignore)
  (customize-group (widget-value widget)))

	   (insert " group: ")
	   ;; Create link/visibility indicator.
	   (if (eq custom-buffer-style 'links)
	       (push (widget-create-child-and-convert
		      widget 'custom-group-link
		      :tag "Go to Group"
		      symbol)
		     buttons)
	     (push (widget-create-child-and-convert
		    widget 'custom-group-visibility

    ["Undo Edits" Custom-reset-current t]
    ["Reset to Saved" Custom-reset-saved t]
    ["Erase Customization" Custom-reset-standard t]
    ["Info" (info "(emacs)Easy Customization") t]))

(defvar custom-field-keymap
  (let ((map (copy-keymap widget-field-keymap)))
    (define-key map "\C-c\C-c" 'Custom-set)
    (define-key map "\C-x\C-s" 'Custom-save)
    map)
  "Keymap used inside editable fields in customization buffers.")

(widget-put (get 'editable-field 'widget-type) :keymap custom-field-keymap)

(defun Custom-goto-parent ()
  "Go to the parent group listed at the top of this buffer.
If several parents are listed, go to the first of them."
  (interactive)
  (save-excursion

(defun custom-mode ()
  "Major mode for editing customization buffers.

The following commands are available:

\\<widget-keymap>\
Move to next button, link or editable field.     \\[widget-forward]
Move to previous button, link or editable field. \\[widget-backward]
\\<custom-field-keymap>\
Complete content of editable text field.   \\[widget-complete]
\\<custom-mode-map>\
Invoke button under the mouse pointer.     \\[widget-move-and-invoke]
Invoke button under point.                 \\[widget-button-press]
Set all options from current text.         \\[Custom-set]
Make values in current text permanent.     \\[Custom-save]
Make text match actual option values.      \\[Custom-reset-current]
Reset options to permanent settings.       \\[Custom-reset-saved]
Erase customizations; set options
  and buffer text to the standard values.  \\[Custom-reset-standard]

Entry to this mode calls the value of `custom-mode-hook'
if that value is non-nil."