Mercurial > hg > xemacs-beta

comparison lisp/winnt.el @ 265:8efd647ea9ca r20-5b31

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b31
author cvs
date Mon, 13 Aug 2007 10:25:37 +0200
parents d44af0c54775
children 57709be46d1b
comparison
equal deleted inserted replaced
264:682d2a9d41a5 265:8efd647ea9ca
41 ;; Not sure this is really needed in XEmacs... --marcpa 41 ;; Not sure this is really needed in XEmacs... --marcpa
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
47 (defconst nt-modeline-buffer-type '("%t")
48 "Modeline control for showing buffer type (binary or text).")
49
50 (setq-default modeline-format
51 (cons (purecopy "")
52 (cons 'nt-modeline-buffer-type
53 (cdr modeline-format))))
54 46
55 ;; Ignore case on file-name completion 47 ;; Ignore case on file-name completion
56 (setq completion-ignore-case t) 48 (setq completion-ignore-case t)
57 49
58 ;; The cmd.exe shell uses the "/c" switch instead of the "-c" switch 50 ;; The cmd.exe shell uses the "/c" switch instead of the "-c" switch