Mercurial > hg > xemacs-beta

comparison lisp/custom.el @ 217:d44af0c54775 r20-4b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b7
author cvs
date Mon, 13 Aug 2007 10:08:34 +0200
parents 41ff10fd062f
children 2c611d1463a6
comparison
equal deleted inserted replaced
216:43306a74e31c 217:d44af0c54775
143 (custom-handle-keyword symbol keyword value 143 (custom-handle-keyword symbol keyword value
144 'custom-variable)))))) 144 'custom-variable))))))
145 (put symbol 'custom-requests requests) 145 (put symbol 'custom-requests requests)
146 ;; Do the actual initialization. 146 ;; Do the actual initialization.
147 (funcall initialize symbol value)) 147 (funcall initialize symbol value))
148 ;; #### This is a rough equivalent of LOADHIST_ATTACH. However,
149 ;; LOADHIST_ATTACH also checks for `initialized'.
150 (push symbol current-load-list)
148 (run-hooks 'custom-define-hook) 151 (run-hooks 'custom-define-hook)
149 symbol) 152 symbol)
150 153
151 (defmacro defcustom (symbol value doc &rest args) 154 (defmacro defcustom (symbol value doc &rest args)
152 "Declare SYMBOL as a customizable variable that defaults to VALUE. 155 "Declare SYMBOL as a customizable variable that defaults to VALUE.