X-Git-Url: https://git.hcoop.net/bpt/emacs.git/blobdiff_plain/2699a55464f7b43171c7b0e64d095640904e9e21..8eb6542f53f7fe9b682d11b15dd0346722db0ce3:/lisp/w32-vars.el diff --git a/lisp/w32-vars.el b/lisp/w32-vars.el index 80cdfb5712..30087d533d 100644 --- a/lisp/w32-vars.el +++ b/lisp/w32-vars.el @@ -1,7 +1,6 @@ ;;; w32-vars.el --- MS-Windows specific user options -;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 -;; Free Software Foundation, Inc. +;; Copyright (C) 2002-2014 Free Software Foundation, Inc. ;; Author: Jason Rumney ;; Keywords: internal @@ -45,17 +44,19 @@ X does. See `w32-fixed-font-alist' for the font menu definition." "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." - :type 'boolean - :group 'w32) +(unless (eq system-type 'cygwin) + (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 system shells." - :type '(repeat string) - :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 @@ -148,6 +149,8 @@ menu if the variable `w32-use-w32-font-dialog' is nil." (string :tag "Font"))))))) :group 'w32) +(make-obsolete-variable 'w32-enable-synthesized-fonts nil "24.4") + (provide 'w32-vars) ;;; w32-vars.el ends here