annotate lisp/w32-fns.el @ 20196:5c9cedc7dd75

Incorporated simplifying suggestions from Carsten Dominik <dominik@strw.LeidenUniv.nl>.
author Oliver Seidel <os10000@seidel-space.de>
date Tue, 28 Oct 1997 21:37:05 +0000
parents 4b8ff0021dcb
children cbd9e55a6cdc
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
16592
a5e9fa379097 Use new file name w32-fns.el
Geoff Voelker <voelker@cs.washington.edu>
parents: 16028
diff changeset
1 ;;; w32-fns.el --- Lisp routines for Windows NT.
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14121
diff changeset
2
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3 ;; Copyright (C) 1994 Free Software Foundation, Inc.
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5 ;; Author: Geoff Voelker (voelker@cs.washington.edu)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7 ;; This file is part of GNU Emacs.
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
8
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9 ;; GNU Emacs is free software; you can redistribute it and/or modify
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10 ;; it under the terms of the GNU General Public License as published by
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11 ;; the Free Software Foundation; either version 2, or (at your option)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12 ;; any later version.
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14 ;; GNU Emacs is distributed in the hope that it will be useful,
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 ;; GNU General Public License for more details.
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19 ;; You should have received a copy of the GNU General Public License
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14121
diff changeset
20 ;; along with GNU Emacs; see the file COPYING. If not, write to the
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14121
diff changeset
21 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14121
diff changeset
22 ;; Boston, MA 02111-1307, USA.
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24 ;;; Commentary:
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26 ;; (August 12, 1993)
11399
f322675d5c53 Key [C-M-backspace] defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
27 ;; Created.
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28
11399
f322675d5c53 Key [C-M-backspace] defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
29 ;; (November 21, 1994)
f322675d5c53 Key [C-M-backspace] defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
30 ;; [C-M-backspace] defined.
f322675d5c53 Key [C-M-backspace] defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
31 ;; mode-line-format defined to show buffer file type.
f322675d5c53 Key [C-M-backspace] defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
32 ;; audio bell initialized.
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
33
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
34 ;;; Code:
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
35
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
36 ;; Map delete and backspace
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
37 (define-key function-key-map [backspace] "\177")
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
38 (define-key function-key-map [delete] "\C-d")
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39 (define-key function-key-map [M-backspace] [?\M-\177])
11399
f322675d5c53 Key [C-M-backspace] defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
40 (define-key function-key-map [C-M-backspace] [\C-\M-delete])
f322675d5c53 Key [C-M-backspace] defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
41
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
42 ;; Ignore case on file-name completion
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
43 (setq completion-ignore-case t)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
44
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
45 ;; Map all versions of a filename (8.3, longname, mixed case) to the
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
46 ;; same buffer.
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
47 (setq find-file-visit-truename t)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
48
17549
f57de209f01b (w32-using-nt, w32-shell-name, w32-using-system-shell-p,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16859
diff changeset
49 (defvar w32-system-shells '("cmd" "cmd.exe" "command" "command.com")
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
50 "List of strings recognized as Windows NT/9X system shells.")
17549
f57de209f01b (w32-using-nt, w32-shell-name, w32-using-system-shell-p,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16859
diff changeset
51
f57de209f01b (w32-using-nt, w32-shell-name, w32-using-system-shell-p,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16859
diff changeset
52 (defun w32-using-nt ()
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
53 "Return t if literally running on Windows NT (i.e., not Windows 9X)."
17549
f57de209f01b (w32-using-nt, w32-shell-name, w32-using-system-shell-p,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16859
diff changeset
54 (and (eq system-type 'windows-nt) (getenv "SystemRoot")))
f57de209f01b (w32-using-nt, w32-shell-name, w32-using-system-shell-p,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16859
diff changeset
55
f57de209f01b (w32-using-nt, w32-shell-name, w32-using-system-shell-p,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16859
diff changeset
56 (defun w32-shell-name ()
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
57 "Return the name of the shell being used."
17549
f57de209f01b (w32-using-nt, w32-shell-name, w32-using-system-shell-p,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16859
diff changeset
58 (or (and (boundp 'explicit-shell-file-name) explicit-shell-file-name)
f57de209f01b (w32-using-nt, w32-shell-name, w32-using-system-shell-p,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16859
diff changeset
59 (getenv "ESHELL")
f57de209f01b (w32-using-nt, w32-shell-name, w32-using-system-shell-p,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16859
diff changeset
60 (getenv "SHELL")
f57de209f01b (w32-using-nt, w32-shell-name, w32-using-system-shell-p,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16859
diff changeset
61 (and (w32-using-nt) "cmd.exe")
f57de209f01b (w32-using-nt, w32-shell-name, w32-using-system-shell-p,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16859
diff changeset
62 "command.com"))
f57de209f01b (w32-using-nt, w32-shell-name, w32-using-system-shell-p,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16859
diff changeset
63
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
64 (defun w32-system-shell-p (shell-name)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
65 (and shell-name
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
66 (member (downcase (file-name-nondirectory shell-name))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
67 w32-system-shells)))
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
68
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
69 (defun w32-check-shell-configuration ()
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
70 "Check the configuration of shell variables on Windows NT/9X.
17549
f57de209f01b (w32-using-nt, w32-shell-name, w32-using-system-shell-p,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16859
diff changeset
71 This function is invoked after loading the init files and processing
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
72 the command line arguments. It issues a warning if the user or site
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
73 has configured the shell with inappropriate settings."
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
74 (let ((prev-buffer (current-buffer))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
75 (buffer (get-buffer-create "*Shell Configuration*"))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
76 (system-shell))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
77 (set-buffer buffer)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
78 (erase-buffer)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
79 (if (w32-system-shell-p (getenv "ESHELL"))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
80 (insert (format "Warning! The ESHELL environment variable uses %s.
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
81 You probably want to change it so that it uses cmdproxy.exe instead.\n\n"
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
82 (getenv "ESHELL"))))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
83 (if (w32-system-shell-p (getenv "SHELL"))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
84 (insert (format "Warning! The SHELL environment variable uses %s.
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
85 You probably want to change it so that it uses cmdproxy.exe instead.\n\n"
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
86 (getenv "SHELL"))))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
87 (if (w32-system-shell-p shell-file-name)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
88 (insert (format "Warning! shell-file-name uses %s.
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
89 You probably want to change it so that it uses cmdproxy.exe instead.\n\n"
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
90 shell-file-name)))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
91 (if (and (boundp 'explicit-shell-file-name)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
92 (w32-system-shell-p explicit-shell-file-name))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
93 (insert (format "Warning! explicit-shell-file-name uses %s.
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
94 You probably want to change it so that it uses cmdproxy.exe instead.\n\n"
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
95 explicit-shell-file-name)))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
96 (setq system-shell (> (buffer-size) 0))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
97 (cond (system-shell
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
98 ;; System shells.
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
99 (if (string-equal "-c" shell-command-switch)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
100 (insert "Warning! shell-command-switch is \"-c\".
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
101 You should set this to \"/c\" when using a system shell.\n\n"))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
102 (if w32-quote-process-args
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
103 (insert "Warning! w32-quote-process-args is t.
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
104 You should set this to nil when using a system shell.\n\n")))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
105 ;; Non-system shells.
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
106 (t
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
107 (if (string-equal "/c" shell-command-switch)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
108 (insert "Warning! shell-command-switch is \"/c\".
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
109 You should set this to \"-c\" when using a non-system shell.\n\n"))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
110 (if (not w32-quote-process-args)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
111 (insert "Warning! w32-quote-process-args is nil.
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
112 You should set this to t when using a non-system shell.\n\n"))))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
113 (if (> (buffer-size) 0)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
114 (display-buffer buffer)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
115 (kill-buffer buffer))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
116 (set-buffer prev-buffer)))
17549
f57de209f01b (w32-using-nt, w32-shell-name, w32-using-system-shell-p,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16859
diff changeset
117
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
118 (add-hook 'after-init-hook 'w32-check-shell-configuration)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
119
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
120 ;;; Setup Info-default-directory-list to include the info directory
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
121 ;;; near where Emacs executable was installed. We used to set INFOPATH,
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
122 ;;; but when this is set Info-default-directory-list is ignored. We
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
123 ;;; also cannot rely upon what is set in paths.el because they assume
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
124 ;;; that configuration during build time is correct for runtime.
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
125 (defun w32-init-info ()
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
126 (let* ((instdir (file-name-directory invocation-directory))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
127 (dir1 (expand-file-name "info/" instdir))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
128 (dir2 (expand-file-name "../../../info/" instdir)))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
129 (if (file-exists-p dir1)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
130 (setq Info-default-directory-list
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
131 (append Info-default-directory-list (list dir1)))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
132 (if (file-exists-p dir2)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
133 (setq Info-default-directory-list
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
134 (append Info-default-directory-list (list dir2)))))))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
135
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
136 (add-hook 'before-init-hook 'w32-init-info)
15338
b0d95c32f026 (shell-mode-hook): Set comint-completion-addsuffix
Richard M. Stallman <rms@gnu.org>
parents: 15257
diff changeset
137
16859
2a3cc82fa1ea (make-auto-save-file-name): Replace occurrences of
Geoff Voelker <voelker@cs.washington.edu>
parents: 16592
diff changeset
138 ;; Avoid creating auto-save file names containing invalid characters.
15135
72a1f82a6748 (original-make-auto-save-file-name): New symbol bound
Geoff Voelker <voelker@cs.washington.edu>
parents: 15003
diff changeset
139 (fset 'original-make-auto-save-file-name
72a1f82a6748 (original-make-auto-save-file-name): New symbol bound
Geoff Voelker <voelker@cs.washington.edu>
parents: 15003
diff changeset
140 (symbol-function 'make-auto-save-file-name))
72a1f82a6748 (original-make-auto-save-file-name): New symbol bound
Geoff Voelker <voelker@cs.washington.edu>
parents: 15003
diff changeset
141
72a1f82a6748 (original-make-auto-save-file-name): New symbol bound
Geoff Voelker <voelker@cs.washington.edu>
parents: 15003
diff changeset
142 (defun make-auto-save-file-name ()
72a1f82a6748 (original-make-auto-save-file-name): New symbol bound
Geoff Voelker <voelker@cs.washington.edu>
parents: 15003
diff changeset
143 "Return file name to use for auto-saves of current buffer.
72a1f82a6748 (original-make-auto-save-file-name): New symbol bound
Geoff Voelker <voelker@cs.washington.edu>
parents: 15003
diff changeset
144 Does not consider `auto-save-visited-file-name' as that variable is checked
72a1f82a6748 (original-make-auto-save-file-name): New symbol bound
Geoff Voelker <voelker@cs.washington.edu>
parents: 15003
diff changeset
145 before calling this function. You can redefine this for customization.
72a1f82a6748 (original-make-auto-save-file-name): New symbol bound
Geoff Voelker <voelker@cs.washington.edu>
parents: 15003
diff changeset
146 See also `auto-save-file-name-p'."
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
147 (convert-standard-filename (original-make-auto-save-file-name)))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
148
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
149 (defun convert-standard-filename (filename)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
150 "Convert a standard file's name to something suitable for the current OS.
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
151 This function's standard definition is trivial; it just returns the argument.
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
152 However, on some systems, the function is redefined
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
153 with a definition that really does change some file names."
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
154 (let ((name (copy-sequence filename))
15135
72a1f82a6748 (original-make-auto-save-file-name): New symbol bound
Geoff Voelker <voelker@cs.washington.edu>
parents: 15003
diff changeset
155 (start 0))
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
156 ;; leave ':' if part of drive specifier
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
157 (if (eq (aref name 1) ?:)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
158 (setq start 2))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
159 ;; destructively replace invalid filename characters with !
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
160 (while (string-match "[?*:<>|\"\000-\037]" name start)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
161 (aset name (match-beginning 0) ?!)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
162 (setq start (match-end 0)))
15135
72a1f82a6748 (original-make-auto-save-file-name): New symbol bound
Geoff Voelker <voelker@cs.washington.edu>
parents: 15003
diff changeset
163 name))
72a1f82a6748 (original-make-auto-save-file-name): New symbol bound
Geoff Voelker <voelker@cs.washington.edu>
parents: 15003
diff changeset
164
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
165 ;;; Fix interface to (X-specific) mouse.el
15350
a8bd6f986389 (x-set-selection, x-get-selection): Define them to really use TYPE.
Richard M. Stallman <rms@gnu.org>
parents: 15338
diff changeset
166 (defun x-set-selection (type data)
a8bd6f986389 (x-set-selection, x-get-selection): Define them to really use TYPE.
Richard M. Stallman <rms@gnu.org>
parents: 15338
diff changeset
167 (or type (setq type 'PRIMARY))
a8bd6f986389 (x-set-selection, x-get-selection): Define them to really use TYPE.
Richard M. Stallman <rms@gnu.org>
parents: 15338
diff changeset
168 (put 'x-selections type data))
a8bd6f986389 (x-set-selection, x-get-selection): Define them to really use TYPE.
Richard M. Stallman <rms@gnu.org>
parents: 15338
diff changeset
169
a8bd6f986389 (x-set-selection, x-get-selection): Define them to really use TYPE.
Richard M. Stallman <rms@gnu.org>
parents: 15338
diff changeset
170 (defun x-get-selection (&optional type data-type)
a8bd6f986389 (x-set-selection, x-get-selection): Define them to really use TYPE.
Richard M. Stallman <rms@gnu.org>
parents: 15338
diff changeset
171 (or type (setq type 'PRIMARY))
a8bd6f986389 (x-set-selection, x-get-selection): Define them to really use TYPE.
Richard M. Stallman <rms@gnu.org>
parents: 15338
diff changeset
172 (get 'x-selections type))
a8bd6f986389 (x-set-selection, x-get-selection): Define them to really use TYPE.
Richard M. Stallman <rms@gnu.org>
parents: 15338
diff changeset
173
11399
f322675d5c53 Key [C-M-backspace] defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
174 ;;; Set to a system sound if you want a fancy bell.
f322675d5c53 Key [C-M-backspace] defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
175 (set-message-beep nil)
f322675d5c53 Key [C-M-backspace] defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
176
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
177 ;;; The "Windows" keys on newer keyboards bring up the Start menu
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
178 ;;; whether you want it or not - make Emacs ignore these keystrokes
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
179 ;;; rather than beep.
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
180 (global-set-key [lwindow] 'ignore)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
181 (global-set-key [rwindow] 'ignore)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
182
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
183 ;; Map certain keypad keys into ASCII characters
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
184 ;; that people usually expect.
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
185 (define-key function-key-map [tab] [?\t])
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
186 (define-key function-key-map [linefeed] [?\n])
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
187 (define-key function-key-map [clear] [11])
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
188 (define-key function-key-map [return] [13])
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
189 (define-key function-key-map [escape] [?\e])
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
190 (define-key function-key-map [M-tab] [?\M-\t])
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
191 (define-key function-key-map [M-linefeed] [?\M-\n])
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
192 (define-key function-key-map [M-clear] [?\M-\013])
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
193 (define-key function-key-map [M-return] [?\M-\015])
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
194 (define-key function-key-map [M-escape] [?\M-\e])
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
195
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
196 ;; These don't do the right thing (voelker)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
197 ;(define-key function-key-map [backspace] [127])
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
198 ;(define-key function-key-map [delete] [127])
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
199 ;(define-key function-key-map [M-backspace] [?\M-\d])
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
200 ;(define-key function-key-map [M-delete] [?\M-\d])
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
201
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
202 ;; These tell read-char how to convert
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
203 ;; these special chars to ASCII.
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
204 (put 'tab 'ascii-character ?\t)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
205 (put 'linefeed 'ascii-character ?\n)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
206 (put 'clear 'ascii-character 12)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
207 (put 'return 'ascii-character 13)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
208 (put 'escape 'ascii-character ?\e)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
209 (put 'backspace 'ascii-character 127)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
210 (put 'delete 'ascii-character 127)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
211
16592
a5e9fa379097 Use new file name w32-fns.el
Geoff Voelker <voelker@cs.washington.edu>
parents: 16028
diff changeset
212 ;;; w32-fns.el ends here