Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-cus.el @ 36:c53a95d3c46d r19-15b101

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b101
author cvs
date Mon, 13 Aug 2007 08:53:38 +0200
parents e04119814345
children 1a767b41a199
comparison
equal deleted inserted replaced
35:279432d5c479 36:c53a95d3c46d
1 ;;; w3-cus.el --- Customization support for Emacs-W3 1 ;;; w3-cus.el --- Customization support for Emacs-W3
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/03/14 06:51:36 3 ;; Created: 1997/03/14 21:35:54
4 ;; Version: 1.3 4 ;; Version: 1.4
5 ;; Keywords: comm, help, hypermedia 5 ;; Keywords: comm, help, hypermedia
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1993 - 1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1993 - 1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
30 (require 'custom) 30 (require 'custom)
31 (error nil)) 31 (error nil))
32 (if (and (featurep 'custom) (fboundp 'custom-declare-variable)) 32 (if (and (featurep 'custom) (fboundp 'custom-declare-variable))
33 nil ;; We've got what we needed 33 nil ;; We've got what we needed
34 ;; We have the old custom-library, hack around it! 34 ;; We have the old custom-library, hack around it!
35 (defmacro defgroup (&rest args)
36 nil)
35 (defmacro defcustom (var value doc &rest args) 37 (defmacro defcustom (var value doc &rest args)
36 (` (defvar (, var) (, value) (, doc)))))) 38 (` (defvar (, var) (, value) (, doc))))))
39
40 (defgroup w3 nil
41 "Emacs-W3 - the web browser of choice."
42 :group 'hypermedia)
43
44 (defgroup w3-files nil
45 "Emacs-W3 configuration files."
46 :group 'w3)
47
48 (defgroup w3-images nil
49 "Controlling image handling."
50 :group 'w3)
51
52 (defgroup w3-printing nil
53 "Various options for hardcopy from web pages."
54 :group 'w3)
55
56 (defgroup w3-menus nil
57 "The look of menus in Emacs-W3"
58 :group 'w3)
59
60 (defgroup w3-parsing nil
61 "Options relating to HTML parsing"
62 :group 'w3)
63
64 (defgroup w3-display nil
65 "Variables relating to how web pages are displayed."
66 :group 'w3)
67
68 (defgroup w3-hooks nil
69 "Hooks relating to Emacs-W3."
70 :group 'w3)
37 71
38 ;;; File related variables 72 ;;; File related variables
39 (defcustom w3-configuration-directory "~/.w3/" 73 (defcustom w3-configuration-directory "~/.w3/"
40 "*Directory where Emacs-w3 can find its configuration files" 74 "*Directory where Emacs-w3 can find its configuration files"
41 :group 'w3-files 75 :group 'w3-files