Mercurial > emacs

comparison lisp/w32-fns.el @ 11399:f322675d5c53

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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