mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-11-25 07:28:20 +00:00
330cf1a717
lisp/mouse.el (mouse-appearance-menu): If w32-use-w32-font-dialog is nil, construct a menu of fixed fonts. This resurrects a feature lost in Emacs 23. lisp/w32-vars.el (w32-use-w32-font-dialog): Add a ':set' function to reset mouse-appearance-menu-map, so the font dialog is recomputed the next time the menu is requested. (w32-fixed-font-alist): Fix to use correct names of Courier fonts.
164 lines
6.5 KiB
EmacsLisp
164 lines
6.5 KiB
EmacsLisp
;;; w32-vars.el --- MS-Windows specific user options
|
|
|
|
;; Copyright (C) 2002-2015 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
|
|
"If non-nil, use the standard Windows font dialog for font selection.
|
|
If nil, pop up a menu of a fixed set of fonts including fontsets, like
|
|
X does. See `w32-fixed-font-alist' for the fonts to appear in the menu.
|
|
|
|
Setting this variable directly does not have any effect;
|
|
use either \\[customize] or set `mouse-appearance-menu-map' to nil
|
|
after changing the value of this variable."
|
|
:type 'boolean
|
|
:set (lambda (symbol value)
|
|
(set symbol value)
|
|
(setq mouse-appearance-menu-map nil))
|
|
: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 New-normal-r-*-*-*-97-*-*-c-80-iso8859-1")
|
|
("Courier 12x9"
|
|
"-*-Courier New-normal-r-*-*-*-120-*-*-c-90-iso8859-1")
|
|
("Courier 15x12"
|
|
"-*-Courier New-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)
|
|
|
|
(make-obsolete-variable 'w32-enable-synthesized-fonts nil "24.4")
|
|
|
|
(provide 'w32-vars)
|
|
|
|
;;; w32-vars.el ends here
|