annotate lisp/w32-fns.el @ 94837:55eb2a3c59b4

Merge from gnus--devo--0 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1153
author Miles Bader <miles@gnu.org>
date Sat, 10 May 2008 05:34:55 +0000
parents ee5932bf781d
children b4e36ff621b3
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,
79721
73661ddc7ac7 Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 79363
diff changeset
4 ;; 2005, 2006, 2007, 2008 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
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94505
diff changeset
11 ;; GNU Emacs is free software: you can redistribute it and/or modify
9803
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
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94505
diff changeset
13 ;; the Free Software Foundation, either version 3 of the License, or
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94505
diff changeset
14 ;; (at your option) any later version.
9803
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
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94505
diff changeset
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24 ;;; Commentary:
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27 ;;; Code:
85503
59ee4068f60b * progmodes/gud.el (gud-target-name): Move definition before use.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78236
diff changeset
28 (require 'w32-vars)
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
29
65298
0028f546a4d3 (explicit-shell-file-name): Add defvar.
Juanma Barranquero <lekktu@gmail.com>
parents: 64762
diff changeset
30 (defvar explicit-shell-file-name)
0028f546a4d3 (explicit-shell-file-name): Add defvar.
Juanma Barranquero <lekktu@gmail.com>
parents: 64762
diff changeset
31
86268
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
32 ;;;; Function keys
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
33
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
34 (defvar x-alternatives-map
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
35 (let ((map (make-sparse-keymap)))
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
36 ;; Map certain keypad keys into ASCII characters that people usually expect.
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
37 (define-key map [backspace] [127])
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
38 (define-key map [delete] [127])
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
39 (define-key map [tab] [?\t])
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
40 (define-key map [linefeed] [?\n])
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
41 (define-key map [clear] [?\C-l])
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
42 (define-key map [return] [?\C-m])
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
43 (define-key map [escape] [?\e])
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
44 (define-key map [M-backspace] [?\M-\d])
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
45 (define-key map [M-delete] [?\M-\d])
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
46 (define-key map [M-tab] [?\M-\t])
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
47 (define-key map [M-linefeed] [?\M-\n])
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
48 (define-key map [M-clear] [?\M-\C-l])
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
49 (define-key map [M-return] [?\M-\C-m])
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
50 (define-key map [M-escape] [?\M-\e])
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
51 (define-key map [iso-lefttab] [backtab])
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
52 (define-key map [S-iso-lefttab] [backtab])
93085
d3840ccbe2f6 (x-alternatives-map): Add S-tab mapping.
Jason Rumney <jasonr@gnu.org>
parents: 91373
diff changeset
53 (define-key map [S-tab] [backtab])
86268
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
54 map)
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
55 "Keymap of possible alternative meanings for some keys.")
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
56
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
57 (defun x-setup-function-keys (frame)
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
58 "Set up `function-key-map' on FRAME for w32."
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
59 ;; Don't do this twice on the same display, or it would break
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
60 ;; normal-erase-is-backspace-mode.
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
61 (unless (terminal-parameter frame 'x-setup-function-keys)
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
62 ;; Map certain keypad keys into ASCII characters that people usually expect.
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
63 (with-selected-frame frame
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
64 (let ((map (copy-keymap x-alternatives-map)))
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
65 (set-keymap-parent map (keymap-parent local-function-key-map))
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
66 (set-keymap-parent local-function-key-map map)))
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
67 (set-terminal-parameter frame 'x-setup-function-keys t)))
f1604b3ab5ad (x-alternatives-map): Copy from term/x-win.el.
Jason Rumney <jasonr@gnu.org>
parents: 86265
diff changeset
68
86289
8a7ed478f7bc * international/titdic-cnv.el (dos-8+3-filename):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 86280
diff changeset
69 (declare-function set-message-beep "w32console.c")
8a7ed478f7bc * international/titdic-cnv.el (dos-8+3-filename):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 86280
diff changeset
70 (declare-function w32-get-clipboard-data "w32select.c")
8a7ed478f7bc * international/titdic-cnv.el (dos-8+3-filename):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 86280
diff changeset
71 (declare-function w32-get-locale-info "w32proc.c")
8a7ed478f7bc * international/titdic-cnv.el (dos-8+3-filename):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 86280
diff changeset
72 (declare-function w32-get-valid-locale-ids "w32proc.c")
8a7ed478f7bc * international/titdic-cnv.el (dos-8+3-filename):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 86280
diff changeset
73 (declare-function w32-set-clipboard-data "w32select.c")
11399
f322675d5c53 Key [C-M-backspace] defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
74
40458
de4e98791121 (convert-standard-filename): Handle cygwin-specific pathnames.
Sam Steingold <sds@gnu.org>
parents: 40345
diff changeset
75 ;; 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
76 ;; same buffer.
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
77 (setq find-file-visit-truename t)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
78
33212
5298b23b61be (w32-version): New function.
Andrew Innes <andrewi@gnu.org>
parents: 32716
diff changeset
79 (defun w32-version ()
5298b23b61be (w32-version): New function.
Andrew Innes <andrewi@gnu.org>
parents: 32716
diff changeset
80 "Return the MS-Windows version numbers.
5298b23b61be (w32-version): New function.
Andrew Innes <andrewi@gnu.org>
parents: 32716
diff changeset
81 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
82 numbers, and the build number."
5298b23b61be (w32-version): New function.
Andrew Innes <andrewi@gnu.org>
parents: 32716
diff changeset
83 (x-server-version))
5298b23b61be (w32-version): New function.
Andrew Innes <andrewi@gnu.org>
parents: 32716
diff changeset
84
17549
f57de209f01b (w32-using-nt, w32-shell-name, w32-using-system-shell-p,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16859
diff changeset
85 (defun w32-using-nt ()
90935
9f1c9eeab40d Doc fix
Jason Rumney <jasonr@gnu.org>
parents: 90737
diff changeset
86 "Return non-nil if running on a Windows NT descendant.
55792
0d890eccf70f (w32-using-nt, w32-shell-dos-semantics, set-w32-system-coding-system):
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
87 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
88 (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
89
f57de209f01b (w32-using-nt, w32-shell-name, w32-using-system-shell-p,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16859
diff changeset
90 (defun w32-shell-name ()
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
91 "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
92 (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
93 (getenv "ESHELL")
f57de209f01b (w32-using-nt, w32-shell-name, w32-using-system-shell-p,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16859
diff changeset
94 (getenv "SHELL")
f57de209f01b (w32-using-nt, w32-shell-name, w32-using-system-shell-p,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16859
diff changeset
95 (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
96 "command.com"))
f57de209f01b (w32-using-nt, w32-shell-name, w32-using-system-shell-p,
Geoff Voelker <voelker@cs.washington.edu>
parents: 16859
diff changeset
97
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
98 (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
99 (and shell-name
40458
de4e98791121 (convert-standard-filename): Handle cygwin-specific pathnames.
Sam Steingold <sds@gnu.org>
parents: 40345
diff changeset
100 (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
101 w32-system-shells)))
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
102
23173
073e555c28c8 (w32-shell-dos-semantics): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21597
diff changeset
103 (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
104 "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
105 (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
106 (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
107 '("cmdproxy" "cmdproxy.exe"))
073e555c28c8 (w32-shell-dos-semantics): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21597
diff changeset
108 (w32-system-shell-p (getenv "COMSPEC")))))
073e555c28c8 (w32-shell-dos-semantics): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21597
diff changeset
109
85512
589532be95ec * w32-fns.el (w32-quote-process-args):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85503
diff changeset
110 (defvar w32-quote-process-args) ;; defined in w32proc.c
589532be95ec * w32-fns.el (w32-quote-process-args):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 85503
diff changeset
111
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
112 (defun w32-check-shell-configuration ()
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
113 "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
114 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
115 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
116 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
117 (interactive)
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
118 (let ((prev-buffer (current-buffer))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
119 (buffer (get-buffer-create "*Shell Configuration*"))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
120 (system-shell))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
121 (set-buffer buffer)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
122 (erase-buffer)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
123 (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
124 (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
125 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
126 (getenv "ESHELL"))))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
127 (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
128 (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
129 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
130 (getenv "SHELL"))))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
131 (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
132 (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
133 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
134 shell-file-name)))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
135 (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
136 (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
137 (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
138 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
139 explicit-shell-file-name)))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
140 (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
141
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
142 ;; 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
143 ;; "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
144 ;; shell-command-switch doesn't match.
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
145 (if w32-allow-system-shell
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
146 (erase-buffer))
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
147
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
148 (cond (system-shell
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
149 ;; System shells.
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
150 (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
151 (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
152 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
153 (if w32-quote-process-args
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
154 (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
155 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
156 ;; Non-system shells.
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
157 (t
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
158 (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
159 (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
160 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
161 (if (not w32-quote-process-args)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
162 (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
163 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
164 (if (> (buffer-size) 0)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
165 (display-buffer buffer)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
166 (kill-buffer buffer))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
167 (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
168
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
169 (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
170
24514
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
171 ;;; Override setting chosen at startup.
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
172 (defun set-default-process-coding-system ()
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
173 ;; 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
174 ;; (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
175 ;; produce DOS line endings on output.
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
176 (setq default-process-coding-system
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
177 (if default-enable-multibyte-characters
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
178 '(undecided-dos . undecided-unix)
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
179 '(raw-text-dos . raw-text-unix)))
78192
19db593f63bb (set-default-process-coding-system): Use dos line ends
Jason Rumney <jasonr@gnu.org>
parents: 75347
diff changeset
180 ;; Make cmdproxy default to using DOS line endings for input,
19db593f63bb (set-default-process-coding-system): Use dos line ends
Jason Rumney <jasonr@gnu.org>
parents: 75347
diff changeset
181 ;; because some Windows programs (including command.com) require it.
19db593f63bb (set-default-process-coding-system): Use dos line ends
Jason Rumney <jasonr@gnu.org>
parents: 75347
diff changeset
182 (add-to-list 'process-coding-system-alist
19db593f63bb (set-default-process-coding-system): Use dos line ends
Jason Rumney <jasonr@gnu.org>
parents: 75347
diff changeset
183 `("[cC][mM][dD][pP][rR][oO][xX][yY]"
19db593f63bb (set-default-process-coding-system): Use dos line ends
Jason Rumney <jasonr@gnu.org>
parents: 75347
diff changeset
184 . ,(if default-enable-multibyte-characters
19db593f63bb (set-default-process-coding-system): Use dos line ends
Jason Rumney <jasonr@gnu.org>
parents: 75347
diff changeset
185 '(undecided-dos . undecided-dos)
19db593f63bb (set-default-process-coding-system): Use dos line ends
Jason Rumney <jasonr@gnu.org>
parents: 75347
diff changeset
186 '(raw-text-dos . raw-text-dos))))
19db593f63bb (set-default-process-coding-system): Use dos line ends
Jason Rumney <jasonr@gnu.org>
parents: 75347
diff changeset
187 ;; plink needs DOS input when entering the password.
19db593f63bb (set-default-process-coding-system): Use dos line ends
Jason Rumney <jasonr@gnu.org>
parents: 75347
diff changeset
188 (add-to-list 'process-coding-system-alist
19db593f63bb (set-default-process-coding-system): Use dos line ends
Jason Rumney <jasonr@gnu.org>
parents: 75347
diff changeset
189 `("[pP][lL][iI][nN][kK]"
19db593f63bb (set-default-process-coding-system): Use dos line ends
Jason Rumney <jasonr@gnu.org>
parents: 75347
diff changeset
190 . ,(if default-enable-multibyte-characters
19db593f63bb (set-default-process-coding-system): Use dos line ends
Jason Rumney <jasonr@gnu.org>
parents: 75347
diff changeset
191 '(undecided-dos . undecided-dos)
19db593f63bb (set-default-process-coding-system): Use dos line ends
Jason Rumney <jasonr@gnu.org>
parents: 75347
diff changeset
192 '(raw-text-dos . raw-text-dos)))))
24514
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
193
06762ce530be (set-default-process-coding-system): Copied from
Andrew Innes <andrewi@gnu.org>
parents: 24498
diff changeset
194 (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
195
21597
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 ;;; 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
198
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
199 (defvar w32-valid-locales nil
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
200 "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
201
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
202 ;;; 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
203 ;;; built-in though.
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
204 (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
205 (defun w32-get-valid-locale-ids ()
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
206 "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
207 (let ((i 65535)
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
208 locales)
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
209 (while (> i 0)
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
210 (if (w32-get-locale-info i)
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
211 (setq locales (cons i locales)))
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
212 (setq i (1- i)))
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
213 locales)))
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
214
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
215 (defun w32-list-locales ()
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
216 "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
217 (interactive)
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
218 (if (null w32-valid-locales)
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
219 (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
220 (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
221 (erase-buffer)
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
222 (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
223 (insert (mapconcat
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
224 '(lambda (x)
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
225 (format "%d\t%s\t%s"
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
226 x
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
227 (w32-get-locale-info x)
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
228 (w32-get-locale-info x t)))
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
229 w32-valid-locales "\n"))
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
230 (insert "\n")
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
231 (goto-char (point-min)))
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
232
409211e285bc (w32-system-shells): Add 4dos and 4nt.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21059
diff changeset
233
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
234 ;;; 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
235 ;;; 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
236 ;;; 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
237 ;;; 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
238 ;;; 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
239 (defun w32-init-info ()
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
240 (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
241 (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
242 (dir2 (expand-file-name "../../../info/" instdir)))
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
243 (if (file-exists-p dir1)
40458
de4e98791121 (convert-standard-filename): Handle cygwin-specific pathnames.
Sam Steingold <sds@gnu.org>
parents: 40345
diff changeset
244 (setq Info-default-directory-list
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
245 (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
246 (if (file-exists-p dir2)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
247 (setq Info-default-directory-list
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
248 (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
249
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
250 (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
251
23571
ae5eea3cc314 Remove a dangling reference to a directory on the
Geoff Voelker <voelker@cs.washington.edu>
parents: 23173
diff changeset
252 ;;; 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
253 ;;; 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
254 ;;; 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
255 ;;; 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
256 ;;; 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
257 ;;; 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
258 ;;; 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
259 ;;; 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
260 ;;; 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
261
40458
de4e98791121 (convert-standard-filename): Handle cygwin-specific pathnames.
Sam Steingold <sds@gnu.org>
parents: 40345
diff changeset
262 ;(add-hook 'before-init-hook
31616
4c03111f81ac Comment out before-init-hook function which resets
Andrew Innes <andrewi@gnu.org>
parents: 30435
diff changeset
263 ; '(lambda ()
40458
de4e98791121 (convert-standard-filename): Handle cygwin-specific pathnames.
Sam Steingold <sds@gnu.org>
parents: 40345
diff changeset
264 ; (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
265 ; (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
266
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
267 (defun convert-standard-filename (filename)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
268 "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
269 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
270 certain patterns.
ccd8cdf69359 Rework docstring (wording by Eli Zaretskii and Kai Grossjohann).
Juanma Barranquero <lekktu@gmail.com>
parents: 55792
diff changeset
271
ccd8cdf69359 Rework docstring (wording by Eli Zaretskii and Kai Grossjohann).
Juanma Barranquero <lekktu@gmail.com>
parents: 55792
diff changeset
272 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
273 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
274 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
275 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
276 (save-match-data
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
277 (let ((name
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
278 (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
279 (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
280 (copy-sequence filename)))
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
281 (start 0))
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
282 ;; leave ':' if part of drive specifier
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
283 (if (and (> (length name) 1)
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
284 (eq (aref name 1) ?:))
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
285 (setq start 2))
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
286 ;; destructively replace invalid filename characters with !
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
287 (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
288 (aset name (match-beginning 0) ?!)
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
289 (setq start (match-end 0)))
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
290 ;; convert directory separators to Windows format
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
291 ;; (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
292 (when (w32-shell-dos-semantics)
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
293 (setq start 0)
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
294 (while (string-match "/" name start)
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
295 (aset name (match-beginning 0) ?\\)
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
296 (setq start (match-end 0))))
d53f5b616853 (convert-standard-filename): Wrap in save-match-data.
Eli Zaretskii <eliz@gnu.org>
parents: 74511
diff changeset
297 name)))
15135
72a1f82a6748 (original-make-auto-save-file-name): New symbol bound
Geoff Voelker <voelker@cs.washington.edu>
parents: 15003
diff changeset
298
9803
fa698fd10c05 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
299 ;;; 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
300 (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
301 (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
302 (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
303
a8bd6f986389 (x-set-selection, x-get-selection): Define them to really use TYPE.
Richard M. Stallman <rms@gnu.org>
parents: 15338
diff changeset
304 (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
305 (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
306 (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
307
24498
756058742361 (set-w32-system-coding-system) New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24441
diff changeset
308 (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
309 "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
310 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
311 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
312 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
313
65bad70edb17 (w32-system-coding-system): Change to an alias for
Jason Rumney <jasonr@gnu.org>
parents: 40458
diff changeset
314 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
315 `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
316 (interactive
41325
65bad70edb17 (w32-system-coding-system): Change to an alias for
Jason Rumney <jasonr@gnu.org>
parents: 40458
diff changeset
317 (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
318 (read-coding-system
65680
ed770a0a7846 2005-09-24 Emilio C. Lopes <eclig@gmx.net>
Romain Francoise <romain@orebokech.com>
parents: 65298
diff changeset
319 (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
320 default)
756058742361 (set-w32-system-coding-system) New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24441
diff changeset
321 default))))
756058742361 (set-w32-system-coding-system) New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24441
diff changeset
322 (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
323 (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
324
65bad70edb17 (w32-system-coding-system): Change to an alias for
Jason Rumney <jasonr@gnu.org>
parents: 40458
diff changeset
325 ;; 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
326 ;; 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
327 (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
328
11399
f322675d5c53 Key [C-M-backspace] defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
329 ;;; 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
330 (set-message-beep nil)
f322675d5c53 Key [C-M-backspace] defined.
Karl Heuer <kwzh@gnu.org>
parents: 9803
diff changeset
331
19692
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
332 ;;; 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
333 ;;; 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
334 ;;; rather than beep.
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
335 (global-set-key [lwindow] 'ignore)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
336 (global-set-key [rwindow] 'ignore)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
337
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
338 ;; 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
339 ;; these special chars to ASCII.
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
340 (put 'tab 'ascii-character ?\t)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
341 (put 'linefeed 'ascii-character ?\n)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
342 (put 'clear 'ascii-character 12)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
343 (put 'return 'ascii-character 13)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
344 (put 'escape 'ascii-character ?\e)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
345 (put 'backspace 'ascii-character 127)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
346 (put 'delete 'ascii-character 127)
4b8ff0021dcb Don't unset C-mouse-down bindings.
Geoff Voelker <voelker@cs.washington.edu>
parents: 17549
diff changeset
347
33385
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
348 (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
349 "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
350 Creates entries in `w32-charset-info-alist'.
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
351 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
352 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
353 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
354 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
355 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
356 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
357 bit output with no translation."
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
358 (add-to-list 'w32-charset-info-alist
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
359 (cons xlfd-charset (cons windows-charset codepage)))
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
45814
8e79905a56dd (w32-charset-info-alist): Reorder.
Jason Rumney <jasonr@gnu.org>
parents: 43756
diff changeset
362 ;; 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
363 ;; 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
364 (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
365 (w32-add-charset-info "iso8859-15" 'w32-charset-ansi 28605)
89596
967bca3bf3dd (w32-charset-info-alist): Accept more charset aliases.
Jason Rumney <jasonr@gnu.org>
parents: 88123
diff changeset
366 ;; The following two are included for pattern matching.
967bca3bf3dd (w32-charset-info-alist): Accept more charset aliases.
Jason Rumney <jasonr@gnu.org>
parents: 88123
diff changeset
367 (w32-add-charset-info "jisx0201" 'w32-charset-shiftjis 932)
967bca3bf3dd (w32-charset-info-alist): Accept more charset aliases.
Jason Rumney <jasonr@gnu.org>
parents: 88123
diff changeset
368 (w32-add-charset-info "jisx0208" 'w32-charset-shiftjis 932)
33385
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
369 (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
370 (w32-add-charset-info "jisx0201-katakana" 'w32-charset-shiftjis 932)
79980
399b25047283 Partially revert 2007-11-10 change.
Jason Rumney <jasonr@gnu.org>
parents: 79721
diff changeset
371 (w32-add-charset-info "ksc5601.1989" 'w32-charset-hangeul 949)
399b25047283 Partially revert 2007-11-10 change.
Jason Rumney <jasonr@gnu.org>
parents: 79721
diff changeset
372 (w32-add-charset-info "big5" 'w32-charset-chinesebig5 950)
399b25047283 Partially revert 2007-11-10 change.
Jason Rumney <jasonr@gnu.org>
parents: 79721
diff changeset
373 (w32-add-charset-info "gb2312.1980" 'w32-charset-gb2312 936)
33385
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
374 (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
375 (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
376 (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
377 (if (boundp 'w32-extra-charsets-defined)
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
378 (progn
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
379 (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
380 (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
381 (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
382 (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
383 (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
384 (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
385 (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
386 (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
387 (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
388 (w32-add-charset-info "iso8859-5" 'w32-charset-russian 28595)
79980
399b25047283 Partially revert 2007-11-10 change.
Jason Rumney <jasonr@gnu.org>
parents: 79721
diff changeset
389 (w32-add-charset-info "tis620" 'w32-charset-thai 874)
94505
6124abe8ab58 (w32-charset-info-alist): Map vietnamese to windows-1258.
Jason Rumney <jasonr@gnu.org>
parents: 94378
diff changeset
390 (w32-add-charset-info "windows-1258" 'w32-charset-vietnamese 1258)
79980
399b25047283 Partially revert 2007-11-10 change.
Jason Rumney <jasonr@gnu.org>
parents: 79721
diff changeset
391 (w32-add-charset-info "ksc5601.1992" 'w32-charset-johab 1361)
89596
967bca3bf3dd (w32-charset-info-alist): Accept more charset aliases.
Jason Rumney <jasonr@gnu.org>
parents: 88123
diff changeset
392 (w32-add-charset-info "mac-roman" 'w32-charset-mac 10000)))
33385
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
393 (if (boundp 'w32-unicode-charset-defined)
262bed8a9ecf (w32-add-charset-info): New function.
Jason Rumney <jasonr@gnu.org>
parents: 33212
diff changeset
394 (progn
45814
8e79905a56dd (w32-charset-info-alist): Reorder.
Jason Rumney <jasonr@gnu.org>
parents: 43756
diff changeset
395 (w32-add-charset-info "iso10646-1" 'w32-charset-unicode t))
89612
07c9f60c4743 Ensure iso10646-1 is always defined
Jason Rumney <jasonr@gnu.org>
parents: 89596
diff changeset
396 (w32-add-charset-info "iso10646-1" 'w32-charset-default t))
89596
967bca3bf3dd (w32-charset-info-alist): Accept more charset aliases.
Jason Rumney <jasonr@gnu.org>
parents: 88123
diff changeset
397 ;; ;; If unicode windows charset is not defined, use ansi fonts.
967bca3bf3dd (w32-charset-info-alist): Accept more charset aliases.
Jason Rumney <jasonr@gnu.org>
parents: 88123
diff changeset
398 ;; (w32-add-charset-info "iso10646-1" 'w32-charset-ansi t))
967bca3bf3dd (w32-charset-info-alist): Accept more charset aliases.
Jason Rumney <jasonr@gnu.org>
parents: 88123
diff changeset
399
967bca3bf3dd (w32-charset-info-alist): Accept more charset aliases.
Jason Rumney <jasonr@gnu.org>
parents: 88123
diff changeset
400 ;; Prefered names
967bca3bf3dd (w32-charset-info-alist): Accept more charset aliases.
Jason Rumney <jasonr@gnu.org>
parents: 88123
diff changeset
401 (w32-add-charset-info "big5-0" 'w32-charset-chinesebig5 950)
967bca3bf3dd (w32-charset-info-alist): Accept more charset aliases.
Jason Rumney <jasonr@gnu.org>
parents: 88123
diff changeset
402 (w32-add-charset-info "gb2312.1980-0" 'w32-charset-gb2312 936)
967bca3bf3dd (w32-charset-info-alist): Accept more charset aliases.
Jason Rumney <jasonr@gnu.org>
parents: 88123
diff changeset
403 (w32-add-charset-info "jisx0208-sjis" 'w32-charset-shiftjis 932)
967bca3bf3dd (w32-charset-info-alist): Accept more charset aliases.
Jason Rumney <jasonr@gnu.org>
parents: 88123
diff changeset
404 (w32-add-charset-info "ksc5601.1987-0" 'w32-charset-hangeul 949)
967bca3bf3dd (w32-charset-info-alist): Accept more charset aliases.
Jason Rumney <jasonr@gnu.org>
parents: 88123
diff changeset
405 (w32-add-charset-info "tis620-0" 'w32-charset-thai 874)
45814
8e79905a56dd (w32-charset-info-alist): Reorder.
Jason Rumney <jasonr@gnu.org>
parents: 43756
diff changeset
406 (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
407
33885
fd77fd05cecb add version to obsolete variables.
Jason Rumney <jasonr@gnu.org>
parents: 33385
diff changeset
408 (make-obsolete-variable 'w32-enable-italics
fd77fd05cecb add version to obsolete variables.
Jason Rumney <jasonr@gnu.org>
parents: 33385
diff changeset
409 '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
410 (make-obsolete-variable 'w32-charset-to-codepage-alist
33885
fd77fd05cecb add version to obsolete variables.
Jason Rumney <jasonr@gnu.org>
parents: 33385
diff changeset
411 '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
412
34369
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
413
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
414 ;;;; 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
415
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
416 ;;; 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
417 ;;; 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
418 ;;; 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
419 (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
420
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
421 ;;; 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
422 ;;; 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
423 (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
424 "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
425
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
426 (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
427 "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
428 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
429 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
430 (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
431 (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
432 (setq x-last-selected-text text))
40458
de4e98791121 (convert-standard-filename): Handle cygwin-specific pathnames.
Sam Steingold <sds@gnu.org>
parents: 40345
diff changeset
433
34369
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
434 (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
435 "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
436 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
437 they were unset."
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
438 (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
439 (let (text)
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
440 ;; 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
441 (condition-case c
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
442 (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
443 (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
444 (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
445 (cond
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
446 ((not text) nil)
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
447 ((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
448 ((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
449 ;; 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
450 (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
451 nil)
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
452 (t
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
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
455 (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
456
b5cb05f23e04 Add clipboard support from term/w32-win.el, so it is
Andrew Innes <andrewi@gnu.org>
parents: 33885
diff changeset
457 ;;; 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
458 (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
459 (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
460
67794
09f3c0ac0073 (w32-batch-update-autoloads): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 65680
diff changeset
461
09f3c0ac0073 (w32-batch-update-autoloads): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 65680
diff changeset
462 ;;;; Support for build process
09f3c0ac0073 (w32-batch-update-autoloads): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 65680
diff changeset
463 (defun w32-batch-update-autoloads ()
09f3c0ac0073 (w32-batch-update-autoloads): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 65680
diff changeset
464 "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
465 from the command line.
09f3c0ac0073 (w32-batch-update-autoloads): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 65680
diff changeset
466
09f3c0ac0073 (w32-batch-update-autoloads): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 65680
diff changeset
467 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
468 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
469 that Emacs is unable to cope with."
09f3c0ac0073 (w32-batch-update-autoloads): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 65680
diff changeset
470 (let ((generated-autoload-file
09f3c0ac0073 (w32-batch-update-autoloads): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 65680
diff changeset
471 (expand-file-name (pop command-line-args-left))))
09f3c0ac0073 (w32-batch-update-autoloads): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 65680
diff changeset
472 (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
473
74511
de08a74adc2a (w32-append-code-lines): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 68651
diff changeset
474 (defun w32-append-code-lines (orig extra)
de08a74adc2a (w32-append-code-lines): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 68651
diff changeset
475 "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
476
de08a74adc2a (w32-append-code-lines): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 68651
diff changeset
477 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
478 for any permissions.
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 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
481 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
482 (find-file orig)
de08a74adc2a (w32-append-code-lines): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 68651
diff changeset
483 (goto-char (point-max))
de08a74adc2a (w32-append-code-lines): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 68651
diff changeset
484 (insert-file-contents extra)
de08a74adc2a (w32-append-code-lines): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 68651
diff changeset
485 (delete-matching-lines "^$\\|^;")
de08a74adc2a (w32-append-code-lines): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 68651
diff changeset
486 (save-buffers-kill-emacs t))
de08a74adc2a (w32-append-code-lines): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 68651
diff changeset
487
93975
1e3a407766b9 Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93085
diff changeset
488 ;; 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
489 ;;; w32-fns.el ends here