|
20
|
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
|
