Mercurial > hg > xemacs-beta

comparison lisp/custom/custom.el @ 102:a145efe76779 r20-1b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b3
author cvs
date Mon, 13 Aug 2007 09:15:49 +0200
parents 4be1180a9e89
children 8ff55ebd4be9
comparison
equal deleted inserted replaced
101:a0ec055d74dd 102:a145efe76779
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.44 7 ;; Version: 1.46
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.
492 (put face 'saved-face spec)) 492 (put face 'saved-face spec))
493 (setq args (cdr (cdr args))))))) 493 (setq args (cdr (cdr args)))))))
494 494
495 ;;; Meta Customization 495 ;;; Meta Customization
496 496
497 (defgroup emacs nil
498 "Customization of the One True Editor."
499 :link '(custom-manual "(emacs)Top"))
500
501 (defgroup customize '((widgets custom-group))
502 "Customization of the Customization support."
503 :link '(custom-manual "(custom)Top")
504 :link '(url-link :tag "Development Page"
505 "http://www.dina.kvl.dk/~abraham/custom/")
506 :prefix "custom-"
507 :group 'emacs)
508
509 (defcustom custom-define-hook nil 497 (defcustom custom-define-hook nil
510 "Hook called after defining each customize option." 498 "Hook called after defining each customize option."
511 :group 'customize 499 :group 'customize
512 :type 'hook) 500 :type 'hook)
513 501