Mercurial > hg > xemacs-beta

comparison lisp/custom.el @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents cc15677e0335
children 74fd4e045ea6
comparison
equal deleted inserted replaced
379:76b7d63099ad 380:8626e4521993
282 282
283 Read the section about customization in the Emacs Lisp manual for more 283 Read the section about customization in the Emacs Lisp manual for more
284 information." 284 information."
285 `(custom-declare-group (quote ,symbol) ,members ,doc ,@args)) 285 `(custom-declare-group (quote ,symbol) ,members ,doc ,@args))
286 286
287 ;; This is preloaded very early, so we avoid using CL features. 287 (defvar custom-group-hash-table (make-hash-table :size 300 :test 'eq)
288 (defvar custom-group-hash-table (make-hashtable 300 'eq)
289 "Hash-table of non-empty groups.") 288 "Hash-table of non-empty groups.")
290 289
291 (defun custom-add-to-group (group option widget) 290 (defun custom-add-to-group (group option widget)
292 "To existing GROUP add a new OPTION of type WIDGET. 291 "To existing GROUP add a new OPTION of type WIDGET.
293 If there already is an entry for that option, overwrite it." 292 If there already is an entry for that option, overwrite it."