Mercurial > hg > xemacs-beta

comparison lisp/prim/cus-start.el @ 153:25f70ba0133c r20-3b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b3
author cvs
date Mon, 13 Aug 2007 09:38:25 +0200
parents 1856695b1fa9
children 0132846995bd
comparison
equal deleted inserted replaced
152:4c132ee2d62b 153:25f70ba0133c
141 ;; This is loaded so early, there is no message 141 ;; This is loaded so early, there is no message
142 (if (fboundp 'message) 142 (if (fboundp 'message)
143 ;; If variables are removed from C code, give an error here! 143 ;; If variables are removed from C code, give an error here!
144 (message "Intrinsic `%S' not bound" symbol)) 144 (message "Intrinsic `%S' not bound" symbol))
145 ;; This is called before any user can have changed the value. 145 ;; This is called before any user can have changed the value.
146 (put symbol 'factory-value 146 (put symbol 'standard-value
147 (list (custom-start-quote (default-value symbol)))) 147 (list (custom-start-quote (default-value symbol))))
148 ;; Add it to the right group. 148 ;; Add it to the right group.
149 (custom-add-to-group group symbol 'custom-variable) 149 (custom-add-to-group group symbol 'custom-variable)
150 ;; Set the type. 150 ;; Set the type.
151 (put symbol 'custom-type type)))) 151 (put symbol 'custom-type type))))