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 free software; you can redistribute it and/or modify
9 ;; it under the terms of the GNU General Public License as published by
10 ;; the Free Software Foundation; either version 2, or (at your option)
13 ;; This file is distributed in the hope that it will be useful,
14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 ;; GNU General Public License for more details.
18 ;; You should have received a copy of the GNU General Public License
19 ;; along with GNU Emacs; see the file COPYING. If not, write to
20 ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
21 ;; Boston, MA 02111-1307, USA.
27 ;; Custom group for w32 specific settings
29 "MS-Windows specific features"
34 (defcustom mouse-wheel-scroll-amount 4
35 "*Number of lines to scroll per click of the mouse wheel."
39 ;; Redefine the font selection to use the standard W32 dialog
40 (defcustom w32-use-w32-font-dialog t
41 "*Use the standard font dialog.
42 If nil, pop up a menu of a fixed set of fonts including fontsets, like
43 X does. See `w32-fixed-font-alist' for the font menu definition."
47 (defcustom w32-list-proportional-fonts nil
48 "*Include proportional fonts in the default font dialog."
52 (defcustom w32-allow-system-shell nil
53 "*Disable startup warning when using \"system\" shells."
57 (defcustom w32-system-shells '("cmd" "cmd.exe" "command" "command.com"
58 "4nt" "4nt.exe" "4dos" "4dos.exe"
60 "*List of strings recognized as Windows NT/9X system shells."
61 :type '(repeat string)
64 ;; Want "menu" custom type for this.
65 (defcustom w32-fixed-font-alist
68 ;; For these, we specify the pixel height and width.
72 "-*-Terminal-normal-r-*-*-*-45-*-*-c-40-*-oem")
74 "-*-Terminal-normal-r-*-*-*-60-*-*-c-80-*-oem")
76 "-*-Terminal-normal-r-*-*-*-90-*-*-c-50-*-oem")
78 "-*-Terminal-normal-r-*-*-*-90-*-*-c-70-*-oem")
80 "-*-Terminal-normal-r-*-*-*-90-*-*-c-80-*-oem")
82 "-*-Terminal-normal-r-*-*-*-120-*-*-c-120-*-oem")
84 "-*-Terminal-normal-r-*-*-*-135-*-*-c-100-*-oem")
86 "-*-Terminal-bold-r-*-*-*-60-*-*-c-60-*-oem")
88 ("Lucida Sans Typewriter.8"
89 "-*-Lucida Sans Typewriter-normal-r-*-*-11-*-*-*-c-*-iso8859-1")
90 ("Lucida Sans Typewriter.9"
91 "-*-Lucida Sans Typewriter-normal-r-*-*-12-*-*-*-c-*-iso8859-1")
92 ("Lucida Sans Typewriter.10"
93 "-*-Lucida Sans Typewriter-normal-r-*-*-13-*-*-*-c-*-iso8859-1")
94 ("Lucida Sans Typewriter.11"
95 "-*-Lucida Sans Typewriter-normal-r-*-*-15-*-*-*-c-*-iso8859-1")
96 ("Lucida Sans Typewriter.12"
97 "-*-Lucida Sans Typewriter-normal-r-*-*-16-*-*-*-c-*-iso8859-1")
98 ("Lucida Sans Typewriter.8 Bold"
99 "-*-Lucida Sans Typewriter-semibold-r-*-*-11-*-*-*-c-*-iso8859-1")
100 ("Lucida Sans Typewriter.9 Bold"
101 "-*-Lucida Sans Typewriter-semibold-r-*-*-12-*-*-*-c-*-iso8859-1")
102 ("Lucida Sans Typewriter.10 Bold"
103 "-*-Lucida Sans Typewriter-semibold-r-*-*-13-*-*-*-c-*-iso8859-1")
104 ("Lucida Sans Typewriter.11 Bold"
105 "-*-Lucida Sans Typewriter-semibold-r-*-*-15-*-*-*-c-*-iso8859-1")
106 ("Lucida Sans Typewriter.12 Bold"
107 "-*-Lucida Sans Typewriter-semibold-r-*-*-16-*-*-*-c-*-iso8859-1"))
110 "-*-Courier-*normal-r-*-*-*-97-*-*-c-80-iso8859-1")
112 "-*-Courier-*normal-r-*-*-*-120-*-*-c-90-iso8859-1")
114 "-*-Courier-*normal-r-*-*-*-150-*-*-c-120-iso8859-1")
115 ;; For these, we specify the point height.
117 ("8" "-*-Courier New-normal-r-*-*-11-*-*-*-c-*-iso8859-1")
118 ("9" "-*-Courier New-normal-r-*-*-12-*-*-*-c-*-iso8859-1")
119 ("10" "-*-Courier New-normal-r-*-*-13-*-*-*-c-*-iso8859-1")
120 ("11" "-*-Courier New-normal-r-*-*-15-*-*-*-c-*-iso8859-1")
121 ("12" "-*-Courier New-normal-r-*-*-16-*-*-*-c-*-iso8859-1")
122 ("8 bold" "-*-Courier New-bold-r-*-*-11-*-*-*-c-*-iso8859-1")
123 ("9 bold" "-*-Courier New-bold-r-*-*-12-*-*-*-c-*-iso8859-1")
124 ("10 bold" "-*-Courier New-bold-r-*-*-13-*-*-*-c-*-iso8859-1")
125 ("11 bold" "-*-Courier New-bold-r-*-*-15-*-*-*-c-*-iso8859-1")
126 ("12 bold" "-*-Courier New-bold-r-*-*-16-*-*-*-c-*-iso8859-1")
127 ("8 italic" "-*-Courier New-normal-i-*-*-11-*-*-*-c-*-iso8859-1")
128 ("9 italic" "-*-Courier New-normal-i-*-*-12-*-*-*-c-*-iso8859-1")
129 ("10 italic" "-*-Courier New-normal-i-*-*-13-*-*-*-c-*-iso8859-1")
130 ("11 italic" "-*-Courier New-normal-i-*-*-15-*-*-*-c-*-iso8859-1")
131 ("12 italic" "-*-Courier New-normal-i-*-*-16-*-*-*-c-*-iso8859-1")
132 ("8 bold italic" "-*-Courier New-bold-i-*-*-11-*-*-*-c-*-iso8859-1")
133 ("9 bold italic" "-*-Courier New-bold-i-*-*-12-*-*-*-c-*-iso8859-1")
134 ("10 bold italic" "-*-Courier New-bold-i-*-*-13-*-*-*-c-*-iso8859-1")
135 ("11 bold italic" "-*-Courier New-bold-i-*-*-15-*-*-*-c-*-iso8859-1")
136 ("12 bold italic" "-*-Courier New-bold-i-*-*-16-*-*-*-c-*-iso8859-1")
138 "*Fonts suitable for use in Emacs.
139 Initially this is a list of some fixed width fonts that most people
140 will have like Terminal and Courier. These fonts are used in the font
141 menu if the variable `w32-use-w32-font-dialog' is nil."
143 (string :tag "Menu Title")
146 (string :tag "Title")
149 (const :tag "Seperator" (""))
150 (list :tag "Font Entry"
151 (string :tag "Menu text")
152 (string :tag "Font"))))))))
154 (defcustom x-select-enable-clipboard t
155 "*Non-nil means cutting and pasting uses the clipboard.
156 This is in addition to the primary selection."
161 ;;; w32-vars.el ends here