1 ;;; w32-vars.el --- MS-Windows specific user options
3 ;; Copyright (C) 2002 Free Software Foundation, Inc.
5 ;; Author: Jason Rumney <jasonr@gnu.org>
8 ;; This file is part of GNU Emacs.
10 ;; This file is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
15 ;; This file is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to
22 ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA.
29 ;; Custom group for w32 specific settings
31 "MS-Windows specific features"
36 ;; mwheel.el should probably be adapted to accept mouse-wheel events
37 ;; then this could go.
38 (defcustom mouse-wheel-scroll-amount '(5 ((shift) . 1) ((control) . nil))
39 "*Amount to scroll windows by when spinning the mouse wheel.
40 This is actually a cons cell, where the first item is the amount to scroll
41 on a normal wheel event. The rest is ignored on Windows, see mwheel.el if
42 you wish to implement modifier keys."
47 (const :tag "Full screen" :value nil)
48 (integer :tag "Specific # of lines")
49 (float :tag "Fraction of window"))
52 (repeat (choice :tag "modifier" (const alt) (const control) (const hyper)
53 (const meta) (const shift) (const super)))
54 (choice :tag "scroll amount"
55 (const :tag "Full screen" :value nil)
56 (integer :tag "Specific # of lines")
57 (float :tag "Fraction of window"))))))
59 ;; Redefine the font selection to use the standard W32 dialog
60 (defcustom w32-use-w32-font-dialog t
61 "*Use the standard font dialog.
62 If nil, pop up a menu of a fixed set of fonts including fontsets, like
63 X does. See `w32-fixed-font-alist' for the font menu definition."
67 (defcustom w32-list-proportional-fonts nil
68 "*Include proportional fonts in the default font dialog."
72 (defcustom w32-allow-system-shell nil
73 "*Disable startup warning when using \"system\" shells."
77 (defcustom w32-system-shells '("cmd" "cmd.exe" "command" "command.com"
78 "4nt" "4nt.exe" "4dos" "4dos.exe"
80 "*List of strings recognized as Windows NT/9X system shells."
81 :type '(repeat string)
84 ;; Want "menu" custom type for this.
85 (defcustom w32-fixed-font-alist
88 ;; For these, we specify the pixel height and width.
92 "-*-Terminal-normal-r-*-*-*-45-*-*-c-40-*-oem")
94 "-*-Terminal-normal-r-*-*-*-60-*-*-c-80-*-oem")
96 "-*-Terminal-normal-r-*-*-*-90-*-*-c-50-*-oem")
98 "-*-Terminal-normal-r-*-*-*-90-*-*-c-70-*-oem")
100 "-*-Terminal-normal-r-*-*-*-90-*-*-c-80-*-oem")
102 "-*-Terminal-normal-r-*-*-*-120-*-*-c-120-*-oem")
104 "-*-Terminal-normal-r-*-*-*-135-*-*-c-100-*-oem")
106 "-*-Terminal-bold-r-*-*-*-60-*-*-c-60-*-oem")
108 ("Lucida Sans Typewriter.8"
109 "-*-Lucida Sans Typewriter-normal-r-*-*-11-*-*-*-c-*-iso8859-1")
110 ("Lucida Sans Typewriter.9"
111 "-*-Lucida Sans Typewriter-normal-r-*-*-12-*-*-*-c-*-iso8859-1")
112 ("Lucida Sans Typewriter.10"
113 "-*-Lucida Sans Typewriter-normal-r-*-*-13-*-*-*-c-*-iso8859-1")
114 ("Lucida Sans Typewriter.11"
115 "-*-Lucida Sans Typewriter-normal-r-*-*-15-*-*-*-c-*-iso8859-1")
116 ("Lucida Sans Typewriter.12"
117 "-*-Lucida Sans Typewriter-normal-r-*-*-16-*-*-*-c-*-iso8859-1")
118 ("Lucida Sans Typewriter.8 Bold"
119 "-*-Lucida Sans Typewriter-semibold-r-*-*-11-*-*-*-c-*-iso8859-1")
120 ("Lucida Sans Typewriter.9 Bold"
121 "-*-Lucida Sans Typewriter-semibold-r-*-*-12-*-*-*-c-*-iso8859-1")
122 ("Lucida Sans Typewriter.10 Bold"
123 "-*-Lucida Sans Typewriter-semibold-r-*-*-13-*-*-*-c-*-iso8859-1")
124 ("Lucida Sans Typewriter.11 Bold"
125 "-*-Lucida Sans Typewriter-semibold-r-*-*-15-*-*-*-c-*-iso8859-1")
126 ("Lucida Sans Typewriter.12 Bold"
127 "-*-Lucida Sans Typewriter-semibold-r-*-*-16-*-*-*-c-*-iso8859-1"))
130 "-*-Courier-*normal-r-*-*-*-97-*-*-c-80-iso8859-1")
132 "-*-Courier-*normal-r-*-*-*-120-*-*-c-90-iso8859-1")
134 "-*-Courier-*normal-r-*-*-*-150-*-*-c-120-iso8859-1")
135 ;; For these, we specify the point height.
137 ("8" "-*-Courier New-normal-r-*-*-11-*-*-*-c-*-iso8859-1")
138 ("9" "-*-Courier New-normal-r-*-*-12-*-*-*-c-*-iso8859-1")
139 ("10" "-*-Courier New-normal-r-*-*-13-*-*-*-c-*-iso8859-1")
140 ("11" "-*-Courier New-normal-r-*-*-15-*-*-*-c-*-iso8859-1")
141 ("12" "-*-Courier New-normal-r-*-*-16-*-*-*-c-*-iso8859-1")
142 ("8 bold" "-*-Courier New-bold-r-*-*-11-*-*-*-c-*-iso8859-1")
143 ("9 bold" "-*-Courier New-bold-r-*-*-12-*-*-*-c-*-iso8859-1")
144 ("10 bold" "-*-Courier New-bold-r-*-*-13-*-*-*-c-*-iso8859-1")
145 ("11 bold" "-*-Courier New-bold-r-*-*-15-*-*-*-c-*-iso8859-1")
146 ("12 bold" "-*-Courier New-bold-r-*-*-16-*-*-*-c-*-iso8859-1")
147 ("8 italic" "-*-Courier New-normal-i-*-*-11-*-*-*-c-*-iso8859-1")
148 ("9 italic" "-*-Courier New-normal-i-*-*-12-*-*-*-c-*-iso8859-1")
149 ("10 italic" "-*-Courier New-normal-i-*-*-13-*-*-*-c-*-iso8859-1")
150 ("11 italic" "-*-Courier New-normal-i-*-*-15-*-*-*-c-*-iso8859-1")
151 ("12 italic" "-*-Courier New-normal-i-*-*-16-*-*-*-c-*-iso8859-1")
152 ("8 bold italic" "-*-Courier New-bold-i-*-*-11-*-*-*-c-*-iso8859-1")
153 ("9 bold italic" "-*-Courier New-bold-i-*-*-12-*-*-*-c-*-iso8859-1")
154 ("10 bold italic" "-*-Courier New-bold-i-*-*-13-*-*-*-c-*-iso8859-1")
155 ("11 bold italic" "-*-Courier New-bold-i-*-*-15-*-*-*-c-*-iso8859-1")
156 ("12 bold italic" "-*-Courier New-bold-i-*-*-16-*-*-*-c-*-iso8859-1")
158 "*Fonts suitable for use in Emacs.
159 Initially this is a list of some fixed width fonts that most people
160 will have like Terminal and Courier. These fonts are used in the font
161 menu if the variable `w32-use-w32-font-dialog' is nil."
163 (string :tag "Menu Title")
166 (string :tag "Title")
169 (const :tag "Seperator" (""))
170 (list :tag "Font Entry"
171 (string :tag "Menu text")
172 (string :tag "Font"))))))))
174 (defcustom x-select-enable-clipboard t
175 "*Non-nil means cutting and pasting uses the clipboard.
176 This is in addition to the primary selection."
181 ;;; w32-vars.el ends here