;;; Code:
-;;; This code was NOT generated by autoload.el.
+(defconst mode-line-mule-info
+ (purecopy '(enable-multibyte-characters
+ ((current-input-method ("[" current-input-method-title "]"))
+ "%z:")))
+ "Mode-line control for displaying information of multilingual environment.")
-(defconst mode-line-buffer-identification (purecopy '("%F: %12b"))
+(make-variable-buffer-local 'mode-line-mule-info)
+
+(defvar mode-line-buffer-identification (purecopy '("%F: %12b"))
"Mode-line control for identifying the buffer being displayed.
Its default value is (\"%F: %12b\"). Under X, `%F' is replaced with `Emacs'.
Major modes that edit things other than ordinary files may change this
(make-variable-buffer-local 'mode-line-buffer-identification)
-(defconst mode-line-process nil
+(defvar mode-line-process nil
"Mode-line control for displaying info on process status.
Normally nil in most modes, since there is no process to display.")
(make-variable-buffer-local 'mode-line-process)
-(defconst mode-line-modified (purecopy '("--%1*%1+-"))
+(defvar mode-line-modified (purecopy '("--%1*%1+-"))
"Mode-line control for displaying whether current buffer is modified.")
(make-variable-buffer-local 'mode-line-modified)
(setq-default mode-line-format
(list (purecopy "")
+ 'mode-line-mule-info
'mode-line-modified
'mode-line-buffer-identification
(purecopy " ")
;; are ignored in completion,
;; making it more likely you will get a unique match.
(setq completion-ignored-extensions
- (cond ((or (eq system-type 'ms-dos) (eq system-type 'windows-nt))
- '(".o" ".elc" "~" ".bin" ".bak" ".obj" ".map"
- ".dvi" ".toc" ".log" ".aux" ".a" ".ln"
- ".lof" ".blg" ".bbl" ".glo" ".idx" ".lot" ".fmt"))
- ((eq system-type 'vax-vms)
- '(".obj" ".elc" ".exe" ".bin" ".lbin" ".sbin"
- ".dvi" ".toc" ".log" ".aux"
- ".lof" ".brn" ".rnt" ".mem" ".lni" ".lis"
- ".olb" ".tlb" ".mlb" ".hlb" ".glo" ".idx" ".lot" ".fmt"))
- (t
- '(".o" ".elc" "~" ".bin" ".lbin" ".fasl"
- ".dvi" ".toc" ".log" ".aux" ".a" ".ln"
- ".lof" ".blg" ".bbl" ".glo" ".idx" ".lot" ".fmt"))))
+ (append
+ (cond ((or (eq system-type 'ms-dos) (eq system-type 'windows-nt))
+ '(".o" "~" ".bin" ".bak" ".obj" ".map"
+ ".a" ".ln" ".blg" ".bbl"))
+ ((eq system-type 'vax-vms)
+ '(".obj" ".exe" ".bin" ".lbin" ".sbin"
+ ".brn" ".rnt" ".mem" ".lni" ".lis"
+ ".olb" ".tlb" ".mlb" ".hlb"))
+ (t
+ '(".o" "~" ".bin" ".lbin" ".fasl"
+ ".a" ".ln" ".blg" ".bbl")))
+ '(".elc" ".lof"
+ ".glo" ".idx" ".lot"
+ ;; TeX-related
+ ".dvi" ".fmt"
+ ;; Texinfo-related
+ ".toc" ".log" ".aux"
+ ".cp" ".fn" ".ky" ".pg" ".tp" ".vr"
+ ".cps" ".fns" ".kys" ".pgs" ".tps" ".vrs")))
(setq debug-ignored-errors
'(beginning-of-line beginning-of-buffer end-of-line
"^Current buffer has no process$"
;; dabbrev
- "^No dynamic expansion for \".*\" found\\.$"
- "^No further dynamic expansions for \".*\" found\\.$"
- "^No further dynamic expansions for `.*' found$"
+ "^No dynamic expansion for .* found$"
+ "^No further dynamic expansion for .* found$"
;; Completion
"^To complete, the point must be after a symbol at least [0-9]* character long\\.$"
(define-key esc-map "\\" 'delete-horizontal-space)
(defalias 'mode-specific-command-prefix (make-sparse-keymap))
-(defconst mode-specific-map (symbol-function 'mode-specific-command-prefix)
+(defvar mode-specific-map (symbol-function 'mode-specific-command-prefix)
"Keymap for characters following C-c.")
(define-key global-map "\C-c" 'mode-specific-command-prefix)
(define-key esc-map "\t" 'lisp-complete-symbol)
(define-key ctl-x-map "\C-e" 'eval-last-sexp)
+
+(define-key ctl-x-map "m" 'compose-mail)
+(define-key ctl-x-4-map "m" 'compose-mail-other-window)
+(define-key ctl-x-5-map "m" 'compose-mail-other-frame)
\f
(define-key ctl-x-map "r\C-@" 'point-to-register)
(define-key ctl-x-map [?r ?\C-\ ] 'point-to-register)