comparison lisp/cus-edit.el @ 90609:bb0e318b7c53

Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 447-459) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 141-144) - Merge from emacs--devo--0 - Update from CVS Revision: [e-mail]/emacs--unicode--0--patch-115

90608:1bc627bac080

	(widget-insert "This is a customization buffer")
	(if description
	    (widget-insert description))
	(widget-insert (format ".
%s buttons; type RET or click mouse-1 to actuate one.
Editing a setting changes only the text in the buffer.
Use the setting's State button to set it or save changes in it.
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

					    (regexp-quote (custom-file))
					    "\\'")
				    recentf-exclude)))
	 (old-buffer (find-buffer-visiting filename)))
    (with-current-buffer (or old-buffer (find-file-noselect filename))
      (let ((inhibit-read-only t))
	(custom-save-variables)
	(custom-save-faces))
      (let ((file-precious-flag t))
	(save-buffer))

  (make-local-variable 'custom-local-buffer)
  (make-local-variable 'widget-documentation-face)
  (setq widget-documentation-face 'custom-documentation)
  (make-local-variable 'widget-button-face)
  (setq widget-button-face custom-button)
  (set (make-local-variable 'widget-button-pressed-face) custom-button-pressed)
  (set (make-local-variable 'widget-mouse-face) custom-button-mouse)

  ;; When possible, use relief for buttons, not bracketing.  This test
  ;; may not be optimal.

90609:bb0e318b7c53

	(widget-insert "This is a customization buffer")
	(if description
	    (widget-insert description))
	(widget-insert (format ".
%s buttons; type RET or click mouse-1 to actuate one.
Editing a setting changes only the text in the buffer."
			       (if custom-raised-buttons
				   "`Raised' text indicates"
				 "Square brackets indicate")))
	(if init-file-user
	    (widget-insert "
Use the setting's State button to set it or save changes in it.
Saving a change normally works by editing your Emacs init file.")
	    (widget-insert "
\nSince you started Emacs with `-q', which inhibits use of the
Emacs init file, you cannot save settings into the Emacs init file."))
	(widget-insert "\nSee ")
	(widget-create 'custom-manual
		       :tag "Custom file"
		       "(emacs)Saving Customizations")
	(widget-insert
	 " for information on how to save in a different file.\n

					    (regexp-quote (custom-file))
					    "\\'")
				    recentf-exclude)))
	 (old-buffer (find-buffer-visiting filename)))
    (with-current-buffer (or old-buffer (find-file-noselect filename))
      (unless (eq major-mode 'emacs-lisp-mode)
	(emacs-lisp-mode))
      (let ((inhibit-read-only t))
	(custom-save-variables)
	(custom-save-faces))
      (let ((file-precious-flag t))
	(save-buffer))

  (make-local-variable 'custom-local-buffer)
  (make-local-variable 'widget-documentation-face)
  (setq widget-documentation-face 'custom-documentation)
  (make-local-variable 'widget-button-face)
  (setq widget-button-face custom-button)

  ;; We need this because of the "More" button on docstrings.
  ;; Otherwise clicking on "More" can push point offscreen, which
  ;; causes the window to recenter on point, which pushes the
  ;; newly-revealed docstring offscreen; which is annoying.  -- cyd.
  (set (make-local-variable 'widget-button-click-moves-point) t)

  (set (make-local-variable 'widget-button-pressed-face) custom-button-pressed)
  (set (make-local-variable 'widget-mouse-face) custom-button-mouse)

  ;; When possible, use relief for buttons, not bracketing.  This test
  ;; may not be optimal.