mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-07 15:21:46 +00:00
9201cc281b
* allout.el: * apropos.el: * arc-mode.el: * autoinsert.el: * avoid.el: * battery.el: * bookmark.el: * buff-menu.el: * calculator.el: * chistory.el: * cmuscheme.el: * comint.el: * compare-w.el: * dabbrev.el: * delim-col.el: * desktop.el: * diff-mode.el: * diff.el: * dired-aux.el: * dired-x.el: * dired.el: * dos-vars.el: * ediff-diff.el: * ediff-help.el: * ediff-init.el: * ediff-merg.el: * ediff-mult.el: * ediff-ptch.el: * ediff-vers.el: * ediff-wind.el: * ediff.el: * emerge.el: * facemenu.el: * faces.el: * ffap.el: * filecache.el: * find-dired.el: * font-core.el: * font-lock.el: * forms.el: * fringe.el: * help-at-pt.el: * hippie-exp.el: * ido.el: * image-file.el: * imenu.el: * indent.el: * info.el: * isearchb.el: * iswitchb.el: * jit-lock.el: * jka-compr.el: * log-edit.el: * lpr.el: * ls-lisp.el: * man.el: * menu-bar.el: * midnight.el: * mouse-sel.el: * mouse.el: * msb.el: * outline.el: * paren.el: * pcmpl-cvs.el: * pcmpl-gnu.el: * pcomplete.el: * pcvs-info.el: * pcvs-parse.el: * printing.el: * ps-mule.el: * ps-print.el: * replace.el: * ruler-mode.el: * saveplace.el: * sb-image.el: * scroll-bar.el: * sha1.el: * shadowfile.el: * shell.el: * sort.el: * speedbar.el: * strokes.el: * tempo.el: * term.el: * terminal.el: * time-stamp.el: * time.el: * tree-widget.el: * type-break.el: * vc-cvs.el: * vc-hg.el: * vc-mcvs.el: * vc-rcs.el: * vc-sccs.el: * vc.el: * view.el: * w32-vars.el: * whitespace.el: * wid-edit.el: Remove leading * from docstrings of defcustoms, deffaces, defconsts and defuns.
160 lines
6.2 KiB
EmacsLisp
160 lines
6.2 KiB
EmacsLisp
;;; w32-vars.el --- MS-Windows specific user options
|
|
|
|
;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
|
|
|
|
;; Author: Jason Rumney <jasonr@gnu.org>
|
|
;; Keywords: internal
|
|
|
|
;; 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)
|
|
|
|
(defcustom w32-list-proportional-fonts nil
|
|
"Include proportional fonts in the default font dialog."
|
|
:type 'boolean
|
|
:group 'w32)
|
|
|
|
(defcustom w32-allow-system-shell nil
|
|
"Disable startup warning when using \"system\" shells."
|
|
:type 'boolean
|
|
:group 'w32)
|
|
|
|
(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 NT/9X 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)
|
|
|
|
(defcustom x-select-enable-clipboard t
|
|
"Non-nil means cutting and pasting uses the clipboard.
|
|
This is in addition to the primary selection."
|
|
:type 'boolean
|
|
:group 'killing)
|
|
|
|
(provide 'w32-vars)
|
|
|
|
;; arch-tag: ee2394fb-9db7-4c15-a8f0-66b47f4a2bb1
|
|
;;; w32-vars.el ends here
|