Mercurial > hg > xemacs-beta

comparison lisp/cus-edit.el @ 213:78f53ef88e17 r20-4b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b5
author cvs
date Mon, 13 Aug 2007 10:06:47 +0200
parents 41ff10fd062f
children 1f0dabaa0855
comparison
equal deleted inserted replaced
212:d8688acf4c5b 213:78f53ef88e17
2105 x) 2105 x)
2106 (const :format "PM " 2106 (const :format "PM "
2107 :sibling-args (:help-echo "\ 2107 :sibling-args (:help-echo "\
2108 OS/2 Presentation Manager") 2108 OS/2 Presentation Manager")
2109 pm) 2109 pm)
2110 (const :format "Win32 " 2110 (const :format "MSWindows "
2111 :sibling-args (:help-echo "\ 2111 :sibling-args (:help-echo "\
2112 Windows NT/95/97") 2112 Windows NT/95/97")
2113 win32) 2113 mswindows)
2114 (const :format "DOS " 2114 (const :format "DOS "
2115 :sibling-args (:help-echo "\ 2115 :sibling-args (:help-echo "\
2116 Plain MS-DOS") 2116 Plain MS-DOS")
2117 pc) 2117 pc)
2118 (const :format "TTY%n" 2118 (const :format "TTY%n"
2385 (child (car (widget-get widget :children))) 2385 (child (car (widget-get widget :children)))
2386 (value (widget-value child))) 2386 (value (widget-value child)))
2387 (face-spec-set symbol value) 2387 (face-spec-set symbol value)
2388 (put symbol 'saved-face value) 2388 (put symbol 'saved-face value)
2389 (put symbol 'customized-face nil) 2389 (put symbol 'customized-face nil)
2390 (custom-save-all)
2390 (custom-face-state-set widget) 2391 (custom-face-state-set widget)
2391 (custom-redraw-magic widget))) 2392 (custom-redraw-magic widget)))
2392 2393
2393 (defun custom-face-reset-saved (widget) 2394 (defun custom-face-reset-saved (widget)
2394 "Restore WIDGET to the face's default attributes." 2395 "Restore WIDGET to the face's default attributes."
2919 (widget-put widget :custom-state found))) 2920 (widget-put widget :custom-state found)))
2920 (custom-magic-reset widget)) 2921 (custom-magic-reset widget))
2921 2922
2922 ;;; The `custom-save-all' Function. 2923 ;;; The `custom-save-all' Function.
2923 ;;;###autoload 2924 ;;;###autoload
2924 (defcustom custom-file (if (boundp 'emacs-user-extension-dir) 2925 (defcustom custom-file (if (boundp 'user-init-directory)
2925 (concat "~" 2926 (concat "~"
2926 init-file-user 2927 init-file-user
2927 emacs-user-extension-dir 2928 user-init-directory
2928 "options.el") 2929 "options.el")
2929 "~/.emacs") 2930 "~/.emacs")
2930 "File used for storing customization information. 2931 "File used for storing customization information.
2931 If you change this from the default \"~/.emacs\" you need to 2932 If you change this from the default \"~/.emacs\" you need to
2932 explicitly load that file for the settings to take effect." 2933 explicitly load that file for the settings to take effect."