annotate lisp/w32-fns.el @ 57644:c0f2bdd90b5d

(Ftranslate_region_internal): New function. (syms_of_editfns): Defsubr it.
author Kenichi Handa <handa@m17n.org>
date Fri, 22 Oct 2004 13:09:39 +0000
parents ccd8cdf69359
children 6fb026ad601f 4c90ffeb71c5
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
55792
0d890eccf70f (w32-using-nt, w32-shell-dos-semantics, set-w32-system-coding-system):
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
3 ;; Copyright (C) 1994, 2001, 2004 Free Software Foundation, Inc.
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4
21059
cbd9e55a6cdc Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 19692
diff changeset
5 ;; Author: Geoff Voelker <voelker@cs.washington.edu>
39117
abd085bfec0c Add Keywords header.
Gerd Moellmann <gerd@gnu.org>
parents: 38436
diff changeset
6 ;; Keywords: internal
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
8 ;; This file is part of GNU Emacs.
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11 ;; 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
12 ;; the Free Software Foundation; either version 2, or (at your option)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 ;; any later version.
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 ;; GNU General Public License for more details.
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20 ;; 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
21 ;; 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
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14121
diff changeset
23 ;; Boston, MA 02111-1307, USA.
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25 ;;; Commentary:
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27 ;; (August 12, 1993)
11399
f322675d5c53 Key [C-M-backspace] defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
28 ;; Created.
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
29
11399
f322675d5c53 Key [C-M-backspace] defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
30 ;; (November 21, 1994)
f322675d5c53 Key [C-M-backspace] defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
31 ;; [C-M-backspace] defined.
f322675d5c53 Key [C-M-backspace] defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
32 ;; mode-line-format defined to show buffer file type.
f322675d5c53 Key [C-M-backspace] defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
33 ;; audio bell initialized.
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
34
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
35 ;;; Code:
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
36
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
37 ;; Map delete and backspace
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
38 (define-key function-key-map [backspace] "\177")
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39 (define-key function-key-map [delete] "\C-d")
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
40 (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
41 (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
42
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
43 ;; Ignore case on file-name completion
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
44 (setq completion-ignore-case t)
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
45
40458
de4e98791121 (convert-standard-filename): Handle cygwin-specific pathnames.
Sam Steingold <sds@gnu.org>
parents: 40345
diff changeset
46 ;; 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
47 ;; same buffer.
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
48 (setq find-file-visit-truename t)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
49
33212
5298b23b61be (w32-version): New function.
Andrew Innes <andrewi@gnu.org>
parents: 32716
diff changeset
50 (defun w32-version ()
5298b23b61be (w32-version): New function.
Andrew Innes <andrewi@gnu.org>
parents: 32716
diff changeset
51 "Return the MS-Windows version numbers.
5298b23b61be (w32-version): New function.
Andrew Innes <andrewi@gnu.org>
parents: 32716
diff changeset
52 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
53 numbers, and the build number."
5298b23b61be (w32-version): New function.
Andrew Innes <andrewi@gnu.org>
parents: 32716
diff changeset
54 (x-server-version))
5298b23b61be (w32-version): New function.
Andrew Innes <andrewi@gnu.org>
parents: 32716
diff changeset
55
17549
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-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
57 "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
58 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
59 (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
60
f57de209f01b (w32-using-nt, w32-shell-name, w32-using-system-shell-p,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16859
diff changeset
61 (defun w32-shell-name ()
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
62 "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
63 (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
64 (getenv "ESHELL")
f57de209f01b (w32-using-nt, w32-shell-name, w32-using-system-shell-p,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16859
diff changeset
65 (getenv "SHELL")
f57de209f01b (w32-using-nt, w32-shell-name, w32-using-system-shell-p,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16859
diff changeset
66 (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
67 "command.com"))
f57de209f01b (w32-using-nt, w32-shell-name, w32-using-system-shell-p,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16859
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-system-shell-p (shell-name)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
70 (and shell-name
40458
de4e98791121 (convert-standard-filename): Handle cygwin-specific pathnames.
Sam Steingold <sds@gnu.org>
parents: 40345
diff changeset
71 (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
72 w32-system-shells)))
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
73
23173
073e555c28c8 (w32-shell-dos-semantics): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21597
diff changeset
74 (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
75 "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
76 (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
77 (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
78 '("cmdproxy" "cmdproxy.exe"))
073e555c28c8 (w32-shell-dos-semantics): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21597
diff changeset
79 (w32-system-shell-p (getenv "COMSPEC")))))
073e555c28c8 (w32-shell-dos-semantics): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21597
diff changeset
80
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
81 (defun w32-check-shell-configuration ()
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
82 "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
83 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
84 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
85 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
86 (interactive)
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
87 (let ((prev-buffer (current-buffer))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
88 (buffer (get-buffer-create "*Shell Configuration*"))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
89 (system-shell))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
90 (set-buffer buffer)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
91 (erase-buffer)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
92 (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
93 (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
94 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
95 (getenv "ESHELL"))))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
96 (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
97 (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
98 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
99 (getenv "SHELL"))))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
100 (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
101 (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
102 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
103 shell-file-name)))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
104 (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
105 (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
106 (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
107 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
108 explicit-shell-file-name)))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
109 (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
110
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
111 ;; 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
112 ;; "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
113 ;; shell-command-switch doesn't match.
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
114 (if w32-allow-system-shell
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
115 (erase-buffer))
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
116
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
117 (cond (system-shell
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
118 ;; System shells.
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
119 (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
120 (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
121 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
122 (if w32-quote-process-args
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
123 (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
124 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
125 ;; Non-system shells.
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
126 (t
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
127 (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
128 (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
129 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
130 (if (not w32-quote-process-args)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
131 (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
132 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
133 (if (> (buffer-size) 0)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
134 (display-buffer buffer)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
135 (kill-buffer buffer))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
136 (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
137
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
138 (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
139
24514
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
140 ;;; Override setting chosen at startup.
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
141 (defun set-default-process-coding-system ()
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
142 ;; 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
143 ;; (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
144 ;; produce DOS line endings on output.
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
145 (setq default-process-coding-system
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
146 (if default-enable-multibyte-characters
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
147 '(undecided-dos . undecided-unix)
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
148 '(raw-text-dos . raw-text-unix)))
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
149 (or (w32-using-nt)
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
150 ;; On Windows 9x, make cmdproxy default to using DOS line endings
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
151 ;; for input, because command.com requires this.
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
152 (setq process-coding-system-alist
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
153 `(("[cC][mM][dD][pP][rR][oO][xX][yY]"
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
154 . ,(if default-enable-multibyte-characters
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
155 '(undecided-dos . undecided-dos)
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
156 '(raw-text-dos . raw-text-dos)))))))
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
157
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
158 (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
159
21597
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
160
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
161 ;;; 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
162
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
163 (defvar w32-valid-locales nil
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
164 "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
165
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
166 ;;; 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
167 ;;; built-in though.
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
168 (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
169 (defun w32-get-valid-locale-ids ()
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
170 "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
171 (let ((i 65535)
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
172 locales)
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
173 (while (> i 0)
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
174 (if (w32-get-locale-info i)
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
175 (setq locales (cons i locales)))
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
176 (setq i (1- i)))
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
177 locales)))
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
178
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
179 (defun w32-list-locales ()
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
180 "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
181 (interactive)
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
182 (if (null w32-valid-locales)
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
183 (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
184 (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
185 (erase-buffer)
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
186 (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
187 (insert (mapconcat
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
188 '(lambda (x)
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
189 (format "%d\t%s\t%s"
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
190 x
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
191 (w32-get-locale-info x)
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
192 (w32-get-locale-info x t)))
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
193 w32-valid-locales "\n"))
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
194 (insert "\n")
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
195 (goto-char (point-min)))
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
196
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
197
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
198 ;;; 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
199 ;;; 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
200 ;;; 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
201 ;;; 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
202 ;;; 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
203 (defun w32-init-info ()
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
204 (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
205 (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
206 (dir2 (expand-file-name "../../../info/" instdir)))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
207 (if (file-exists-p dir1)
40458
de4e98791121 (convert-standard-filename): Handle cygwin-specific pathnames.
Sam Steingold <sds@gnu.org>
parents: 40345
diff changeset
208 (setq Info-default-directory-list
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
209 (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
210 (if (file-exists-p dir2)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
211 (setq Info-default-directory-list
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
212 (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
213
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
214 (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
215
23571
ae5eea3cc314 Remove a dangling reference to a directory on the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23173
diff changeset
216 ;;; 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
217 ;;; 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
218 ;;; 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
219 ;;; 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
220 ;;; 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
221 ;;; 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
222 ;;; 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
223 ;;; 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
224 ;;; 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
225
40458
de4e98791121 (convert-standard-filename): Handle cygwin-specific pathnames.
Sam Steingold <sds@gnu.org>
parents: 40345
diff changeset
226 ;(add-hook 'before-init-hook
31616
4c03111f81ac Comment out before-init-hook function which resets
Andrew Innes <andrewi@gnu.org>
parents: 30435
diff changeset
227 ; '(lambda ()
40458
de4e98791121 (convert-standard-filename): Handle cygwin-specific pathnames.
Sam Steingold <sds@gnu.org>
parents: 40345
diff changeset
228 ; (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
229 ; (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
230
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
231 (defun convert-standard-filename (filename)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
232 "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
233 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
234 certain patterns.
ccd8cdf69359 Rework docstring (wording by Eli Zaretskii and Kai Grossjohann).
Juanma Barranquero <lekktu@gmail.com>
parents: 55792
diff changeset
235
ccd8cdf69359 Rework docstring (wording by Eli Zaretskii and Kai Grossjohann).
Juanma Barranquero <lekktu@gmail.com>
parents: 55792
diff changeset
236 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
237 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
238 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
239 shell requires it (see `w32-shell-dos-semantics')."
40458
de4e98791121 (convert-standard-filename): Handle cygwin-specific pathnames.
Sam Steingold <sds@gnu.org>
parents: 40345
diff changeset
240 (let ((name
de4e98791121 (convert-standard-filename): Handle cygwin-specific pathnames.
Sam Steingold <sds@gnu.org>
parents: 40345
diff changeset
241 (save-match-data
de4e98791121 (convert-standard-filename): Handle cygwin-specific pathnames.
Sam Steingold <sds@gnu.org>
parents: 40345
diff changeset
242 (if (string-match "\\`/cygdrive/\\([a-zA-Z]\\)/" filename)
de4e98791121 (convert-standard-filename): Handle cygwin-specific pathnames.
Sam Steingold <sds@gnu.org>
parents: 40345
diff changeset
243 (replace-match "\\1:/" t nil filename)
de4e98791121 (convert-standard-filename): Handle cygwin-specific pathnames.
Sam Steingold <sds@gnu.org>
parents: 40345
diff changeset
244 (copy-sequence filename))))
15135
72a1f82a6748 (original-make-auto-save-file-name): New symbol bound
Geoff Voelker <voelker@cs.washington.edu>
parents: 15003
diff changeset
245 (start 0))
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
246 ;; leave ':' if part of drive specifier
34996
271ffc04a20d (convert-standard-filename): Do length check on name
Andrew Innes <andrewi@gnu.org>
parents: 34369
diff changeset
247 (if (and (> (length name) 1)
271ffc04a20d (convert-standard-filename): Do length check on name
Andrew Innes <andrewi@gnu.org>
parents: 34369
diff changeset
248 (eq (aref name 1) ?:))
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
249 (setq start 2))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
250 ;; destructively replace invalid filename characters with !
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
251 (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
252 (aset name (match-beginning 0) ?!)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
253 (setq start (match-end 0)))
24441
6643d1ccd5a1 (convert-standard-filename): Convert directory
Andrew Innes <andrewi@gnu.org>
parents: 23571
diff changeset
254 ;; convert directory separators to Windows format
24661
a969304198eb (convert-standard-filename): Only convert directory
Andrew Innes <andrewi@gnu.org>
parents: 24514
diff changeset
255 ;; (but only if the shell in use requires it)
37621
fc0f7a044da4 (convert-standard-filename): Start replacing slashes
Eli Zaretskii <eliz@gnu.org>
parents: 34996
diff changeset
256 (when (w32-shell-dos-semantics)
fc0f7a044da4 (convert-standard-filename): Start replacing slashes
Eli Zaretskii <eliz@gnu.org>
parents: 34996
diff changeset
257 (setq start 0)
fc0f7a044da4 (convert-standard-filename): Start replacing slashes
Eli Zaretskii <eliz@gnu.org>
parents: 34996
diff changeset
258 (while (string-match "/" name start)
fc0f7a044da4 (convert-standard-filename): Start replacing slashes
Eli Zaretskii <eliz@gnu.org>
parents: 34996
diff changeset
259 (aset name (match-beginning 0) ?\\)
fc0f7a044da4 (convert-standard-filename): Start replacing slashes
Eli Zaretskii <eliz@gnu.org>
parents: 34996
diff changeset
260 (setq start (match-end 0))))
fc0f7a044da4 (convert-standard-filename): Start replacing slashes
Eli Zaretskii <eliz@gnu.org>
parents: 34996
diff changeset
261 name))
15135
72a1f82a6748 (original-make-auto-save-file-name): New symbol bound
Geoff Voelker <voelker@cs.washington.edu>
parents: 15003
diff changeset
262
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
263 ;;; 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
264 (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
265 (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
266 (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
267
a8bd6f986389 (x-set-selection, x-get-selection): Define them to really use TYPE.
Richard M. Stallman <rms@gnu.org>
parents: 15338
diff changeset
268 (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
269 (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
270 (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
271
24498
756058742361 (set-w32-system-coding-system) New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24441
diff changeset
272 (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
273 "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
274 This is used for things like passing font names with non-ASCII
756058742361 (set-w32-system-coding-system) New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24441
diff changeset
275 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
276 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
277
65bad70edb17 (w32-system-coding-system): Change to an alias for
Jason Rumney <jasonr@gnu.org>
parents: 40458
diff changeset
278 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
279 `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
280 (interactive
41325
65bad70edb17 (w32-system-coding-system): Change to an alias for
Jason Rumney <jasonr@gnu.org>
parents: 40458
diff changeset
281 (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
282 (read-coding-system
756058742361 (set-w32-system-coding-system) New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24441
diff changeset
283 (format "Coding system for system calls (default, %s): "
756058742361 (set-w32-system-coding-system) New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24441
diff changeset
284 default)
756058742361 (set-w32-system-coding-system) New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24441
diff changeset
285 default))))
756058742361 (set-w32-system-coding-system) New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24441
diff changeset
286 (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
287 (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
288
65bad70edb17 (w32-system-coding-system): Change to an alias for
Jason Rumney <jasonr@gnu.org>
parents: 40458
diff changeset
289 ;; 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
290 ;; 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
291 (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
292
11399
f322675d5c53 Key [C-M-backspace] defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
293 ;;; 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
294 (set-message-beep nil)
f322675d5c53 Key [C-M-backspace] defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
295
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
296 ;;; 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
297 ;;; 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
298 ;;; rather than beep.
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
299 (global-set-key [lwindow] 'ignore)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
300 (global-set-key [rwindow] 'ignore)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
301
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
302 ;; 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
303 ;; that people usually expect.
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
304 (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
305 (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
306 (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
307 (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
308 (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
309 (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
310 (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
311 (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
312 (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
313 (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
314
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
315 ;; 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
316 ;(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
317 ;(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
318 ;(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
319 ;(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
320
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
321 ;; 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
322 ;; these special chars to ASCII.
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
323 (put 'tab 'ascii-character ?\t)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
324 (put 'linefeed 'ascii-character ?\n)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
325 (put 'clear 'ascii-character 12)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
326 (put 'return 'ascii-character 13)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
327 (put 'escape 'ascii-character ?\e)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
328 (put 'backspace 'ascii-character 127)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
329 (put 'delete 'ascii-character 127)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
330
27521
719f644e7cec Define w32-tty-standard-colors.
Jason Rumney <jasonr@gnu.org>
parents: 24661
diff changeset
331 ;; W32 uses different color indexes than standard:
719f644e7cec Define w32-tty-standard-colors.
Jason Rumney <jasonr@gnu.org>
parents: 24661
diff changeset
332
719f644e7cec Define w32-tty-standard-colors.
Jason Rumney <jasonr@gnu.org>
parents: 24661
diff changeset
333 (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
334 '(("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
335 ("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
336 ("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
337 ("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
338 ("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
339 ("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
340 ("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
341 ("lightgray" 7 48640 48640 48640) ; Gray
27521
719f644e7cec Define w32-tty-standard-colors.
Jason Rumney <jasonr@gnu.org>
parents: 24661
diff changeset
342 ("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
343 ("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
344 ("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
345 ("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
346 ("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
347 ("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
348 ("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
349 ("white" 15 65535 65535 65535))
27521
719f644e7cec Define w32-tty-standard-colors.
Jason Rumney <jasonr@gnu.org>
parents: 24661
diff changeset
350 "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
351
33385
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
352
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
353 (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
354 "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
355 Creates entries in `w32-charset-info-alist'.
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
356 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
357 identify the character set. WINDOWS-CHARSET is a symbol identifying
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
358 the Windows character set this maps to. For the list of possible
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
359 values, see the documentation for `w32-charset-info-alist'. CODEPAGE
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
360 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
361 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
362 bit output with no translation."
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
363 (add-to-list 'w32-charset-info-alist
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
364 (cons xlfd-charset (cons windows-charset codepage)))
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
365 )
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
366
45814
8e79905a56dd (w32-charset-info-alist): Reorder.
Jason Rumney <jasonr@gnu.org>
parents: 43756
diff changeset
367 ;; 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
368 ;; 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
369 (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
370 (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
371 (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
372 (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
373 (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
374 (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
375 (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
376 (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
377 (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
378 (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
379 (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
380 (if (boundp 'w32-extra-charsets-defined)
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
381 (progn
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
382 (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
383 (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
384 (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
385 (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
386 (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
387 (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
388 (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
389 (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
390 (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
391 (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
392 (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
393 (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
394 (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
395 (if (boundp 'w32-unicode-charset-defined)
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
396 (progn
45814
8e79905a56dd (w32-charset-info-alist): Reorder.
Jason Rumney <jasonr@gnu.org>
parents: 43756
diff changeset
397 (w32-add-charset-info "unicode" 'w32-charset-unicode t)
8e79905a56dd (w32-charset-info-alist): Reorder.
Jason Rumney <jasonr@gnu.org>
parents: 43756
diff changeset
398 (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
399 ;; 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
400 (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
401 (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
402
33885
fd77fd05cecb add version to obsolete variables.
Jason Rumney <jasonr@gnu.org>
parents: 33385
diff changeset
403 (make-obsolete-variable 'w32-enable-italics
fd77fd05cecb add version to obsolete variables.
Jason Rumney <jasonr@gnu.org>
parents: 33385
diff changeset
404 '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
405 (make-obsolete-variable 'w32-charset-to-codepage-alist
33885
fd77fd05cecb add version to obsolete variables.
Jason Rumney <jasonr@gnu.org>
parents: 33385
diff changeset
406 '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
407
34369
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
408
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
409 ;;;; 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
410
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
411 ;;; 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
412 ;;; 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
413 ;;; 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
414 (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
415
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
416 ;;; 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
417 ;;; 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
418 (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
419 "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
420
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
421 (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
422 "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
423 If `x-select-enable-clipboard' is non-nil, copy the text to the system
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
424 clipboard as well. Optional PUSH is ignored on Windows."
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
425 (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
426 (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
427 (setq x-last-selected-text text))
40458
de4e98791121 (convert-standard-filename): Handle cygwin-specific pathnames.
Sam Steingold <sds@gnu.org>
parents: 40345
diff changeset
428
34369
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
429 (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
430 "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
431 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
432 they were unset."
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 (let (text)
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
435 ;; 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
436 (condition-case c
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
437 (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
438 (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
439 (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
440 (cond
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
441 ((not text) nil)
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
442 ((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
443 ((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
444 ;; 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
445 (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
446 nil)
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
447 (t
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
448 (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
449
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
450 (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
451
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
452 ;;; 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
453 (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
454 (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
455
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
456
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 45814
diff changeset
457 ;;; 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
458 ;;; w32-fns.el ends here