;;; w32-fns.el --- Lisp routines for Windows NT
;; Copyright (C) 1994, 2001, 2002, 2003, 2004,
-;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
;; Author: Geoff Voelker <voelker@cs.washington.edu>
;; Keywords: internal
"Keymap of possible alternative meanings for some keys.")
(defun x-setup-function-keys (frame)
- "Set up `function-key-map' on FRAME for w32."
+ "Set up `function-key-map' on the graphical frame FRAME."
;; Don't do this twice on the same display, or it would break
;; normal-erase-is-backspace-mode.
(unless (terminal-parameter frame 'x-setup-function-keys)
w32-system-shells)))
(defun w32-shell-dos-semantics ()
- "Return non-nil if the interactive shell being used expects MSDOS shell semantics."
+ "Return non-nil if the interactive shell being used expects MS-DOS shell semantics."
(or (w32-system-shell-p (w32-shell-name))
(and (member (downcase (file-name-nondirectory (w32-shell-name)))
'("cmdproxy" "cmdproxy.exe"))
(defvar w32-quote-process-args) ;; defined in w32proc.c
(defun w32-check-shell-configuration ()
- "Check the configuration of shell variables on Windows NT/9X.
+ "Check the configuration of shell variables on Windows.
This function is invoked after loading the init files and processing
the command line arguments. It issues a warning if the user or site
has configured the shell with inappropriate settings."
(defun w32-list-locales ()
"List the name and id of all locales supported by Windows."
(interactive)
- (if (null w32-valid-locales)
- (setq w32-valid-locales (w32-get-valid-locale-ids)))
- (switch-to-buffer-other-window (get-buffer-create "*Supported Locales*"))
- (erase-buffer)
- (insert "LCID\tAbbrev\tFull name\n\n")
- (insert (mapconcat
- '(lambda (x)
- (format "%d\t%s\t%s"
- x
- (w32-get-locale-info x)
- (w32-get-locale-info x t)))
- w32-valid-locales "\n"))
- (insert "\n")
- (goto-char (point-min)))
-
+ (when (null w32-valid-locales)
+ (setq w32-valid-locales (sort (w32-get-valid-locale-ids) #'<)))
+ (with-output-to-temp-buffer "*Supported Locales*"
+ (princ "LCID\tAbbrev\tFull name\n\n")
+ (dolist (locale w32-valid-locales)
+ (princ (format "%d\t%s\t%s\n"
+ locale
+ (w32-get-locale-info locale)
+ (w32-get-locale-info locale t))))))
;;; Setup Info-default-directory-list to include the info directory
;;; near where Emacs executable was installed. We used to set INFOPATH,
;;; Fix interface to (X-specific) mouse.el
(defun x-set-selection (type data)
- (or type (setq type 'PRIMARY))
- (put 'x-selections type data))
+ "Make an X selection of type TYPE and value DATA.
+The argument TYPE (nil means `PRIMARY') says which selection, and
+DATA specifies the contents. TYPE must be a symbol. \(It can also
+be a string, which stands for the symbol with that name, but this
+is considered obsolete.) DATA may be a string, a symbol, an
+integer (or a cons of two integers or list of two integers).
+
+The selection may also be a cons of two markers pointing to the same buffer,
+or an overlay. In these cases, the selection is considered to be the text
+between the markers *at whatever time the selection is examined*.
+Thus, editing done in the buffer after you specify the selection
+can alter the effective value of the selection.
+
+The data may also be a vector of valid non-vector selection values.
+
+The return value is DATA.
+
+Interactively, this command sets the primary selection. Without
+prefix argument, it reads the selection in the minibuffer. With
+prefix argument, it uses the text of the region as the selection value.
+
+Note that on MS-Windows, primary and secondary selections set by Emacs
+are not available to other programs."
+ (put 'x-selections (or type 'PRIMARY) data))
(defun x-get-selection (&optional type data-type)
- (or type (setq type 'PRIMARY))
- (get 'x-selections type))
+ "Return the value of an X Windows selection.
+The argument TYPE (default `PRIMARY') says which selection,
+and the argument DATA-TYPE (default `STRING') says
+how to convert the data.
+
+TYPE may be any symbol \(but nil stands for `PRIMARY'). However,
+only a few symbols are commonly used. They conventionally have
+all upper-case names. The most often used ones, in addition to
+`PRIMARY', are `SECONDARY' and `CLIPBOARD'.
+
+DATA-TYPE is usually `STRING', but can also be one of the symbols
+in `selection-converter-alist', which see."
+ (get 'x-selections (or type 'PRIMARY)))
+
+;; x-selection-owner-p is used in simple.el
+(defun x-selection-owner-p (&optional type)
+ (and (memq type '(nil PRIMARY SECONDARY))
+ (get 'x-selections (or type 'PRIMARY))))
(defun set-w32-system-coding-system (coding-system)
"Set the coding system used by the Windows system to CODING-SYSTEM.
"Function to add character sets to display with Windows fonts.
Creates entries in `w32-charset-info-alist'.
XLFD-CHARSET is a string which will appear in the XLFD font name to
-identify the character set. WINDOWS-CHARSET is a symbol identifying
+identify the character set. WINDOWS-CHARSET is a symbol identifying
the Windows character set this maps to. For the list of possible
values, see the documentation for `w32-charset-info-alist'. CODEPAGE
can be a numeric codepage that Windows uses to display the character
set, t for Unicode output with no codepage translation or nil for 8
bit output with no translation."
(add-to-list 'w32-charset-info-alist
- (cons xlfd-charset (cons windows-charset codepage)))
- )
+ (cons xlfd-charset (cons windows-charset codepage))))
;; The last charset we add becomes the "preferred" charset for the return
;; value from w32-select-font etc, so list the most important charsets last.
(w32-add-charset-info "iso8859-13" 'w32-charset-baltic 1257)
(w32-add-charset-info "koi8-r" 'w32-charset-russian 20866)
(w32-add-charset-info "iso8859-5" 'w32-charset-russian 28595)
-(w32-add-charset-info "tis620" 'w32-charset-thai 874)
+(w32-add-charset-info "tis620-2533" 'w32-charset-thai 874)
(w32-add-charset-info "windows-1258" 'w32-charset-vietnamese 1258)
(w32-add-charset-info "ksc5601.1992" 'w32-charset-johab 1361)
(w32-add-charset-info "mac-roman" 'w32-charset-mac 10000)
"Max number of characters to put in the cut buffer.")
(defun x-select-text (text &optional push)
- "Make TEXT the last selected text.
-If `x-select-enable-clipboard' is non-nil, copy the text to the system
-clipboard as well. Optional PUSH is ignored on Windows."
+ "Select TEXT, a string, according to the window system.
+
+On X, put TEXT in the primary X selection. For backward
+compatibility with older X applications, set the value of X cut
+buffer 0 as well, and if the optional argument PUSH is non-nil,
+rotate the cut buffers. If `x-select-enable-clipboard' is
+non-nil, copy the text to the X clipboard as well.
+
+On Windows, make TEXT the current selection. If
+`x-select-enable-clipboard' is non-nil, copy the text to the
+clipboard as well. The argument PUSH is ignored.
+
+On Nextstep, put TEXT in the pasteboard; PUSH is ignored."
(if x-select-enable-clipboard
(w32-set-clipboard-data text))
(setq x-last-selected-text text))