Mercurial > hg > xemacs-beta
comparison lisp/gnus/custom-opt.el @ 98:0d2f883870bc r20-1b1
Import from CVS: tag r20-1b1
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:13:56 +0200 |
| parents | 859a2309aef8 |
| children |
comparison
equal
deleted
inserted
replaced
| 97:498bf5da1c90 | 98:0d2f883870bc |
|---|---|
| 1 ;;; custom-opt.el --- An option group. | |
| 2 ;; | |
| 3 ;; Copyright (C) 1996 Free Software Foundation, Inc. | |
| 4 ;; | |
| 5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> | |
| 6 ;; Keywords: help, faces | |
| 7 ;; Version: 1.24 | |
| 8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/ | |
| 9 | |
| 10 ;;; Code: | |
| 11 | |
| 12 (require 'custom) | |
| 13 | |
| 14 (defgroup options nil | |
| 15 "This group contains often used customization options." | |
| 16 :group 'emacs) | |
| 17 | |
| 18 (defvar custom-options | |
| 19 '((line-number-mode boolean) | |
| 20 (column-number-mode boolean) | |
| 21 (debug-on-error boolean) | |
| 22 (debug-on-quit boolean) | |
| 23 (case-fold-search boolean) | |
| 24 (case-replace boolean) | |
| 25 (transient-mark-mode boolean)) | |
| 26 "Alist of customization options. | |
| 27 The first element of each entry should be a variable name, the second | |
| 28 a widget type.") | |
| 29 | |
| 30 (let ((options custom-options) | |
| 31 option name type) | |
| 32 (while options | |
| 33 (setq option (car options) | |
| 34 options (cdr options) | |
| 35 name (nth 0 option) | |
| 36 type (nth 1 option)) | |
| 37 (put name 'custom-type type) | |
| 38 (custom-add-to-group 'options name 'custom-variable)) | |
| 39 (run-hooks 'custom-define-hook)) | |
| 40 | |
| 41 ;;; The End. | |
| 42 | |
| 43 (provide 'custom-opt) | |
| 44 | |
| 45 ;; custom-edit.el ends here |