Mercurial > hg > xemacs-beta

comparison lisp/cus-start.el @ 223:2c611d1463a6 r20-4b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b10
author cvs
date Mon, 13 Aug 2007 10:10:54 +0200
parents 262b8bb4a523
children 90d73dddcdc4
comparison
equal deleted inserted replaced
222:aae4c8b01452 223:2c611d1463a6
160 ;; These are from replace.el, which is loaded too early 160 ;; These are from replace.el, which is loaded too early
161 ;; to be customizable. 161 ;; to be customizable.
162 (case-replace matching boolean) 162 (case-replace matching boolean)
163 (query-replace-highlight matching boolean) 163 (query-replace-highlight matching boolean)
164 (list-matching-lines-default-context-lines matching integer))) 164 (list-matching-lines-default-context-lines matching integer)))
165 this symbol group type 165 this symbol group type)
166 (quoter (lambda (sexp)
167 ;; A copy of `custom-quote'
168 (if (or (memq sexp '(t nil))
169 (keywordp sexp)
170 (eq (car-safe sexp) 'lambda)
171 (stringp sexp)
172 (numberp sexp)
173 (characterp sexp))
174 sexp
175 (list 'quote sexp)))))
176 (while all 166 (while all
177 (setq this (car all) 167 (setq this (car all)
178 all (cdr all) 168 all (cdr all)
179 symbol (nth 0 this) 169 symbol (nth 0 this)
180 group (nth 1 this) 170 group (nth 1 this)
184 (if (fboundp 'message) 174 (if (fboundp 'message)
185 ;; If variables are removed from C code, give an error here! 175 ;; If variables are removed from C code, give an error here!
186 (message "Intrinsic `%S' not bound" symbol)) 176 (message "Intrinsic `%S' not bound" symbol))
187 ;; This is called before any user can have changed the value. 177 ;; This is called before any user can have changed the value.
188 (put symbol 'standard-value 178 (put symbol 'standard-value
189 (list (funcall quoter (default-value symbol)))) 179 (list (quote-maybe (default-value symbol))))
190 ;; Add it to the right group. 180 ;; Add it to the right group.
191 (custom-add-to-group group symbol 'custom-variable) 181 (custom-add-to-group group symbol 'custom-variable)
192 ;; Set the type. 182 ;; Set the type.
193 (put symbol 'custom-type type)))) 183 (put symbol 'custom-type type))))
194 184