*** empty log message ***
[emacs.git] / lisp / w32-vars.el
blobffdf50a7d11bb4cdcae7caf3ce9bbc60494529dd
1 ;;; w32-vars.el --- MS-Windows specific user options
3 ;; Copyright (C) 2002 Free Software Foundation, Inc.
5 ;; Author: Jason Rumney <jasonr@gnu.org>
6 ;; Keywords: internal
8 ;; This file is part of GNU Emacs.
10 ;; GNU Emacs 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)
13 ;; any later version.
15 ;; GNU Emacs 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.
25 ;;; Commentary:
27 ;;; Code:
29 ;; Custom group for w32 specific settings
30 (defgroup w32 nil
31 "MS-Windows specific features"
32 :group 'environment
33 :version "21.4"
34 :prefix "w32")
36 ;; Redefine the font selection to use the standard W32 dialog
37 (defcustom w32-use-w32-font-dialog t
38 "*Use the standard font dialog.
39 If nil, pop up a menu of a fixed set of fonts including fontsets, like
40 X does. See `w32-fixed-font-alist' for the font menu definition."
41 :type 'boolean
42 :group 'w32)
44 (defcustom w32-list-proportional-fonts nil
45 "*Include proportional fonts in the default font dialog."
46 :type 'boolean
47 :group 'w32)
49 (defcustom w32-allow-system-shell nil
50 "*Disable startup warning when using \"system\" shells."
51 :type 'boolean
52 :group 'w32)
54 (defcustom w32-system-shells '("cmd" "cmd.exe" "command" "command.com"
55 "4nt" "4nt.exe" "4dos" "4dos.exe"
56 "ndos" "ndos.exe")
57 "*List of strings recognized as Windows NT/9X system shells."
58 :type '(repeat string)
59 :group 'w32)
61 ;; Want "menu" custom type for this.
62 (defcustom w32-fixed-font-alist
63 '("Font menu"
64 ("Misc"
65 ;; For these, we specify the pixel height and width.
66 ("fixed" "Fixedsys")
67 ("")
68 ("Terminal 5x4"
69 "-*-Terminal-normal-r-*-*-*-45-*-*-c-40-*-oem")
70 ("Terminal 6x8"
71 "-*-Terminal-normal-r-*-*-*-60-*-*-c-80-*-oem")
72 ("Terminal 9x5"
73 "-*-Terminal-normal-r-*-*-*-90-*-*-c-50-*-oem")
74 ("Terminal 9x7"
75 "-*-Terminal-normal-r-*-*-*-90-*-*-c-70-*-oem")
76 ("Terminal 9x8"
77 "-*-Terminal-normal-r-*-*-*-90-*-*-c-80-*-oem")
78 ("Terminal 12x12"
79 "-*-Terminal-normal-r-*-*-*-120-*-*-c-120-*-oem")
80 ("Terminal 14x10"
81 "-*-Terminal-normal-r-*-*-*-135-*-*-c-100-*-oem")
82 ("Terminal 6x6 Bold"
83 "-*-Terminal-bold-r-*-*-*-60-*-*-c-60-*-oem")
84 ("")
85 ("Lucida Sans Typewriter.8"
86 "-*-Lucida Sans Typewriter-normal-r-*-*-11-*-*-*-c-*-iso8859-1")
87 ("Lucida Sans Typewriter.9"
88 "-*-Lucida Sans Typewriter-normal-r-*-*-12-*-*-*-c-*-iso8859-1")
89 ("Lucida Sans Typewriter.10"
90 "-*-Lucida Sans Typewriter-normal-r-*-*-13-*-*-*-c-*-iso8859-1")
91 ("Lucida Sans Typewriter.11"
92 "-*-Lucida Sans Typewriter-normal-r-*-*-15-*-*-*-c-*-iso8859-1")
93 ("Lucida Sans Typewriter.12"
94 "-*-Lucida Sans Typewriter-normal-r-*-*-16-*-*-*-c-*-iso8859-1")
95 ("Lucida Sans Typewriter.8 Bold"
96 "-*-Lucida Sans Typewriter-semibold-r-*-*-11-*-*-*-c-*-iso8859-1")
97 ("Lucida Sans Typewriter.9 Bold"
98 "-*-Lucida Sans Typewriter-semibold-r-*-*-12-*-*-*-c-*-iso8859-1")
99 ("Lucida Sans Typewriter.10 Bold"
100 "-*-Lucida Sans Typewriter-semibold-r-*-*-13-*-*-*-c-*-iso8859-1")
101 ("Lucida Sans Typewriter.11 Bold"
102 "-*-Lucida Sans Typewriter-semibold-r-*-*-15-*-*-*-c-*-iso8859-1")
103 ("Lucida Sans Typewriter.12 Bold"
104 "-*-Lucida Sans Typewriter-semibold-r-*-*-16-*-*-*-c-*-iso8859-1"))
105 ("Courier"
106 ("Courier 10x8"
107 "-*-Courier-*normal-r-*-*-*-97-*-*-c-80-iso8859-1")
108 ("Courier 12x9"
109 "-*-Courier-*normal-r-*-*-*-120-*-*-c-90-iso8859-1")
110 ("Courier 15x12"
111 "-*-Courier-*normal-r-*-*-*-150-*-*-c-120-iso8859-1")
112 ;; For these, we specify the point height.
113 ("")
114 ("8" "-*-Courier New-normal-r-*-*-11-*-*-*-c-*-iso8859-1")
115 ("9" "-*-Courier New-normal-r-*-*-12-*-*-*-c-*-iso8859-1")
116 ("10" "-*-Courier New-normal-r-*-*-13-*-*-*-c-*-iso8859-1")
117 ("11" "-*-Courier New-normal-r-*-*-15-*-*-*-c-*-iso8859-1")
118 ("12" "-*-Courier New-normal-r-*-*-16-*-*-*-c-*-iso8859-1")
119 ("8 bold" "-*-Courier New-bold-r-*-*-11-*-*-*-c-*-iso8859-1")
120 ("9 bold" "-*-Courier New-bold-r-*-*-12-*-*-*-c-*-iso8859-1")
121 ("10 bold" "-*-Courier New-bold-r-*-*-13-*-*-*-c-*-iso8859-1")
122 ("11 bold" "-*-Courier New-bold-r-*-*-15-*-*-*-c-*-iso8859-1")
123 ("12 bold" "-*-Courier New-bold-r-*-*-16-*-*-*-c-*-iso8859-1")
124 ("8 italic" "-*-Courier New-normal-i-*-*-11-*-*-*-c-*-iso8859-1")
125 ("9 italic" "-*-Courier New-normal-i-*-*-12-*-*-*-c-*-iso8859-1")
126 ("10 italic" "-*-Courier New-normal-i-*-*-13-*-*-*-c-*-iso8859-1")
127 ("11 italic" "-*-Courier New-normal-i-*-*-15-*-*-*-c-*-iso8859-1")
128 ("12 italic" "-*-Courier New-normal-i-*-*-16-*-*-*-c-*-iso8859-1")
129 ("8 bold italic" "-*-Courier New-bold-i-*-*-11-*-*-*-c-*-iso8859-1")
130 ("9 bold italic" "-*-Courier New-bold-i-*-*-12-*-*-*-c-*-iso8859-1")
131 ("10 bold italic" "-*-Courier New-bold-i-*-*-13-*-*-*-c-*-iso8859-1")
132 ("11 bold italic" "-*-Courier New-bold-i-*-*-15-*-*-*-c-*-iso8859-1")
133 ("12 bold italic" "-*-Courier New-bold-i-*-*-16-*-*-*-c-*-iso8859-1")
135 "*Fonts suitable for use in Emacs.
136 Initially this is a list of some fixed width fonts that most people
137 will have like Terminal and Courier. These fonts are used in the font
138 menu if the variable `w32-use-w32-font-dialog' is nil."
139 :type '(list
140 (string :tag "Menu Title")
141 (repeat :inline t
142 (list :tag "Submenu"
143 (string :tag "Title")
144 (repeat :inline t
145 (choice :tag ""
146 (const :tag "Seperator" (""))
147 (list :tag "Font Entry"
148 (string :tag "Menu text")
149 (string :tag "Font"))))))))
151 (defcustom x-select-enable-clipboard t
152 "*Non-nil means cutting and pasting uses the clipboard.
153 This is in addition to the primary selection."
154 :type 'boolean
155 :group 'killing)
158 ;;; w32-vars.el ends here