[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/w32-fns.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/w32-fns.el |
Date: |
Fri, 28 May 2004 15:24:04 -0400 |
Index: emacs/lisp/w32-fns.el
diff -c emacs/lisp/w32-fns.el:1.52 emacs/lisp/w32-fns.el:1.53
*** emacs/lisp/w32-fns.el:1.52 Mon Sep 1 15:45:17 2003
--- emacs/lisp/w32-fns.el Fri May 28 19:14:50 2004
***************
*** 1,6 ****
;;; w32-fns.el --- Lisp routines for Windows NT
! ;; Copyright (C) 1994, 2001 Free Software Foundation, Inc.
;; Author: Geoff Voelker <address@hidden>
;; Keywords: internal
--- 1,6 ----
;;; w32-fns.el --- Lisp routines for Windows NT
! ;; Copyright (C) 1994, 2001, 2004 Free Software Foundation, Inc.
;; Author: Geoff Voelker <address@hidden>
;; Keywords: internal
***************
*** 54,60 ****
(x-server-version))
(defun w32-using-nt ()
! "Return non-nil if literally running on Windows NT (i.e., not Windows 9X)."
(and (eq system-type 'windows-nt) (getenv "SystemRoot")))
(defun w32-shell-name ()
--- 54,61 ----
(x-server-version))
(defun w32-using-nt ()
! "Return non-nil if running on a 32-bit Windows system.
! That includes all Windows systems except for 9X/Me."
(and (eq system-type 'windows-nt) (getenv "SystemRoot")))
(defun w32-shell-name ()
***************
*** 71,77 ****
w32-system-shells)))
(defun w32-shell-dos-semantics ()
! "Return t if the interactive shell being used expects msdos shell
semantics."
(or (w32-system-shell-p (w32-shell-name))
(and (member (downcase (file-name-nondirectory (w32-shell-name)))
'("cmdproxy" "cmdproxy.exe"))
--- 72,78 ----
w32-system-shells)))
(defun w32-shell-dos-semantics ()
! "Return non-nil if the interactive shell being used expects MSDOS shell
semantics."
(or (w32-system-shell-p (w32-shell-name))
(and (member (downcase (file-name-nondirectory (w32-shell-name)))
'("cmdproxy" "cmdproxy.exe"))
***************
*** 265,277 ****
(get 'x-selections type))
(defun set-w32-system-coding-system (coding-system)
! "Set the coding system used by the Windows System to CODING-SYSTEM.
This is used for things like passing font names with non-ASCII
characters in them to the system. For a list of possible values of
CODING-SYSTEM, use \\[list-coding-systems].
This function is provided for backward compatibility, since
! w32-system-coding-system is now an alias for `locale-coding-system'."
(interactive
(list (let ((default locale-coding-system))
(read-coding-system
--- 266,278 ----
(get 'x-selections type))
(defun set-w32-system-coding-system (coding-system)
! "Set the coding system used by the Windows system to CODING-SYSTEM.
This is used for things like passing font names with non-ASCII
characters in them to the system. For a list of possible values of
CODING-SYSTEM, use \\[list-coding-systems].
This function is provided for backward compatibility, since
! `w32-system-coding-system' is now an alias for `locale-coding-system'."
(interactive
(list (let ((default locale-coding-system))
(read-coding-system
- [Emacs-diffs] Changes to emacs/lisp/w32-fns.el,
Juanma Barranquero <=