1 ;;; w32-vars.el --- MS-Windows specific user options
3 ;; Copyright (C) 2002-2017 Free Software Foundation, Inc.
5 ;; Author: Jason Rumney <jasonr@gnu.org>
9 ;; This file is part of GNU Emacs.
11 ;; GNU Emacs is free software: you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation, either version 3 of the License, or
14 ;; (at your option) any later version.
16 ;; GNU Emacs is distributed in the hope that it will be useful,
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 ;; GNU General Public License for more details.
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
28 ;; Custom group for w32 specific settings
30 "MS-Windows specific features."
35 ;; Redefine the font selection to use the standard W32 dialog
36 (defcustom w32-use-w32-font-dialog t
37 "If non-nil, use the standard Windows font dialog for font selection.
38 If nil, pop up a menu of a fixed set of fonts including fontsets, like
39 X does. See `w32-fixed-font-alist' for the fonts to appear in the menu.
41 Setting this variable directly does not have any effect;
42 use either \\[customize] or set `mouse-appearance-menu-map' to nil
43 after changing the value of this variable."
45 :set
(lambda (symbol value
)
47 (setq mouse-appearance-menu-map nil
))
50 (defvar w32-list-proportional-fonts nil
51 "Include proportional fonts in the default font dialog.")
52 (make-obsolete-variable 'w32-list-proportional-fonts
"no longer used." "23.1")
54 (unless (eq system-type
'cygwin
)
55 (defcustom w32-allow-system-shell nil
56 "Disable startup warning when using \"system\" shells."
60 (unless (eq system-type
'cygwin
)
61 (defcustom w32-system-shells
'("cmd" "cmd.exe" "command" "command.com"
62 "4nt" "4nt.exe" "4dos" "4dos.exe"
63 "tcc" "tcc.exe" "ndos" "ndos.exe")
64 "List of strings recognized as Windows system shells."
65 :type
'(repeat string
)
68 ;; Want "menu" custom type for this.
69 (defcustom w32-fixed-font-alist
72 ;; For these, we specify the pixel height and width.
76 "-*-Terminal-normal-r-*-*-*-45-*-*-c-40-*-oem")
78 "-*-Terminal-normal-r-*-*-*-60-*-*-c-80-*-oem")
80 "-*-Terminal-normal-r-*-*-*-90-*-*-c-50-*-oem")
82 "-*-Terminal-normal-r-*-*-*-90-*-*-c-70-*-oem")
84 "-*-Terminal-normal-r-*-*-*-90-*-*-c-80-*-oem")
86 "-*-Terminal-normal-r-*-*-*-120-*-*-c-120-*-oem")
88 "-*-Terminal-normal-r-*-*-*-135-*-*-c-100-*-oem")
90 "-*-Terminal-bold-r-*-*-*-60-*-*-c-60-*-oem")
92 ("Lucida Sans Typewriter.8"
93 "-*-Lucida Sans Typewriter-normal-r-*-*-11-*-*-*-c-*-iso8859-1")
94 ("Lucida Sans Typewriter.9"
95 "-*-Lucida Sans Typewriter-normal-r-*-*-12-*-*-*-c-*-iso8859-1")
96 ("Lucida Sans Typewriter.10"
97 "-*-Lucida Sans Typewriter-normal-r-*-*-13-*-*-*-c-*-iso8859-1")
98 ("Lucida Sans Typewriter.11"
99 "-*-Lucida Sans Typewriter-normal-r-*-*-15-*-*-*-c-*-iso8859-1")
100 ("Lucida Sans Typewriter.12"
101 "-*-Lucida Sans Typewriter-normal-r-*-*-16-*-*-*-c-*-iso8859-1")
102 ("Lucida Sans Typewriter.8 Bold"
103 "-*-Lucida Sans Typewriter-semibold-r-*-*-11-*-*-*-c-*-iso8859-1")
104 ("Lucida Sans Typewriter.9 Bold"
105 "-*-Lucida Sans Typewriter-semibold-r-*-*-12-*-*-*-c-*-iso8859-1")
106 ("Lucida Sans Typewriter.10 Bold"
107 "-*-Lucida Sans Typewriter-semibold-r-*-*-13-*-*-*-c-*-iso8859-1")
108 ("Lucida Sans Typewriter.11 Bold"
109 "-*-Lucida Sans Typewriter-semibold-r-*-*-15-*-*-*-c-*-iso8859-1")
110 ("Lucida Sans Typewriter.12 Bold"
111 "-*-Lucida Sans Typewriter-semibold-r-*-*-16-*-*-*-c-*-iso8859-1"))
114 "-*-Courier New-normal-r-*-*-*-97-*-*-c-80-iso8859-1")
116 "-*-Courier New-normal-r-*-*-*-120-*-*-c-90-iso8859-1")
118 "-*-Courier New-normal-r-*-*-*-150-*-*-c-120-iso8859-1")
119 ;; For these, we specify the point height.
121 ("8" "-*-Courier New-normal-r-*-*-11-*-*-*-c-*-iso8859-1")
122 ("9" "-*-Courier New-normal-r-*-*-12-*-*-*-c-*-iso8859-1")
123 ("10" "-*-Courier New-normal-r-*-*-13-*-*-*-c-*-iso8859-1")
124 ("11" "-*-Courier New-normal-r-*-*-15-*-*-*-c-*-iso8859-1")
125 ("12" "-*-Courier New-normal-r-*-*-16-*-*-*-c-*-iso8859-1")
126 ("8 bold" "-*-Courier New-bold-r-*-*-11-*-*-*-c-*-iso8859-1")
127 ("9 bold" "-*-Courier New-bold-r-*-*-12-*-*-*-c-*-iso8859-1")
128 ("10 bold" "-*-Courier New-bold-r-*-*-13-*-*-*-c-*-iso8859-1")
129 ("11 bold" "-*-Courier New-bold-r-*-*-15-*-*-*-c-*-iso8859-1")
130 ("12 bold" "-*-Courier New-bold-r-*-*-16-*-*-*-c-*-iso8859-1")
131 ("8 italic" "-*-Courier New-normal-i-*-*-11-*-*-*-c-*-iso8859-1")
132 ("9 italic" "-*-Courier New-normal-i-*-*-12-*-*-*-c-*-iso8859-1")
133 ("10 italic" "-*-Courier New-normal-i-*-*-13-*-*-*-c-*-iso8859-1")
134 ("11 italic" "-*-Courier New-normal-i-*-*-15-*-*-*-c-*-iso8859-1")
135 ("12 italic" "-*-Courier New-normal-i-*-*-16-*-*-*-c-*-iso8859-1")
136 ("8 bold italic" "-*-Courier New-bold-i-*-*-11-*-*-*-c-*-iso8859-1")
137 ("9 bold italic" "-*-Courier New-bold-i-*-*-12-*-*-*-c-*-iso8859-1")
138 ("10 bold italic" "-*-Courier New-bold-i-*-*-13-*-*-*-c-*-iso8859-1")
139 ("11 bold italic" "-*-Courier New-bold-i-*-*-15-*-*-*-c-*-iso8859-1")
140 ("12 bold italic" "-*-Courier New-bold-i-*-*-16-*-*-*-c-*-iso8859-1")
142 "Fonts suitable for use in Emacs.
143 Initially this is a list of some fixed width fonts that most people
144 will have like Terminal and Courier. These fonts are used in the font
145 menu if the variable `w32-use-w32-font-dialog' is nil."
147 (string :tag
"Menu Title")
150 (string :tag
"Title")
153 (const :tag
"Separator" (""))
154 (list :tag
"Font Entry"
155 (string :tag
"Menu text")
156 (string :tag
"Font")))))))
159 (make-obsolete-variable 'w32-enable-synthesized-fonts nil
"24.4")
163 ;;; w32-vars.el ends here