Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-cus.el @ 114:8619ce7e4c50 r20-1b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b9
author cvs
date Mon, 13 Aug 2007 09:21:54 +0200
parents e04119814345
children 9f59509498e1
comparison
equal deleted inserted replaced
113:2ec2fe4a4c89 114:8619ce7e4c50
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/18 20:30:34
4 ;; Version: 1.3 4 ;; Version: 1.5
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
78 :group 'w3-files 112 :group 'w3-files
79 :type 'directory) 113 :type 'directory)
80 114
81 ;;; Display related variables 115 ;;; Display related variables
82 (defcustom w3-display-frames nil 116 (defcustom w3-display-frames nil
83 "*Fetch frames - not optimal." 117 "*Fetch frames - can be:
84 :group 'w3-display 118 nil no frame display whatsoever
85 :type 'boolean) 119 'as-links display frame hyperlinks, but do not fetch them
120 'ask display frame hyperlinks and ask whether to fetch them
121 t display frame hyperlinks and fetch them."
122 :group 'w3-display
123 :type '(choice (const :tag "Do not display frames" :value nil)
124 (const :tag "Show hyperlinks" :value as-links)
125 (const :tag "Show hyperlinks, ask whether to retrieve them" :value ask)
126 (const :tag "Automatically retrieve frames" :value t)))
86 127
87 (defcustom w3-do-incremental-display nil 128 (defcustom w3-do-incremental-display nil
88 "*Whether to do incremental display of pages or not." 129 "*Whether to do incremental display of pages or not."
89 :group 'w3-display 130 :group 'w3-display
90 :type 'boolean) 131 :type 'boolean)