view lisp/w32-fns.el @ 18092:8428d56cd207

(smtpmail-via-smtp): Recognize XVRB as a synonym for VERB and XONE as a synonym for ONEX. (smtpmail-read-response): Add "%s" to `message' calls to avoid problems with percent signs in strings. (smtpmail-read-response): Return all lines of the response text as a list of strings. Formerly only the first line was returned. This is insufficient when one wants to parse e.g. an EHLO response. Ignore responses starting with "0". This is necessary to support the VERB SMTP extension. (smtpmail-via-smtp): Try EHLO and find out which SMTP service extensions the receiving mailer supports. Issue the ONEX and XUSR commands if the corresponding extensions are supported. Issue VERB if supported and `smtpmail-debug-info' is non-nil. Add SIZE attribute to MAIL FROM: command if SIZE extension is supported. Add code that could set the BODY= attribute to MAIL FROM: if the receiving mailer supports 8BITMIME. This is currently disabled, since doing it right might involve adding MIME headers to, and in some cases reencoding, the message.

;;; w32-fns.el --- Lisp routines for Windows NT.

;; Copyright (C) 1994 Free Software Foundation, Inc.

;; Author: Geoff Voelker ([e-mail])

;; 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 2, 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; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; Commentary:

;; (August 12, 1993)
;; Created.

;; (November 21, 1994)
;; [C-M-backspace] defined.
;; mode-line-format defined to show buffer file type.
;; audio bell initialized.

;;; Code:

;; Map delete and backspace
(define-key function-key-map [backspace] "\177")
(define-key function-key-map [delete] "\C-d")
(define-key function-key-map [M-backspace] [?\M-\177])
(define-key function-key-map [C-M-backspace] [\C-\M-delete])

;; Ignore case on file-name completion
(setq completion-ignore-case t)

(defvar w32-system-shells '("cmd" "cmd.exe" "command" "command.com")
  "List of strings recognized as Windows NT/95 system shells.")

(defun w32-using-nt ()
  "Return t if running on Windows NT (as oppposed to, e.g., Windows 95)."
  (and (eq system-type 'windows-nt) (getenv "SystemRoot")))

(defun w32-shell-name ()
  "Return the name of the shell being used on Windows NT/95."
  (or (and (boundp 'explicit-shell-file-name) explicit-shell-file-name)
      (getenv "ESHELL")
      (getenv "SHELL")
      (and (w32-using-nt) "cmd.exe")
      "command.com"))

(defun w32-using-system-shell-p ()
  "Return t if using a Windows NT/95 system shell (cmd.exe or command.com)."
  (member (downcase (file-name-nondirectory (w32-shell-name))) 
	  w32-system-shells))

(defun w32-startup ()
  "Configure Emacs during startup for running on Windows NT/95.
This function is invoked after loading the init files and processing
the command line, and is intended to initialize anything important 
not initialized by the user or site."
  ;; Configure shell mode if using a system shell.
  (cond ((w32-using-system-shell-p)
	 (let ((shell (file-name-nondirectory (w32-shell-name))))
	   ;; "/c" is used for executing command line arguments.
	   (setq shell-command-switch "/c")
	   ;; Complete directories using a backslash.
	   (setq comint-completion-addsuffix '("\\" . " "))
	   ;; Initialize the explicit-"shell"-args variable.
	   (cond ((member (downcase shell) '("cmd" "cmd.exe"))
		  (let* ((args-sym-name (format "explicit-%s-args" shell))
			 (args-sym (intern-soft args-sym-name)))
		    (cond ((not args-sym)
			   (setq args-sym (intern args-sym-name))
			   ;; The "/q" prevents cmd.exe from echoing commands.
			   (set args-sym '("/q")))))))))))

(add-hook 'emacs-startup-hook 'w32-startup)

;; Avoid creating auto-save file names containing invalid characters.
(fset 'original-make-auto-save-file-name
      (symbol-function 'make-auto-save-file-name))

(defun make-auto-save-file-name ()
  "Return file name to use for auto-saves of current buffer.
Does not consider `auto-save-visited-file-name' as that variable is checked
before calling this function.  You can redefine this for customization.
See also `auto-save-file-name-p'."
  (let ((name (original-make-auto-save-file-name))
	(start 0))
    ;; Skip drive letter if present.
    (if (string-match "^[\/]?[a-zA-`]:" name)
	(setq start (- (match-end 0) (match-beginning 0))))
    ;; Destructively replace occurrences of *?"<>|: with $
    (while (string-match "[?*\"<>|:]" name start)
      (aset name (match-beginning 0) ?$)
      (setq start (1+ (match-end 0))))
    name))

;;; Fix interface to (X-specific) mouse.el
(defun x-set-selection (type data)
  (or type (setq type 'PRIMARY))
  (put 'x-selections type data))

(defun x-get-selection (&optional type data-type)
  (or type (setq type 'PRIMARY))
  (get 'x-selections type))

(fmakunbound 'font-menu-add-default)
(global-unset-key [C-down-mouse-1])
(global-unset-key [C-down-mouse-2])
(global-unset-key [C-down-mouse-3])

;;; Set to a system sound if you want a fancy bell.
(set-message-beep nil)

;;; w32-fns.el ends here