(quoted-insert-character-offset): Initialize more cleanly.

[gnu-emacs] / lisp / bindings.el

diff --git a/lisp/bindings.el b/lisp/bindings.el
index cccaab1c5aaa3a3cb62fe6bb6287fc9830b2f33b..dc65121239976409a87f73056e906bbd58fc0251 100644 (file)
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -47,6 +47,14 @@
 
 ;;; 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'.
@@ -68,6 +76,7 @@ Normally nil in most modes, since there is no process to display.")
 
 (setq-default mode-line-format
   (list (purecopy "")
+   'mode-line-mule-info
    'mode-line-modified
    'mode-line-buffer-identification
    (purecopy "   ")
@@ -103,19 +112,25 @@ is okay.  See `mode-line-format'.")
 ;; 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
@@ -139,9 +154,8 @@ is okay.  See `mode-line-format'.")
        "^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\\.$"
@@ -471,6 +485,10 @@ for \\[find-tag] (which see)."
 (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)