mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-14 09:39:42 +00:00
0fda9b750e
Here, we use the generic window-system configuration system we just
implemented to support the w32 window-system in the mainline build
under Cygwin. (Previously, the w32 window system could only be
compiled as part of the NT-native Emacs build process.)
The changes in this patch need to be applied atomically in order to
avoid breaking Emacs. The changes include:
- Changes throughout the Lisp and C code to not assume that
NT Emacs and the w32 window system are synonymous.
- Wiring up the regular select(2) event loop to Windows messages
- Cleaning up the w32 drag-and-drop receiving code.
- Exposing Cygwin path conversion functions to elisp.
- Unicode file dialog support when compiling for Cygwin.
- Splitting the w32 term lisp initialization code into code
applicable to any w32 window-system and code specific to
system-type windows-nt.
- Integrating the old and new w32 code into the build system.
155 lines
6.1 KiB
EmacsLisp
155 lines
6.1 KiB
EmacsLisp
;;; w32-vars.el --- MS-Windows specific user options
|
|
|
|
;; Copyright (C) 2002-2012 Free Software Foundation, Inc.
|
|
|
|
;; Author: Jason Rumney <jasonr@gnu.org>
|
|
;; Keywords: internal
|
|
;; Package: emacs
|
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
;; GNU Emacs is free software: you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
;; (at your option) any later version.
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
;;; Commentary:
|
|
|
|
;;; Code:
|
|
|
|
;; Custom group for w32 specific settings
|
|
(defgroup w32 nil
|
|
"MS-Windows specific features."
|
|
:group 'environment
|
|
:version "22.1"
|
|
:prefix "w32")
|
|
|
|
;; Redefine the font selection to use the standard W32 dialog
|
|
(defcustom w32-use-w32-font-dialog t
|
|
"Use the standard font dialog.
|
|
If nil, pop up a menu of a fixed set of fonts including fontsets, like
|
|
X does. See `w32-fixed-font-alist' for the font menu definition."
|
|
:type 'boolean
|
|
:group 'w32)
|
|
|
|
(defvar w32-list-proportional-fonts nil
|
|
"Include proportional fonts in the default font dialog.")
|
|
(make-obsolete-variable 'w32-list-proportional-fonts "no longer used." "23.1")
|
|
|
|
(unless (eq system-type 'cygwin)
|
|
(defcustom w32-allow-system-shell nil
|
|
"Disable startup warning when using \"system\" shells."
|
|
:type 'boolean
|
|
:group 'w32))
|
|
|
|
(unless (eq system-type 'cygwin)
|
|
(defcustom w32-system-shells '("cmd" "cmd.exe" "command" "command.com"
|
|
"4nt" "4nt.exe" "4dos" "4dos.exe"
|
|
"tcc" "tcc.exe" "ndos" "ndos.exe")
|
|
"List of strings recognized as Windows system shells."
|
|
:type '(repeat string)
|
|
:group 'w32))
|
|
|
|
;; Want "menu" custom type for this.
|
|
(defcustom w32-fixed-font-alist
|
|
'("Font menu"
|
|
("Misc"
|
|
;; For these, we specify the pixel height and width.
|
|
("fixed" "Fixedsys")
|
|
("")
|
|
("Terminal 5x4"
|
|
"-*-Terminal-normal-r-*-*-*-45-*-*-c-40-*-oem")
|
|
("Terminal 6x8"
|
|
"-*-Terminal-normal-r-*-*-*-60-*-*-c-80-*-oem")
|
|
("Terminal 9x5"
|
|
"-*-Terminal-normal-r-*-*-*-90-*-*-c-50-*-oem")
|
|
("Terminal 9x7"
|
|
"-*-Terminal-normal-r-*-*-*-90-*-*-c-70-*-oem")
|
|
("Terminal 9x8"
|
|
"-*-Terminal-normal-r-*-*-*-90-*-*-c-80-*-oem")
|
|
("Terminal 12x12"
|
|
"-*-Terminal-normal-r-*-*-*-120-*-*-c-120-*-oem")
|
|
("Terminal 14x10"
|
|
"-*-Terminal-normal-r-*-*-*-135-*-*-c-100-*-oem")
|
|
("Terminal 6x6 Bold"
|
|
"-*-Terminal-bold-r-*-*-*-60-*-*-c-60-*-oem")
|
|
("")
|
|
("Lucida Sans Typewriter.8"
|
|
"-*-Lucida Sans Typewriter-normal-r-*-*-11-*-*-*-c-*-iso8859-1")
|
|
("Lucida Sans Typewriter.9"
|
|
"-*-Lucida Sans Typewriter-normal-r-*-*-12-*-*-*-c-*-iso8859-1")
|
|
("Lucida Sans Typewriter.10"
|
|
"-*-Lucida Sans Typewriter-normal-r-*-*-13-*-*-*-c-*-iso8859-1")
|
|
("Lucida Sans Typewriter.11"
|
|
"-*-Lucida Sans Typewriter-normal-r-*-*-15-*-*-*-c-*-iso8859-1")
|
|
("Lucida Sans Typewriter.12"
|
|
"-*-Lucida Sans Typewriter-normal-r-*-*-16-*-*-*-c-*-iso8859-1")
|
|
("Lucida Sans Typewriter.8 Bold"
|
|
"-*-Lucida Sans Typewriter-semibold-r-*-*-11-*-*-*-c-*-iso8859-1")
|
|
("Lucida Sans Typewriter.9 Bold"
|
|
"-*-Lucida Sans Typewriter-semibold-r-*-*-12-*-*-*-c-*-iso8859-1")
|
|
("Lucida Sans Typewriter.10 Bold"
|
|
"-*-Lucida Sans Typewriter-semibold-r-*-*-13-*-*-*-c-*-iso8859-1")
|
|
("Lucida Sans Typewriter.11 Bold"
|
|
"-*-Lucida Sans Typewriter-semibold-r-*-*-15-*-*-*-c-*-iso8859-1")
|
|
("Lucida Sans Typewriter.12 Bold"
|
|
"-*-Lucida Sans Typewriter-semibold-r-*-*-16-*-*-*-c-*-iso8859-1"))
|
|
("Courier"
|
|
("Courier 10x8"
|
|
"-*-Courier-*normal-r-*-*-*-97-*-*-c-80-iso8859-1")
|
|
("Courier 12x9"
|
|
"-*-Courier-*normal-r-*-*-*-120-*-*-c-90-iso8859-1")
|
|
("Courier 15x12"
|
|
"-*-Courier-*normal-r-*-*-*-150-*-*-c-120-iso8859-1")
|
|
;; For these, we specify the point height.
|
|
("")
|
|
("8" "-*-Courier New-normal-r-*-*-11-*-*-*-c-*-iso8859-1")
|
|
("9" "-*-Courier New-normal-r-*-*-12-*-*-*-c-*-iso8859-1")
|
|
("10" "-*-Courier New-normal-r-*-*-13-*-*-*-c-*-iso8859-1")
|
|
("11" "-*-Courier New-normal-r-*-*-15-*-*-*-c-*-iso8859-1")
|
|
("12" "-*-Courier New-normal-r-*-*-16-*-*-*-c-*-iso8859-1")
|
|
("8 bold" "-*-Courier New-bold-r-*-*-11-*-*-*-c-*-iso8859-1")
|
|
("9 bold" "-*-Courier New-bold-r-*-*-12-*-*-*-c-*-iso8859-1")
|
|
("10 bold" "-*-Courier New-bold-r-*-*-13-*-*-*-c-*-iso8859-1")
|
|
("11 bold" "-*-Courier New-bold-r-*-*-15-*-*-*-c-*-iso8859-1")
|
|
("12 bold" "-*-Courier New-bold-r-*-*-16-*-*-*-c-*-iso8859-1")
|
|
("8 italic" "-*-Courier New-normal-i-*-*-11-*-*-*-c-*-iso8859-1")
|
|
("9 italic" "-*-Courier New-normal-i-*-*-12-*-*-*-c-*-iso8859-1")
|
|
("10 italic" "-*-Courier New-normal-i-*-*-13-*-*-*-c-*-iso8859-1")
|
|
("11 italic" "-*-Courier New-normal-i-*-*-15-*-*-*-c-*-iso8859-1")
|
|
("12 italic" "-*-Courier New-normal-i-*-*-16-*-*-*-c-*-iso8859-1")
|
|
("8 bold italic" "-*-Courier New-bold-i-*-*-11-*-*-*-c-*-iso8859-1")
|
|
("9 bold italic" "-*-Courier New-bold-i-*-*-12-*-*-*-c-*-iso8859-1")
|
|
("10 bold italic" "-*-Courier New-bold-i-*-*-13-*-*-*-c-*-iso8859-1")
|
|
("11 bold italic" "-*-Courier New-bold-i-*-*-15-*-*-*-c-*-iso8859-1")
|
|
("12 bold italic" "-*-Courier New-bold-i-*-*-16-*-*-*-c-*-iso8859-1")
|
|
))
|
|
"Fonts suitable for use in Emacs.
|
|
Initially this is a list of some fixed width fonts that most people
|
|
will have like Terminal and Courier. These fonts are used in the font
|
|
menu if the variable `w32-use-w32-font-dialog' is nil."
|
|
:type '(list
|
|
(string :tag "Menu Title")
|
|
(repeat :inline t
|
|
(list :tag "Submenu"
|
|
(string :tag "Title")
|
|
(repeat :inline t
|
|
(choice :tag ""
|
|
(const :tag "Separator" (""))
|
|
(list :tag "Font Entry"
|
|
(string :tag "Menu text")
|
|
(string :tag "Font")))))))
|
|
:group 'w32)
|
|
|
|
(provide 'w32-vars)
|
|
|
|
;;; w32-vars.el ends here
|