X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/ae940284fa77a6928f5162b7de859e67bdc7506c..bd78fa1d5442e6e023a16d407741ec899d57d3cd:/lisp/w32-vars.el diff --git a/lisp/w32-vars.el b/lisp/w32-vars.el index dd4f8cfd7c..91676dd12d 100644 --- a/lisp/w32-vars.el +++ b/lisp/w32-vars.el @@ -1,10 +1,11 @@ ;;; w32-vars.el --- MS-Windows specific user options -;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 +;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 ;; Free Software Foundation, Inc. ;; Author: Jason Rumney ;; Keywords: internal +;; Package: emacs ;; This file is part of GNU Emacs. @@ -40,10 +41,9 @@ 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) +(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") (defcustom w32-allow-system-shell nil "Disable startup warning when using \"system\" shells." @@ -53,7 +53,7 @@ X does. See `w32-fixed-font-alist' for the font menu definition." (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." + "List of strings recognized as Windows system shells." :type '(repeat string) :group 'w32) @@ -150,7 +150,11 @@ menu if the variable `w32-use-w32-font-dialog' is nil." (defcustom x-select-enable-clipboard t "Non-nil means cutting and pasting uses the clipboard. -This is in addition to the primary selection." +This is in addition to, but in preference to, the primary selection. + +On MS-Windows, this is non-nil by default, since Windows does not +support other types of selections. \(The primary selection that is +set by Emacs is not accessible to other programs on Windows.\)" :type 'boolean :group 'killing)