Mercurial > hg > xemacs-beta

comparison lisp/cus-edit.el @ 456:e7ef97881643 r21-2-43

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-43
author cvs
date Mon, 13 Aug 2007 11:41:24 +0200
parents 576fb035e263
children 6a8b2ec80a19
comparison
equal deleted inserted replaced
455:5b97c1cd6ed0 456:e7ef97881643
302 (format "Customize variable: (default %s) " v) 302 (format "Customize variable: (default %s) " v)
303 "Customize variable: ") 303 "Customize variable: ")
304 obarray (lambda (symbol) 304 obarray (lambda (symbol)
305 (and (boundp symbol) 305 (and (boundp symbol)
306 (or (get symbol 'custom-type) 306 (or (get symbol 'custom-type)
307 (user-variable-p symbol)))) t)) 307 (user-variable-p symbol))))
308 t nil nil (and v (symbol-name v))))
308 (list (if (equal val "") 309 (list (if (equal val "")
309 (if (symbolp v) v nil) 310 (if (symbolp v) v nil)
310 (intern val))))) 311 (intern val)))))
311 312
312 ;; Here we take not only the actual groups, but the loads, too. 313 ;; Here we take not only the actual groups, but the loads, too.