Mercurial > hg > xemacs-beta

comparison lisp/custom/custom.el @ 118:7d55a9ba150c r20-1b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b11
author cvs
date Mon, 13 Aug 2007 09:24:17 +0200
parents 9f59509498e1
children cca96a509cfe
comparison
equal deleted inserted replaced
117:578fd4947a72 118:7d55a9ba150c
2 ;; 2 ;;
3 ;; Copyright (C) 1996, 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1996, 1997 Free Software Foundation, Inc.
4 ;; 4 ;;
5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> 5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
6 ;; Keywords: help, faces 6 ;; Keywords: help, faces
7 ;; Version: 1.68 7 ;; Version: 1.69
8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/ 8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
9 9
10 ;;; Commentary: 10 ;;; Commentary:
11 ;; 11 ;;
12 ;; If you want to use this code, please visit the URL above. 12 ;; If you want to use this code, please visit the URL above.
127 Alternatively, ATTS can be a face in which case the attributes of that 127 Alternatively, ATTS can be a face in which case the attributes of that
128 face is used. 128 face is used.
129 129
130 The ATTS of the first entry in SPEC where the DISPLAY matches the 130 The ATTS of the first entry in SPEC where the DISPLAY matches the
131 frame should take effect in that frame. DISPLAY can either be the 131 frame should take effect in that frame. DISPLAY can either be the
132 symbol `t', which will match all frames, or an alist of the form 132 symbol t, which will match all frames, or an alist of the form
133 \((REQ ITEM...)...) 133 \((REQ ITEM...)...)
134 134
135 For the DISPLAY to match a FRAME, the REQ property of the frame must 135 For the DISPLAY to match a FRAME, the REQ property of the frame must
136 match one of the ITEM. The following REQ are defined: 136 match one of the ITEM. The following REQ are defined:
137 137
138 `type' (the value of (window-system)) 138 `type' (the value of `window-system')
139 Should be one of `x' or `tty'. 139 Should be one of `x' or `tty'.
140 140
141 `class' (the frame's color support) 141 `class' (the frame's color support)
142 Should be one of `color', `grayscale', or `mono'. 142 Should be one of `color', `grayscale', or `mono'.
143 143
196 Read the section about customization in the emacs lisp manual for more 196 Read the section about customization in the emacs lisp manual for more
197 information." 197 information."
198 `(custom-declare-group (quote ,symbol) ,members ,doc ,@args)) 198 `(custom-declare-group (quote ,symbol) ,members ,doc ,@args))
199 199
200 (defun custom-add-to-group (group option widget) 200 (defun custom-add-to-group (group option widget)
201 "To existing GROUP add a new OPTION of type WIDGET, 201 "To existing GROUP add a new OPTION of type WIDGET.
202 If there already is an entry for that option, overwrite it." 202 If there already is an entry for that option, overwrite it."
203 (let* ((members (get group 'custom-group)) 203 (let* ((members (get group 'custom-group))
204 (old (assq option members))) 204 (old (assq option members)))
205 (if old 205 (if old
206 (setcar (cdr old) widget) 206 (setcar (cdr old) widget)