Mercurial > emacs
comparison lisp/w32-fns.el @ 11399:f322675d5c53
Key [C-M-backspace] defined.
(mode-line-format): Defined.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Wed, 12 Apr 1995 03:13:20 +0000 |
parents | fa698fd10c05 |
children | 824f238e0c64 |
comparison
equal
deleted
inserted
replaced
11398:2fdc054fa4e3 | 11399:f322675d5c53 |
---|---|
1 ;; winnt.el --- Lisp routines for Windows NT. | 1 ;; winnt.el --- Lisp routines for Windows NT. |
2 ;; Copyright (C) 1994 Free Software Foundation, Inc. | 2 ;; Copyright (C) 1994 Free Software Foundation, Inc. |
3 | 3 |
4 ;; Author: Geoff Voelker (voelker@cs.washington.edu) | 4 ;; Author: Geoff Voelker (voelker@cs.washington.edu) |
5 ;; Version: 1 | |
5 | 6 |
6 ;; This file is part of GNU Emacs. | 7 ;; This file is part of GNU Emacs. |
7 | 8 |
8 ;; GNU Emacs is free software; you can redistribute it and/or modify | 9 ;; GNU Emacs is free software; you can redistribute it and/or modify |
9 ;; it under the terms of the GNU General Public License as published by | 10 ;; it under the terms of the GNU General Public License as published by |
20 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | 21 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. |
21 | 22 |
22 ;;; Commentary: | 23 ;;; Commentary: |
23 | 24 |
24 ;; (August 12, 1993) | 25 ;; (August 12, 1993) |
25 ;; NT switches placed in: | 26 ;; Created. |
26 ;; | |
27 ;; compile.el, dired-new.el, dired.el, loadup.el, startup.el, subr.el | |
28 | 27 |
29 ;; (November 21, 1993) | 28 ;; (November 21, 1994) |
30 ;; General stuffing for supporting Windows NT. | 29 ;; [C-M-backspace] defined. |
30 ;; mode-line-format defined to show buffer file type. | |
31 ;; audio bell initialized. | |
31 | 32 |
32 ;;; Code: | 33 ;;; Code: |
33 | 34 |
34 ;; Map delete and backspace | 35 ;; Map delete and backspace |
35 (define-key function-key-map [backspace] "\177") | 36 (define-key function-key-map [backspace] "\177") |
36 (define-key function-key-map [delete] "\C-d") | 37 (define-key function-key-map [delete] "\C-d") |
37 (define-key function-key-map [M-backspace] [?\M-\177]) | 38 (define-key function-key-map [M-backspace] [?\M-\177]) |
39 (define-key function-key-map [C-M-backspace] [\C-\M-delete]) | |
40 | |
41 ;; Show file type (text or binary) on modeline | |
42 (setq-default mode-line-format | |
43 (list (purecopy "") | |
44 'mode-line-modified | |
45 'mode-line-buffer-identification | |
46 (purecopy " ") | |
47 'global-mode-string | |
48 (purecopy " %[(") | |
49 (purecopy "%t:") | |
50 'mode-name 'mode-line-process 'minor-mode-alist | |
51 (purecopy "%n") | |
52 (purecopy ")%]--") | |
53 (purecopy '(line-number-mode "L%l--")) | |
54 (purecopy '(-3 . "%p")) | |
55 (purecopy "-%-"))) | |
38 | 56 |
39 ;; Ignore case on file-name completion | 57 ;; Ignore case on file-name completion |
40 (setq completion-ignore-case t) | 58 (setq completion-ignore-case t) |
41 | 59 |
42 ;; The cmd.exe shell uses the "/c" switch instead of the "-c" switch | 60 ;; The cmd.exe shell uses the "/c" switch instead of the "-c" switch |
110 (fmakunbound 'font-menu-add-default) | 128 (fmakunbound 'font-menu-add-default) |
111 (global-unset-key [C-down-mouse-1]) | 129 (global-unset-key [C-down-mouse-1]) |
112 (global-unset-key [C-down-mouse-2]) | 130 (global-unset-key [C-down-mouse-2]) |
113 (global-unset-key [C-down-mouse-3]) | 131 (global-unset-key [C-down-mouse-3]) |
114 | 132 |
133 ;;; Set to a system sound if you want a fancy bell. | |
134 (set-message-beep nil) | |
135 | |
115 ;;; winnt.el ends here | 136 ;;; winnt.el ends here |