Mercurial > hg > xemacs-beta
comparison lisp/custom/custom.el @ 155:43dd3413c7c7 r20-3b4
Import from CVS: tag r20-3b4
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:39:39 +0200 |
parents | 25f70ba0133c |
children | 6b37e6ddd302 |
comparison
equal
deleted
inserted
replaced
154:94141801dd7e | 155:43dd3413c7c7 |
---|---|
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.98 | 7 ;; Version: 1.9907 |
8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/ | 8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/ |
9 | 9 |
10 ;; This file is part of GNU Emacs. | 10 ;; This file is part of GNU Emacs. |
11 | 11 |
12 ;; GNU Emacs is free software; you can redistribute it and/or modify | 12 ;; GNU Emacs is free software; you can redistribute it and/or modify |
35 ;; The code implementing face declarations is in `cus-face.el' | 35 ;; The code implementing face declarations is in `cus-face.el' |
36 | 36 |
37 ;;; Code: | 37 ;;; Code: |
38 | 38 |
39 (require 'widget) | 39 (require 'widget) |
40 (eval-when-compile (require 'cl)) | |
41 | 40 |
42 (define-widget-keywords :initialize :set :get :require :prefix :tag | 41 (define-widget-keywords :initialize :set :get :require :prefix :tag |
43 :load :link :options :type :group) | 42 :load :link :options :type :group) |
44 | 43 |
45 ;; These autoloads should be deleted eventually. | 44 ;; These autoloads should be deleted eventually. |
225 | 224 |
226 The remaining arguments should have the form | 225 The remaining arguments should have the form |
227 | 226 |
228 [KEYWORD VALUE]... | 227 [KEYWORD VALUE]... |
229 | 228 |
230 The following KEYWORD's are defined: | 229 The following KEYWORDs are defined: |
231 | 230 |
232 :group VALUE should be a customization group. | 231 :group VALUE should be a customization group. |
233 Add FACE to that group. | 232 Add FACE to that group. |
234 | 233 |
235 SPEC should be an alist of the form ((DISPLAY ATTS)...). | 234 SPEC should be an alist of the form ((DISPLAY ATTS)...). |