;;; Code:
+(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.")
+
+(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'.
(setq-default mode-line-format
(list (purecopy "")
+ 'mode-line-mule-info
'mode-line-modified
'mode-line-buffer-identification
(purecopy " ")
"^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 "\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)