Mercurial > hg > xemacs-beta

comparison lisp/prim/winnt.el @ 209:41ff10fd062f r20-4b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b3
author cvs
date Mon, 13 Aug 2007 10:04:58 +0200
parents 7d55a9ba150c
children
comparison
equal deleted inserted replaced
208:f427b8ec4379 209:41ff10fd062f
42 (define-key global-map [(backspace)] 'backward-delete-char) 42 (define-key global-map [(backspace)] 'backward-delete-char)
43 (define-key global-map [(delete)] 'delete-char) 43 (define-key global-map [(delete)] 'delete-char)
44 (define-key global-map [(meta backspace)] 'backward-kill-word) 44 (define-key global-map [(meta backspace)] 'backward-kill-word)
45 (define-key global-map [(control meta backspace)] 'backward-kill-sexp) 45 (define-key global-map [(control meta backspace)] 'backward-kill-sexp)
46 46
47 ;; Show file type (text or binary) on modeline 47 (defconst nt-modeline-buffer-type '("%t")
48 (setq-default mode-line-format 48 "Modeline control for showing buffer type (binary or text).")
49 (list (purecopy "") 49
50 'mode-line-modified 50 (setq-default modeline-format
51 'mode-line-buffer-identification 51 (cons (purecopy "")
52 (purecopy " ") 52 (cons 'nt-modeline-buffer-type
53 'global-mode-string 53 (cdr modeline-format))))
54 (purecopy " %[(")
55 (purecopy "%t:")
56 'mode-name 'mode-line-process 'minor-mode-alist
57 (purecopy "%n")
58 (purecopy ")%]--")
59 (purecopy '(line-number-mode "L%l--"))
60 (purecopy '(column-number-mode "C%c--"))
61 (purecopy '(-3 . "%p"))
62 (purecopy "-%-")))
63 54
64 ;; Ignore case on file-name completion 55 ;; Ignore case on file-name completion
65 (setq completion-ignore-case t) 56 (setq completion-ignore-case t)
66 57
67 ;; The cmd.exe shell uses the "/c" switch instead of the "-c" switch 58 ;; The cmd.exe shell uses the "/c" switch instead of the "-c" switch