annotate lisp/w32-fns.el @ 81879:8049a041fd5d

(set-default-process-coding-system): Use dos line ends for input to cmdproxy on all versions of Windows. Use dos line ends for input to plink.
author Jason Rumney <jasonr@gnu.org>
date Sun, 15 Jul 2007 00:59:43 +0000
parents e3694f1cb928
children 9355f9b7bbff a66921565bcb
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
38436
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 37621
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
64762
41bb365f41c4 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64563
diff changeset
3 ;; Copyright (C) 1994, 2001, 2002, 2003, 2004,
75347
e3694f1cb928 Add 2007 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 74832
diff changeset
4 ;; 2005, 2006, 2007 Free Software Foundation, Inc.
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5
21059
cbd9e55a6cdc Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 19692
diff changeset
6 ;; Author: Geoff Voelker <voelker@cs.washington.edu>
39117
abd085bfec0c Add Keywords header.
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
7 ;; Keywords: internal
9803
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 ;; This file is part of GNU Emacs.
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12 ;; 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
13 ;; the Free Software Foundation; either version 2, or (at your option)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14 ;; any later version.
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19 ;; GNU General Public License for more details.
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21 ;; 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
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64091
6fb026ad601f Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 55865
diff changeset
23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
6fb026ad601f Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 55865
diff changeset
24 ;; Boston, MA 02110-1301, USA.
9803
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 ;;; Commentary:
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28 ;; (August 12, 1993)
11399
f322675d5c53 Key [C-M-backspace] defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
29 ;; Created.
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
30
11399
f322675d5c53 Key [C-M-backspace] defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
31 ;; (November 21, 1994)
f322675d5c53 Key [C-M-backspace] defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
32 ;; [C-M-backspace] defined.
f322675d5c53 Key [C-M-backspace] defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
33 ;; mode-line-format defined to show buffer file type.
f322675d5c53 Key [C-M-backspace] defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
34 ;; audio bell initialized.
9803
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 ;;; Code:
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
37
65298
0028f546a4d3 (explicit-shell-file-name): Add defvar.
Juanma Barranquero <lekktu@gmail.com>
parents: 64762
diff changeset
38 (defvar explicit-shell-file-name)
0028f546a4d3 (explicit-shell-file-name): Add defvar.
Juanma Barranquero <lekktu@gmail.com>
parents: 64762
diff changeset
39
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
40 ;; Map delete and backspace
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
41 (define-key function-key-map [backspace] "\177")
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
42 (define-key function-key-map [delete] "\C-d")
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
43 (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
44 (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
45
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
46 ;; Ignore case on file-name completion
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
47 (setq completion-ignore-case t)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
48
40458
de4e98791121 (convert-standard-filename): Handle cygwin-specific pathnames.
Sam Steingold <sds@gnu.org>
parents: 40345
diff changeset
49 ;; Map all versions of a filename (8.3, longname, mixed case) to the
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
50 ;; same buffer.
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
51 (setq find-file-visit-truename t)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
52
33212
5298b23b61be (w32-version): New function.
Andrew Innes <andrewi@gnu.org>
parents: 32716
diff changeset
53 (defun w32-version ()
5298b23b61be (w32-version): New function.
Andrew Innes <andrewi@gnu.org>
parents: 32716
diff changeset
54 "Return the MS-Windows version numbers.
5298b23b61be (w32-version): New function.
Andrew Innes <andrewi@gnu.org>
parents: 32716
diff changeset
55 The value is a list of three integers: the major and minor version
5298b23b61be (w32-version): New function.
Andrew Innes <andrewi@gnu.org>
parents: 32716
diff changeset
56 numbers, and the build number."
5298b23b61be (w32-version): New function.
Andrew Innes <andrewi@gnu.org>
parents: 32716
diff changeset
57 (x-server-version))
5298b23b61be (w32-version): New function.
Andrew Innes <andrewi@gnu.org>
parents: 32716
diff changeset
58
17549
f57de209f01b (w32-using-nt, w32-shell-name, w32-using-system-shell-p,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16859
diff changeset
59 (defun w32-using-nt ()
55792
0d890eccf70f (w32-using-nt, w32-shell-dos-semantics, set-w32-system-coding-system):
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
60 "Return non-nil if running on a 32-bit Windows system.
0d890eccf70f (w32-using-nt, w32-shell-dos-semantics, set-w32-system-coding-system):
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
61 That includes all Windows systems except for 9X/Me."
17549
f57de209f01b (w32-using-nt, w32-shell-name, w32-using-system-shell-p,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16859
diff changeset
62 (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
63
f57de209f01b (w32-using-nt, w32-shell-name, w32-using-system-shell-p,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16859
diff changeset
64 (defun w32-shell-name ()
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
65 "Return the name of the shell being used."
64563
3a895c8815ed (w32-shell-name): Use `bound-and-true-p'.
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
66 (or (bound-and-true-p explicit-shell-file-name)
17549
f57de209f01b (w32-using-nt, w32-shell-name, w32-using-system-shell-p,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16859
diff changeset
67 (getenv "ESHELL")
f57de209f01b (w32-using-nt, w32-shell-name, w32-using-system-shell-p,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16859
diff changeset
68 (getenv "SHELL")
f57de209f01b (w32-using-nt, w32-shell-name, w32-using-system-shell-p,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16859
diff changeset
69 (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
70 "command.com"))
f57de209f01b (w32-using-nt, w32-shell-name, w32-using-system-shell-p,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16859
diff changeset
71
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
72 (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
73 (and shell-name
40458
de4e98791121 (convert-standard-filename): Handle cygwin-specific pathnames.
Sam Steingold <sds@gnu.org>
parents: 40345
diff changeset
74 (member (downcase (file-name-nondirectory shell-name))
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
75 w32-system-shells)))
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
76
23173
073e555c28c8 (w32-shell-dos-semantics): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21597
diff changeset
77 (defun w32-shell-dos-semantics ()
55792
0d890eccf70f (w32-using-nt, w32-shell-dos-semantics, set-w32-system-coding-system):
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
78 "Return non-nil if the interactive shell being used expects MSDOS shell semantics."
23173
073e555c28c8 (w32-shell-dos-semantics): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21597
diff changeset
79 (or (w32-system-shell-p (w32-shell-name))
073e555c28c8 (w32-shell-dos-semantics): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21597
diff changeset
80 (and (member (downcase (file-name-nondirectory (w32-shell-name)))
073e555c28c8 (w32-shell-dos-semantics): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21597
diff changeset
81 '("cmdproxy" "cmdproxy.exe"))
073e555c28c8 (w32-shell-dos-semantics): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21597
diff changeset
82 (w32-system-shell-p (getenv "COMSPEC")))))
073e555c28c8 (w32-shell-dos-semantics): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21597
diff changeset
83
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
84 (defun w32-check-shell-configuration ()
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
85 "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
86 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
87 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
88 has configured the shell with inappropriate settings."
21597
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
89 (interactive)
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
90 (let ((prev-buffer (current-buffer))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
91 (buffer (get-buffer-create "*Shell Configuration*"))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
92 (system-shell))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
93 (set-buffer buffer)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
94 (erase-buffer)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
95 (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
96 (insert (format "Warning! The ESHELL environment variable uses %s.
40458
de4e98791121 (convert-standard-filename): Handle cygwin-specific pathnames.
Sam Steingold <sds@gnu.org>
parents: 40345
diff changeset
97 You probably want to change it so that it uses cmdproxy.exe instead.\n\n"
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
98 (getenv "ESHELL"))))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
99 (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
100 (insert (format "Warning! The SHELL environment variable uses %s.
40458
de4e98791121 (convert-standard-filename): Handle cygwin-specific pathnames.
Sam Steingold <sds@gnu.org>
parents: 40345
diff changeset
101 You probably want to change it so that it uses cmdproxy.exe instead.\n\n"
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
102 (getenv "SHELL"))))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
103 (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
104 (insert (format "Warning! shell-file-name uses %s.
40458
de4e98791121 (convert-standard-filename): Handle cygwin-specific pathnames.
Sam Steingold <sds@gnu.org>
parents: 40345
diff changeset
105 You probably want to change it so that it uses cmdproxy.exe instead.\n\n"
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
106 shell-file-name)))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
107 (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
108 (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
109 (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
110 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
111 explicit-shell-file-name)))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
112 (setq system-shell (> (buffer-size) 0))
21597
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
113
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
114 ;; Allow user to specify that they really do want to use one of the
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
115 ;; "system" shells, despite the drawbacks, but still warn if
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
116 ;; shell-command-switch doesn't match.
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
117 (if w32-allow-system-shell
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
118 (erase-buffer))
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
119
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
120 (cond (system-shell
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
121 ;; System shells.
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
122 (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
123 (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
124 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
125 (if w32-quote-process-args
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
126 (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
127 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
128 ;; Non-system shells.
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
129 (t
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
130 (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
131 (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
132 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
133 (if (not w32-quote-process-args)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
134 (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
135 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
136 (if (> (buffer-size) 0)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
137 (display-buffer buffer)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
138 (kill-buffer buffer))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
139 (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
140
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
141 (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
142
24514
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
143 ;;; Override setting chosen at startup.
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
144 (defun set-default-process-coding-system ()
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
145 ;; Most programs on Windows will accept Unix line endings on input
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
146 ;; (and some programs ported from Unix require it) but most will
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
147 ;; produce DOS line endings on output.
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
148 (setq default-process-coding-system
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
149 (if default-enable-multibyte-characters
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
150 '(undecided-dos . undecided-unix)
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
151 '(raw-text-dos . raw-text-unix)))
81879
8049a041fd5d (set-default-process-coding-system): Use dos line ends
Jason Rumney <jasonr@gnu.org>
parents: 75347
diff changeset
152 ;; Make cmdproxy default to using DOS line endings for input,
8049a041fd5d (set-default-process-coding-system): Use dos line ends
Jason Rumney <jasonr@gnu.org>
parents: 75347
diff changeset
153 ;; because some Windows programs (including command.com) require it.
8049a041fd5d (set-default-process-coding-system): Use dos line ends
Jason Rumney <jasonr@gnu.org>
parents: 75347
diff changeset
154 (add-to-list 'process-coding-system-alist
8049a041fd5d (set-default-process-coding-system): Use dos line ends
Jason Rumney <jasonr@gnu.org>
parents: 75347
diff changeset
155 `("[cC][mM][dD][pP][rR][oO][xX][yY]"
8049a041fd5d (set-default-process-coding-system): Use dos line ends
Jason Rumney <jasonr@gnu.org>
parents: 75347
diff changeset
156 . ,(if default-enable-multibyte-characters
8049a041fd5d (set-default-process-coding-system): Use dos line ends
Jason Rumney <jasonr@gnu.org>
parents: 75347
diff changeset
157 '(undecided-dos . undecided-dos)
8049a041fd5d (set-default-process-coding-system): Use dos line ends
Jason Rumney <jasonr@gnu.org>
parents: 75347
diff changeset
158 '(raw-text-dos . raw-text-dos))))
8049a041fd5d (set-default-process-coding-system): Use dos line ends
Jason Rumney <jasonr@gnu.org>
parents: 75347
diff changeset
159 ;; plink needs DOS input when entering the password.
8049a041fd5d (set-default-process-coding-system): Use dos line ends
Jason Rumney <jasonr@gnu.org>
parents: 75347
diff changeset
160 (add-to-list 'process-coding-system-alist
8049a041fd5d (set-default-process-coding-system): Use dos line ends
Jason Rumney <jasonr@gnu.org>
parents: 75347
diff changeset
161 `("[pP][lL][iI][nN][kK]"
8049a041fd5d (set-default-process-coding-system): Use dos line ends
Jason Rumney <jasonr@gnu.org>
parents: 75347
diff changeset
162 . ,(if default-enable-multibyte-characters
8049a041fd5d (set-default-process-coding-system): Use dos line ends
Jason Rumney <jasonr@gnu.org>
parents: 75347
diff changeset
163 '(undecided-dos . undecided-dos)
8049a041fd5d (set-default-process-coding-system): Use dos line ends
Jason Rumney <jasonr@gnu.org>
parents: 75347
diff changeset
164 '(raw-text-dos . raw-text-dos)))))
24514
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
165
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
166 (add-hook 'before-init-hook 'set-default-process-coding-system)
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
167
21597
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
168
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
169 ;;; Basic support functions for managing Emacs' locale setting
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
170
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
171 (defvar w32-valid-locales nil
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
172 "List of locale ids known to be supported.")
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
173
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
174 ;;; This is the brute-force version; an efficient version is now
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
175 ;;; built-in though.
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
176 (if (not (fboundp 'w32-get-valid-locale-ids))
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
177 (defun w32-get-valid-locale-ids ()
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
178 "Return list of all valid Windows locale ids."
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
179 (let ((i 65535)
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
180 locales)
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
181 (while (> i 0)
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
182 (if (w32-get-locale-info i)
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
183 (setq locales (cons i locales)))
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
184 (setq i (1- i)))
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
185 locales)))
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
186
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
187 (defun w32-list-locales ()
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
188 "List the name and id of all locales supported by Windows."
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
189 (interactive)
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
190 (if (null w32-valid-locales)
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
191 (setq w32-valid-locales (w32-get-valid-locale-ids)))
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
192 (switch-to-buffer-other-window (get-buffer-create "*Supported Locales*"))
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
193 (erase-buffer)
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
194 (insert "LCID\tAbbrev\tFull name\n\n")
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
195 (insert (mapconcat
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
196 '(lambda (x)
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
197 (format "%d\t%s\t%s"
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
198 x
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
199 (w32-get-locale-info x)
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
200 (w32-get-locale-info x t)))
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
201 w32-valid-locales "\n"))
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
202 (insert "\n")
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
203 (goto-char (point-min)))
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
204
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
205
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
206 ;;; 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
207 ;;; 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
208 ;;; 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
209 ;;; 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
210 ;;; 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
211 (defun w32-init-info ()
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
212 (let* ((instdir (file-name-directory invocation-directory))
21597
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
213 (dir1 (expand-file-name "../info/" instdir))
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
214 (dir2 (expand-file-name "../../../info/" instdir)))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
215 (if (file-exists-p dir1)
40458
de4e98791121 (convert-standard-filename): Handle cygwin-specific pathnames.
Sam Steingold <sds@gnu.org>
parents: 40345
diff changeset
216 (setq Info-default-directory-list
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
217 (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
218 (if (file-exists-p dir2)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
219 (setq Info-default-directory-list
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
220 (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
221
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
222 (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
223
23571
ae5eea3cc314 Remove a dangling reference to a directory on the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23173
diff changeset
224 ;;; The variable source-directory is used to initialize Info-directory-list.
ae5eea3cc314 Remove a dangling reference to a directory on the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23173
diff changeset
225 ;;; However, the common case is that Emacs is being used from a binary
ae5eea3cc314 Remove a dangling reference to a directory on the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23173
diff changeset
226 ;;; distribution, and the value of source-directory is meaningless in that
ae5eea3cc314 Remove a dangling reference to a directory on the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23173
diff changeset
227 ;;; case. Even worse, source-directory can refer to a directory on a drive
ae5eea3cc314 Remove a dangling reference to a directory on the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23173
diff changeset
228 ;;; on the build machine that happens to be a removable drive on the user's
ae5eea3cc314 Remove a dangling reference to a directory on the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23173
diff changeset
229 ;;; machine. When this happens, Emacs tries to access the removable drive
ae5eea3cc314 Remove a dangling reference to a directory on the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23173
diff changeset
230 ;;; and produces the abort/retry/ignore dialog. Since we do not use
ae5eea3cc314 Remove a dangling reference to a directory on the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23173
diff changeset
231 ;;; source-directory, set it to something that is a reasonable approximation
ae5eea3cc314 Remove a dangling reference to a directory on the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23173
diff changeset
232 ;;; on the user's machine.
ae5eea3cc314 Remove a dangling reference to a directory on the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23173
diff changeset
233
40458
de4e98791121 (convert-standard-filename): Handle cygwin-specific pathnames.
Sam Steingold <sds@gnu.org>
parents: 40345
diff changeset
234 ;(add-hook 'before-init-hook
31616
4c03111f81ac Comment out before-init-hook function which resets
Andrew Innes <andrewi@gnu.org>
parents: 30435
diff changeset
235 ; '(lambda ()
40458
de4e98791121 (convert-standard-filename): Handle cygwin-specific pathnames.
Sam Steingold <sds@gnu.org>
parents: 40345
diff changeset
236 ; (setq source-directory (file-name-as-directory
31616
4c03111f81ac Comment out before-init-hook function which resets
Andrew Innes <andrewi@gnu.org>
parents: 30435
diff changeset
237 ; (expand-file-name ".." exec-directory)))))
23571
ae5eea3cc314 Remove a dangling reference to a directory on the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23173
diff changeset
238
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
239 (defun convert-standard-filename (filename)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
240 "Convert a standard file's name to something suitable for the current OS.
55865
ccd8cdf69359 Rework docstring (wording by Eli Zaretskii and Kai Grossjohann).
Juanma Barranquero <lekktu@gmail.com>
parents: 55792
diff changeset
241 This means to guarantee valid names and perhaps to canonicalize
ccd8cdf69359 Rework docstring (wording by Eli Zaretskii and Kai Grossjohann).
Juanma Barranquero <lekktu@gmail.com>
parents: 55792
diff changeset
242 certain patterns.
ccd8cdf69359 Rework docstring (wording by Eli Zaretskii and Kai Grossjohann).
Juanma Barranquero <lekktu@gmail.com>
parents: 55792
diff changeset
243
ccd8cdf69359 Rework docstring (wording by Eli Zaretskii and Kai Grossjohann).
Juanma Barranquero <lekktu@gmail.com>
parents: 55792
diff changeset
244 On Windows and DOS, replace invalid characters. On DOS, make
ccd8cdf69359 Rework docstring (wording by Eli Zaretskii and Kai Grossjohann).
Juanma Barranquero <lekktu@gmail.com>
parents: 55792
diff changeset
245 sure to obey the 8.3 limitations. On Windows, turn Cygwin names
ccd8cdf69359 Rework docstring (wording by Eli Zaretskii and Kai Grossjohann).
Juanma Barranquero <lekktu@gmail.com>
parents: 55792
diff changeset
246 into native names, and also turn slashes into backslashes if the
ccd8cdf69359 Rework docstring (wording by Eli Zaretskii and Kai Grossjohann).
Juanma Barranquero <lekktu@gmail.com>
parents: 55792
diff changeset
247 shell requires it (see `w32-shell-dos-semantics')."
74832
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
248 (save-match-data
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
249 (let ((name
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
250 (if (string-match "\\`/cygdrive/\\([a-zA-Z]\\)/" filename)
40458
de4e98791121 (convert-standard-filename): Handle cygwin-specific pathnames.
Sam Steingold <sds@gnu.org>
parents: 40345
diff changeset
251 (replace-match "\\1:/" t nil filename)
74832
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
252 (copy-sequence filename)))
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
253 (start 0))
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
254 ;; leave ':' if part of drive specifier
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
255 (if (and (> (length name) 1)
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
256 (eq (aref name 1) ?:))
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
257 (setq start 2))
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
258 ;; destructively replace invalid filename characters with !
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
259 (while (string-match "[?*:<>|\"\000-\037]" name start)
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
260 (aset name (match-beginning 0) ?!)
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
261 (setq start (match-end 0)))
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
262 ;; convert directory separators to Windows format
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
263 ;; (but only if the shell in use requires it)
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
264 (when (w32-shell-dos-semantics)
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
265 (setq start 0)
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
266 (while (string-match "/" name start)
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
267 (aset name (match-beginning 0) ?\\)
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
268 (setq start (match-end 0))))
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
269 name)))
15135
72a1f82a6748 (original-make-auto-save-file-name): New symbol bound
Geoff Voelker <voelker@cs.washington.edu>
parents: 15003
diff changeset
270
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
271 ;;; 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
272 (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
273 (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
274 (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
275
a8bd6f986389 (x-set-selection, x-get-selection): Define them to really use TYPE.
Richard M. Stallman <rms@gnu.org>
parents: 15338
diff changeset
276 (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
277 (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
278 (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
279
24498
756058742361 (set-w32-system-coding-system) New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24441
diff changeset
280 (defun set-w32-system-coding-system (coding-system)
55792
0d890eccf70f (w32-using-nt, w32-shell-dos-semantics, set-w32-system-coding-system):
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
281 "Set the coding system used by the Windows system to CODING-SYSTEM.
24498
756058742361 (set-w32-system-coding-system) New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24441
diff changeset
282 This is used for things like passing font names with non-ASCII
64563
3a895c8815ed (w32-shell-name): Use `bound-and-true-p'.
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
283 characters in them to the system. For a list of possible values of
41325
65bad70edb17 (w32-system-coding-system): Change to an alias for
Jason Rumney <jasonr@gnu.org>
parents: 40458
diff changeset
284 CODING-SYSTEM, use \\[list-coding-systems].
65bad70edb17 (w32-system-coding-system): Change to an alias for
Jason Rumney <jasonr@gnu.org>
parents: 40458
diff changeset
285
65bad70edb17 (w32-system-coding-system): Change to an alias for
Jason Rumney <jasonr@gnu.org>
parents: 40458
diff changeset
286 This function is provided for backward compatibility, since
55792
0d890eccf70f (w32-using-nt, w32-shell-dos-semantics, set-w32-system-coding-system):
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
287 `w32-system-coding-system' is now an alias for `locale-coding-system'."
24498
756058742361 (set-w32-system-coding-system) New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24441
diff changeset
288 (interactive
41325
65bad70edb17 (w32-system-coding-system): Change to an alias for
Jason Rumney <jasonr@gnu.org>
parents: 40458
diff changeset
289 (list (let ((default locale-coding-system))
24498
756058742361 (set-w32-system-coding-system) New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24441
diff changeset
290 (read-coding-system
65680
ed770a0a7846 2005-09-24 Emilio C. Lopes <eclig@gmx.net>
Romain Francoise <romain@orebokech.com>
parents: 65298
diff changeset
291 (format "Coding system for system calls (default %s): "
24498
756058742361 (set-w32-system-coding-system) New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24441
diff changeset
292 default)
756058742361 (set-w32-system-coding-system) New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24441
diff changeset
293 default))))
756058742361 (set-w32-system-coding-system) New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24441
diff changeset
294 (check-coding-system coding-system)
41325
65bad70edb17 (w32-system-coding-system): Change to an alias for
Jason Rumney <jasonr@gnu.org>
parents: 40458
diff changeset
295 (setq locale-coding-system coding-system))
65bad70edb17 (w32-system-coding-system): Change to an alias for
Jason Rumney <jasonr@gnu.org>
parents: 40458
diff changeset
296
65bad70edb17 (w32-system-coding-system): Change to an alias for
Jason Rumney <jasonr@gnu.org>
parents: 40458
diff changeset
297 ;; locale-coding-system was introduced to do the same thing as
65bad70edb17 (w32-system-coding-system): Change to an alias for
Jason Rumney <jasonr@gnu.org>
parents: 40458
diff changeset
298 ;; w32-system-coding-system. Use that instead.
65bad70edb17 (w32-system-coding-system): Change to an alias for
Jason Rumney <jasonr@gnu.org>
parents: 40458
diff changeset
299 (defvaralias 'w32-system-coding-system 'locale-coding-system)
24498
756058742361 (set-w32-system-coding-system) New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24441
diff changeset
300
11399
f322675d5c53 Key [C-M-backspace] defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
301 ;;; 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
302 (set-message-beep nil)
f322675d5c53 Key [C-M-backspace] defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
303
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
304 ;;; 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
305 ;;; 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
306 ;;; rather than beep.
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
307 (global-set-key [lwindow] 'ignore)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
308 (global-set-key [rwindow] 'ignore)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
309
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
310 ;; 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
311 ;; that people usually expect.
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
312 (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
313 (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
314 (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
315 (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
316 (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
317 (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
318 (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
319 (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
320 (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
321 (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
322
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
323 ;; 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
324 ;(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
325 ;(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
326 ;(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
327 ;(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
328
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
329 ;; 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
330 ;; these special chars to ASCII.
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
331 (put 'tab 'ascii-character ?\t)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
332 (put 'linefeed 'ascii-character ?\n)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
333 (put 'clear 'ascii-character 12)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
334 (put 'return 'ascii-character 13)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
335 (put 'escape 'ascii-character ?\e)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
336 (put 'backspace 'ascii-character 127)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
337 (put 'delete 'ascii-character 127)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
338
27521
719f644e7cec Define w32-tty-standard-colors.
Jason Rumney <jasonr@gnu.org>
parents: 24661
diff changeset
339 ;; W32 uses different color indexes than standard:
719f644e7cec Define w32-tty-standard-colors.
Jason Rumney <jasonr@gnu.org>
parents: 24661
diff changeset
340
719f644e7cec Define w32-tty-standard-colors.
Jason Rumney <jasonr@gnu.org>
parents: 24661
diff changeset
341 (defvar w32-tty-standard-colors
42950
65a061ec7803 (w32-tty-standard-colors): Reverse the order of standard console colors.
Eli Zaretskii <eliz@gnu.org>
parents: 42847
diff changeset
342 '(("black" 0 0 0 0)
65a061ec7803 (w32-tty-standard-colors): Reverse the order of standard console colors.
Eli Zaretskii <eliz@gnu.org>
parents: 42847
diff changeset
343 ("blue" 1 0 0 52480) ; MediumBlue
65a061ec7803 (w32-tty-standard-colors): Reverse the order of standard console colors.
Eli Zaretskii <eliz@gnu.org>
parents: 42847
diff changeset
344 ("green" 2 8704 35584 8704) ; ForestGreen
65a061ec7803 (w32-tty-standard-colors): Reverse the order of standard console colors.
Eli Zaretskii <eliz@gnu.org>
parents: 42847
diff changeset
345 ("cyan" 3 0 52736 53504) ; DarkTurquoise
65a061ec7803 (w32-tty-standard-colors): Reverse the order of standard console colors.
Eli Zaretskii <eliz@gnu.org>
parents: 42847
diff changeset
346 ("red" 4 45568 8704 8704) ; FireBrick
65a061ec7803 (w32-tty-standard-colors): Reverse the order of standard console colors.
Eli Zaretskii <eliz@gnu.org>
parents: 42847
diff changeset
347 ("magenta" 5 35584 0 35584) ; DarkMagenta
65a061ec7803 (w32-tty-standard-colors): Reverse the order of standard console colors.
Eli Zaretskii <eliz@gnu.org>
parents: 42847
diff changeset
348 ("brown" 6 40960 20992 11520) ; Sienna
65a061ec7803 (w32-tty-standard-colors): Reverse the order of standard console colors.
Eli Zaretskii <eliz@gnu.org>
parents: 42847
diff changeset
349 ("lightgray" 7 48640 48640 48640) ; Gray
27521
719f644e7cec Define w32-tty-standard-colors.
Jason Rumney <jasonr@gnu.org>
parents: 24661
diff changeset
350 ("darkgray" 8 26112 26112 26112) ; Gray40
42950
65a061ec7803 (w32-tty-standard-colors): Reverse the order of standard console colors.
Eli Zaretskii <eliz@gnu.org>
parents: 42847
diff changeset
351 ("lightblue" 9 0 0 65535) ; Blue
65a061ec7803 (w32-tty-standard-colors): Reverse the order of standard console colors.
Eli Zaretskii <eliz@gnu.org>
parents: 42847
diff changeset
352 ("lightgreen" 10 0 65535 0) ; Green
65a061ec7803 (w32-tty-standard-colors): Reverse the order of standard console colors.
Eli Zaretskii <eliz@gnu.org>
parents: 42847
diff changeset
353 ("lightcyan" 11 0 65535 65535) ; Cyan
65a061ec7803 (w32-tty-standard-colors): Reverse the order of standard console colors.
Eli Zaretskii <eliz@gnu.org>
parents: 42847
diff changeset
354 ("lightred" 12 65535 0 0) ; Red
65a061ec7803 (w32-tty-standard-colors): Reverse the order of standard console colors.
Eli Zaretskii <eliz@gnu.org>
parents: 42847
diff changeset
355 ("lightmagenta" 13 65535 0 65535) ; Magenta
65a061ec7803 (w32-tty-standard-colors): Reverse the order of standard console colors.
Eli Zaretskii <eliz@gnu.org>
parents: 42847
diff changeset
356 ("yellow" 14 65535 65535 0) ; Yellow
65a061ec7803 (w32-tty-standard-colors): Reverse the order of standard console colors.
Eli Zaretskii <eliz@gnu.org>
parents: 42847
diff changeset
357 ("white" 15 65535 65535 65535))
27521
719f644e7cec Define w32-tty-standard-colors.
Jason Rumney <jasonr@gnu.org>
parents: 24661
diff changeset
358 "A list of VGA console colors, their indices and 16-bit RGB values.")
719f644e7cec Define w32-tty-standard-colors.
Jason Rumney <jasonr@gnu.org>
parents: 24661
diff changeset
359
33385
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
360
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
361 (defun w32-add-charset-info (xlfd-charset windows-charset codepage)
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
362 "Function to add character sets to display with Windows fonts.
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
363 Creates entries in `w32-charset-info-alist'.
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
364 XLFD-CHARSET is a string which will appear in the XLFD font name to
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
365 identify the character set. WINDOWS-CHARSET is a symbol identifying
64563
3a895c8815ed (w32-shell-name): Use `bound-and-true-p'.
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
366 the Windows character set this maps to. For the list of possible
3a895c8815ed (w32-shell-name): Use `bound-and-true-p'.
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
367 values, see the documentation for `w32-charset-info-alist'. CODEPAGE
33385
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
368 can be a numeric codepage that Windows uses to display the character
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
369 set, t for Unicode output with no codepage translation or nil for 8
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
370 bit output with no translation."
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
371 (add-to-list 'w32-charset-info-alist
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
372 (cons xlfd-charset (cons windows-charset codepage)))
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
373 )
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
374
45814
8e79905a56dd (w32-charset-info-alist): Reorder.
Jason Rumney <jasonr@gnu.org>
parents: 43756
diff changeset
375 ;; The last charset we add becomes the "preferred" charset for the return
8e79905a56dd (w32-charset-info-alist): Reorder.
Jason Rumney <jasonr@gnu.org>
parents: 43756
diff changeset
376 ;; value from w32-select-font etc, so list the most important charsets last.
33385
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
377 (w32-add-charset-info "iso8859-14" 'w32-charset-ansi 28604)
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
378 (w32-add-charset-info "iso8859-15" 'w32-charset-ansi 28605)
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
379 (w32-add-charset-info "jisx0201-latin" 'w32-charset-shiftjis 932)
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
380 (w32-add-charset-info "jisx0201-katakana" 'w32-charset-shiftjis 932)
45814
8e79905a56dd (w32-charset-info-alist): Reorder.
Jason Rumney <jasonr@gnu.org>
parents: 43756
diff changeset
381 (w32-add-charset-info "jisx0208-sjis" 'w32-charset-shiftjis 932)
33385
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
382 (w32-add-charset-info "ksc5601.1987" 'w32-charset-hangeul 949)
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
383 (w32-add-charset-info "big5" 'w32-charset-chinesebig5 950)
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
384 (w32-add-charset-info "gb2312" 'w32-charset-gb2312 936)
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
385 (w32-add-charset-info "ms-symbol" 'w32-charset-symbol nil)
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
386 (w32-add-charset-info "ms-oem" 'w32-charset-oem 437)
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
387 (w32-add-charset-info "ms-oemlatin" 'w32-charset-oem 850)
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
388 (if (boundp 'w32-extra-charsets-defined)
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
389 (progn
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
390 (w32-add-charset-info "iso8859-2" 'w32-charset-easteurope 28592)
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
391 (w32-add-charset-info "iso8859-3" 'w32-charset-turkish 28593)
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
392 (w32-add-charset-info "iso8859-4" 'w32-charset-baltic 28594)
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
393 (w32-add-charset-info "iso8859-6" 'w32-charset-arabic 28596)
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
394 (w32-add-charset-info "iso8859-7" 'w32-charset-greek 28597)
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
395 (w32-add-charset-info "iso8859-8" 'w32-charset-hebrew 1255)
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
396 (w32-add-charset-info "iso8859-9" 'w32-charset-turkish 1254)
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
397 (w32-add-charset-info "iso8859-13" 'w32-charset-baltic 1257)
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
398 (w32-add-charset-info "koi8-r" 'w32-charset-russian 20866)
45814
8e79905a56dd (w32-charset-info-alist): Reorder.
Jason Rumney <jasonr@gnu.org>
parents: 43756
diff changeset
399 (w32-add-charset-info "iso8859-5" 'w32-charset-russian 28595)
33385
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
400 (w32-add-charset-info "tis620" 'w32-charset-thai 874)
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
401 (w32-add-charset-info "ksc5601.1992" 'w32-charset-johab 1361)
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
402 (w32-add-charset-info "mac" 'w32-charset-mac nil)))
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
403 (if (boundp 'w32-unicode-charset-defined)
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
404 (progn
45814
8e79905a56dd (w32-charset-info-alist): Reorder.
Jason Rumney <jasonr@gnu.org>
parents: 43756
diff changeset
405 (w32-add-charset-info "unicode" 'w32-charset-unicode t)
8e79905a56dd (w32-charset-info-alist): Reorder.
Jason Rumney <jasonr@gnu.org>
parents: 43756
diff changeset
406 (w32-add-charset-info "iso10646-1" 'w32-charset-unicode t))
40345
1f8fda3ed895 Use ANSI fonts for iso10646-1 if UNICODE is not defined in system headers.
Jason Rumney <jasonr@gnu.org>
parents: 39117
diff changeset
407 ;; If unicode windows charset is not defined, use ansi fonts.
1f8fda3ed895 Use ANSI fonts for iso10646-1 if UNICODE is not defined in system headers.
Jason Rumney <jasonr@gnu.org>
parents: 39117
diff changeset
408 (w32-add-charset-info "iso10646-1" 'w32-charset-ansi t))
45814
8e79905a56dd (w32-charset-info-alist): Reorder.
Jason Rumney <jasonr@gnu.org>
parents: 43756
diff changeset
409 (w32-add-charset-info "iso8859-1" 'w32-charset-ansi 1252)
28273
454890f5952d (w32-charset-info-alist): Initialize.
Jason Rumney <jasonr@gnu.org>
parents: 27521
diff changeset
410
33885
fd77fd05cecb add version to obsolete variables.
Jason Rumney <jasonr@gnu.org>
parents: 33385
diff changeset
411 (make-obsolete-variable 'w32-enable-italics
fd77fd05cecb add version to obsolete variables.
Jason Rumney <jasonr@gnu.org>
parents: 33385
diff changeset
412 'w32-enable-synthesized-fonts "21.1")
30237
c470ffbc2a4a (w32-enable-italics, w32-charset-to-codepage-alist): Declare as obsolete.
Jason Rumney <jasonr@gnu.org>
parents: 29323
diff changeset
413 (make-obsolete-variable 'w32-charset-to-codepage-alist
33885
fd77fd05cecb add version to obsolete variables.
Jason Rumney <jasonr@gnu.org>
parents: 33385
diff changeset
414 'w32-charset-info-alist "21.1")
30237
c470ffbc2a4a (w32-enable-italics, w32-charset-to-codepage-alist): Declare as obsolete.
Jason Rumney <jasonr@gnu.org>
parents: 29323
diff changeset
415
34369
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
416
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
417 ;;;; Selections and cut buffers
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
418
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
419 ;;; We keep track of the last text selected here, so we can check the
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
420 ;;; current selection against it, and avoid passing back our own text
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
421 ;;; from x-cut-buffer-or-selection-value.
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
422 (defvar x-last-selected-text nil)
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
423
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
424 ;;; It is said that overlarge strings are slow to put into the cut buffer.
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
425 ;;; Note this value is overridden below.
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
426 (defvar x-cut-buffer-max 20000
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
427 "Max number of characters to put in the cut buffer.")
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
428
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
429 (defun x-select-text (text &optional push)
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
430 "Make TEXT the last selected text.
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
431 If `x-select-enable-clipboard' is non-nil, copy the text to the system
64563
3a895c8815ed (w32-shell-name): Use `bound-and-true-p'.
Juanma Barranquero <lekktu@gmail.com>
parents: 64091
diff changeset
432 clipboard as well. Optional PUSH is ignored on Windows."
34369
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
433 (if x-select-enable-clipboard
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
434 (w32-set-clipboard-data text))
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
435 (setq x-last-selected-text text))
40458
de4e98791121 (convert-standard-filename): Handle cygwin-specific pathnames.
Sam Steingold <sds@gnu.org>
parents: 40345
diff changeset
436
34369
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
437 (defun x-get-selection-value ()
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
438 "Return the value of the current selection.
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
439 Consult the selection, then the cut buffer. Treat empty strings as if
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
440 they were unset."
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
441 (if x-select-enable-clipboard
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
442 (let (text)
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
443 ;; Don't die if x-get-selection signals an error.
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
444 (condition-case c
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
445 (setq text (w32-get-clipboard-data))
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
446 (error (message "w32-get-clipboard-data:%s" c)))
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
447 (if (string= text "") (setq text nil))
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
448 (cond
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
449 ((not text) nil)
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
450 ((eq text x-last-selected-text) nil)
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
451 ((string= text x-last-selected-text)
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
452 ;; Record the newer string, so subsequent calls can use the 'eq' test.
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
453 (setq x-last-selected-text text)
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
454 nil)
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
455 (t
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
456 (setq x-last-selected-text text))))))
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
457
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
458 (defalias 'x-cut-buffer-or-selection-value 'x-get-selection-value)
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
459
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
460 ;;; Arrange for the kill and yank functions to set and check the clipboard.
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
461 (setq interprogram-cut-function 'x-select-text)
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
462 (setq interprogram-paste-function 'x-get-selection-value)
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
463
67794
09f3c0ac0073 (w32-batch-update-autoloads): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 65680
diff changeset
464
09f3c0ac0073 (w32-batch-update-autoloads): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 65680
diff changeset
465 ;;;; Support for build process
09f3c0ac0073 (w32-batch-update-autoloads): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 65680
diff changeset
466 (defun w32-batch-update-autoloads ()
09f3c0ac0073 (w32-batch-update-autoloads): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 65680
diff changeset
467 "Like `batch-update-autoloads', but takes the name of the autoloads file
09f3c0ac0073 (w32-batch-update-autoloads): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 65680
diff changeset
468 from the command line.
09f3c0ac0073 (w32-batch-update-autoloads): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 65680
diff changeset
469
09f3c0ac0073 (w32-batch-update-autoloads): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 65680
diff changeset
470 This is required because some Windows build environments, such as MSYS,
09f3c0ac0073 (w32-batch-update-autoloads): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 65680
diff changeset
471 munge command-line arguments that include file names to a horrible mess
09f3c0ac0073 (w32-batch-update-autoloads): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 65680
diff changeset
472 that Emacs is unable to cope with."
09f3c0ac0073 (w32-batch-update-autoloads): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 65680
diff changeset
473 (let ((generated-autoload-file
09f3c0ac0073 (w32-batch-update-autoloads): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 65680
diff changeset
474 (expand-file-name (pop command-line-args-left))))
09f3c0ac0073 (w32-batch-update-autoloads): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 65680
diff changeset
475 (batch-update-autoloads)))
34369
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
476
74511
de08a74adc2a (w32-append-code-lines): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 68651
diff changeset
477 (defun w32-append-code-lines (orig extra)
de08a74adc2a (w32-append-code-lines): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 68651
diff changeset
478 "Append non-empty non-comment lines in the file EXTRA to the file ORIG.
de08a74adc2a (w32-append-code-lines): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 68651
diff changeset
479
de08a74adc2a (w32-append-code-lines): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 68651
diff changeset
480 This function saves all buffers and kills the Emacs session, without asking
de08a74adc2a (w32-append-code-lines): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 68651
diff changeset
481 for any permissions.
de08a74adc2a (w32-append-code-lines): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 68651
diff changeset
482
de08a74adc2a (w32-append-code-lines): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 68651
diff changeset
483 This is required because the Windows build environment is not required
de08a74adc2a (w32-append-code-lines): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 68651
diff changeset
484 to include Sed, which is used by leim/Makefile.in to do the job."
de08a74adc2a (w32-append-code-lines): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 68651
diff changeset
485 (find-file orig)
de08a74adc2a (w32-append-code-lines): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 68651
diff changeset
486 (goto-char (point-max))
de08a74adc2a (w32-append-code-lines): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 68651
diff changeset
487 (insert-file-contents extra)
de08a74adc2a (w32-append-code-lines): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 68651
diff changeset
488 (delete-matching-lines "^$\\|^;")
de08a74adc2a (w32-append-code-lines): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 68651
diff changeset
489 (save-buffers-kill-emacs t))
de08a74adc2a (w32-append-code-lines): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 68651
diff changeset
490
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 45814
diff changeset
491 ;;; arch-tag: c49b48cc-0f4f-454f-a274-c2dc34815e14
16592
a5e9fa379097 Use new file name w32-fns.el
Geoff Voelker <voelker@cs.washington.edu>
parents: 16028
diff changeset
492 ;;; w32-fns.el ends here