Mercurial > emacs
view lisp/w32-fns.el @ 21873:3ab8be88f2ef
Generalized region skipping added.
Checks comments only in code.
Added backward compatible support for customize.
(ispell-query-replace-choices, ispell-message-dictionary-alist)
(ispell-grep-command, ispell-grep-options, ispell-look-command)
(ispell-look-options, ispell-use-ptys-p, ispell-local-dictionary)
(ispell-dictionary-alist): Now customizable.
Fixed type of custom variables: ispell-help-in-bufferp.
(ispell-use-framepop-p): New variable.
(ispell-dictionary-alist): Added dictionaries: castellano, castellano8
czech, esperanto, esperanto-tex, norsk, russian.
Capitalize XEmacs correctly, and change lucid to xemacs in code:
(ispell-menu-lucid): Renamed to ispell-menu-xemacs.
Changed string compares for version number to be correct for XEmacs.
Fixed to work with string properties.
(ispell-recursive-edit-marker): new marker saving return point.
(ispell-skip-region-alist): New variable defining regions.
(ispell-tex-skip-alists): New variable for LaTeX regions.
(ispell-skip-sgml): Now buffer-mode aware.
(ispell-highlight-p): Support block cursors.
(ispell-message-text-end): Don't check signatures.
(ispell-comments-and-strings): New command, added to menu.
(ispell-int-char): New function for character incrementing.
(ispell-word): Produces message on error when called from
ispell-minor-mode. Potential infinite loop removed.
(ispell-command-loop): prevent XEmacs modeline hiding.
Allow temporary split of dedicated windows. Improve recursive
edit support. Support block cursors.
(ispell-show-choices): New function cleaning up command loop.
(ispell-highlight-spelling-error-generic): Block cursor support added.
(ispell-highlight-spelling-error-xemacs): Block cursor, name change.
(ispell-overlay-window): dedicated window splitting, XEmacs changes.
(ispell-parse-output): Displays ispell process error messages.
(check-ispell-version): Interactive mode that shows ispell versions.
(ispell-begin-skip-region-regexp): New region skipping function.
(ispell-begin-tex-skip-regexp): New tex mode region skipping function.
(ispell-begin-skip-region): New region skipping function.
(ispell-tex-arg-end): New tex mode region skipping function.
(ispell-skip-region): New region skipping function.
(ispell-get-line): New function to clean up command loop.
(ispell-process-line): New function cleaning up command loop.
(ispell-continue): Improve recursive editor support.
(ispell-complete-word): Interior fragment support improved.
(ispell-message): Region skipping vastly improved.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 30 Apr 1998 06:43:48 +0000 |
parents | 409211e285bc |
children | 073e555c28c8 |
line wrap: on
line source
;;; w32-fns.el --- Lisp routines for Windows NT. ;; Copyright (C) 1994 Free Software Foundation, Inc. ;; Author: Geoff Voelker <voelker@cs.washington.edu> ;; This file is part of GNU Emacs. ;; GNU Emacs is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;; (August 12, 1993) ;; Created. ;; (November 21, 1994) ;; [C-M-backspace] defined. ;; mode-line-format defined to show buffer file type. ;; audio bell initialized. ;;; Code: ;; Map delete and backspace (define-key function-key-map [backspace] "\177") (define-key function-key-map [delete] "\C-d") (define-key function-key-map [M-backspace] [?\M-\177]) (define-key function-key-map [C-M-backspace] [\C-\M-delete]) ;; Ignore case on file-name completion (setq completion-ignore-case t) ;; Map all versions of a filename (8.3, longname, mixed case) to the ;; same buffer. (setq find-file-visit-truename t) (defvar w32-system-shells '("cmd" "cmd.exe" "command" "command.com" "4nt" "4nt.exe" "4dos" "4dos.exe" "ndos" "ndos.exe") "List of strings recognized as Windows NT/9X system shells.") (defun w32-using-nt () "Return t if literally running on Windows NT (i.e., not Windows 9X)." (and (eq system-type 'windows-nt) (getenv "SystemRoot"))) (defun w32-shell-name () "Return the name of the shell being used." (or (and (boundp 'explicit-shell-file-name) explicit-shell-file-name) (getenv "ESHELL") (getenv "SHELL") (and (w32-using-nt) "cmd.exe") "command.com")) (defun w32-system-shell-p (shell-name) (and shell-name (member (downcase (file-name-nondirectory shell-name)) w32-system-shells))) (defvar w32-allow-system-shell nil "*Disable startup warning when using \"system\" shells.") (defun w32-check-shell-configuration () "Check the configuration of shell variables on Windows NT/9X. 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." (interactive) (let ((prev-buffer (current-buffer)) (buffer (get-buffer-create "*Shell Configuration*")) (system-shell)) (set-buffer buffer) (erase-buffer) (if (w32-system-shell-p (getenv "ESHELL")) (insert (format "Warning! The ESHELL environment variable uses %s. You probably want to change it so that it uses cmdproxy.exe instead.\n\n" (getenv "ESHELL")))) (if (w32-system-shell-p (getenv "SHELL")) (insert (format "Warning! The SHELL environment variable uses %s. You probably want to change it so that it uses cmdproxy.exe instead.\n\n" (getenv "SHELL")))) (if (w32-system-shell-p shell-file-name) (insert (format "Warning! shell-file-name uses %s. You probably want to change it so that it uses cmdproxy.exe instead.\n\n" shell-file-name))) (if (and (boundp 'explicit-shell-file-name) (w32-system-shell-p explicit-shell-file-name)) (insert (format "Warning! explicit-shell-file-name uses %s. You probably want to change it so that it uses cmdproxy.exe instead.\n\n" explicit-shell-file-name))) (setq system-shell (> (buffer-size) 0)) ;; Allow user to specify that they really do want to use one of the ;; "system" shells, despite the drawbacks, but still warn if ;; shell-command-switch doesn't match. (if w32-allow-system-shell (erase-buffer)) (cond (system-shell ;; System shells. (if (string-equal "-c" shell-command-switch) (insert "Warning! shell-command-switch is \"-c\". You should set this to \"/c\" when using a system shell.\n\n")) (if w32-quote-process-args (insert "Warning! w32-quote-process-args is t. You should set this to nil when using a system shell.\n\n"))) ;; Non-system shells. (t (if (string-equal "/c" shell-command-switch) (insert "Warning! shell-command-switch is \"/c\". You should set this to \"-c\" when using a non-system shell.\n\n")) (if (not w32-quote-process-args) (insert "Warning! w32-quote-process-args is nil. You should set this to t when using a non-system shell.\n\n")))) (if (> (buffer-size) 0) (display-buffer buffer) (kill-buffer buffer)) (set-buffer prev-buffer))) (add-hook 'after-init-hook 'w32-check-shell-configuration) ;;; Basic support functions for managing Emacs' locale setting (defvar w32-valid-locales nil "List of locale ids known to be supported.") ;;; This is the brute-force version; an efficient version is now ;;; built-in though. (if (not (fboundp 'w32-get-valid-locale-ids)) (defun w32-get-valid-locale-ids () "Return list of all valid Windows locale ids." (let ((i 65535) locales) (while (> i 0) (if (w32-get-locale-info i) (setq locales (cons i locales))) (setq i (1- i))) locales))) (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))) ;;; Setup Info-default-directory-list to include the info directory ;;; near where Emacs executable was installed. We used to set INFOPATH, ;;; but when this is set Info-default-directory-list is ignored. We ;;; also cannot rely upon what is set in paths.el because they assume ;;; that configuration during build time is correct for runtime. (defun w32-init-info () (let* ((instdir (file-name-directory invocation-directory)) (dir1 (expand-file-name "../info/" instdir)) (dir2 (expand-file-name "../../../info/" instdir))) (if (file-exists-p dir1) (setq Info-default-directory-list (append Info-default-directory-list (list dir1))) (if (file-exists-p dir2) (setq Info-default-directory-list (append Info-default-directory-list (list dir2))))))) (add-hook 'before-init-hook 'w32-init-info) ;; Avoid creating auto-save file names containing invalid characters. (fset 'original-make-auto-save-file-name (symbol-function 'make-auto-save-file-name)) (defun make-auto-save-file-name () "Return file name to use for auto-saves of current buffer. Does not consider `auto-save-visited-file-name' as that variable is checked before calling this function. You can redefine this for customization. See also `auto-save-file-name-p'." (convert-standard-filename (original-make-auto-save-file-name))) (defun convert-standard-filename (filename) "Convert a standard file's name to something suitable for the current OS. This function's standard definition is trivial; it just returns the argument. However, on some systems, the function is redefined with a definition that really does change some file names." (let ((name (copy-sequence filename)) (start 0)) ;; leave ':' if part of drive specifier (if (eq (aref name 1) ?:) (setq start 2)) ;; destructively replace invalid filename characters with ! (while (string-match "[?*:<>|\"\000-\037]" name start) (aset name (match-beginning 0) ?!) (setq start (match-end 0))) name)) ;;; Fix interface to (X-specific) mouse.el (defun x-set-selection (type data) (or type (setq type 'PRIMARY)) (put 'x-selections type data)) (defun x-get-selection (&optional type data-type) (or type (setq type 'PRIMARY)) (get 'x-selections type)) ;;; Set to a system sound if you want a fancy bell. (set-message-beep nil) ;;; The "Windows" keys on newer keyboards bring up the Start menu ;;; whether you want it or not - make Emacs ignore these keystrokes ;;; rather than beep. (global-set-key [lwindow] 'ignore) (global-set-key [rwindow] 'ignore) ;; Map certain keypad keys into ASCII characters ;; that people usually expect. (define-key function-key-map [tab] [?\t]) (define-key function-key-map [linefeed] [?\n]) (define-key function-key-map [clear] [11]) (define-key function-key-map [return] [13]) (define-key function-key-map [escape] [?\e]) (define-key function-key-map [M-tab] [?\M-\t]) (define-key function-key-map [M-linefeed] [?\M-\n]) (define-key function-key-map [M-clear] [?\M-\013]) (define-key function-key-map [M-return] [?\M-\015]) (define-key function-key-map [M-escape] [?\M-\e]) ;; These don't do the right thing (voelker) ;(define-key function-key-map [backspace] [127]) ;(define-key function-key-map [delete] [127]) ;(define-key function-key-map [M-backspace] [?\M-\d]) ;(define-key function-key-map [M-delete] [?\M-\d]) ;; These tell read-char how to convert ;; these special chars to ASCII. (put 'tab 'ascii-character ?\t) (put 'linefeed 'ascii-character ?\n) (put 'clear 'ascii-character 12) (put 'return 'ascii-character 13) (put 'escape 'ascii-character ?\e) (put 'backspace 'ascii-character 127) (put 'delete 'ascii-character 127) ;;; w32-fns.el ends here