When compiling, require compare-w and skeleton

[gnu-emacs] / lisp / bindings.el

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 6af10f12911a658f5fe401deba098275338772d4..f2f22a82490be9644bccd61e8deef4950d7e4722 100644 (file)
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -207,6 +207,7 @@ is okay.  See `mode-line-format'.")
 
        ;; man
        "^No manpage [0-9]* found$"
+       "^Can't find the .* manpage$"
 
        ;; etags
        "^No tags table in use; use .* to select one$"
@@ -232,7 +233,6 @@ is okay.  See `mode-line-format'.")
        "^This command is inapplicable in the present context$"
        "^This session group has no parent$"
        "^Can't hide active session, $"
-       "^Sorry, I don't do this for everyone...$"
        "^Ediff: something wrong--no multiple diffs buffer$"
        "^Can't make context diff for Session $"
        "^The patch buffer wasn't found$"
@@ -269,6 +269,9 @@ is okay.  See `mode-line-format'.")
        "^Buffer .* doesn't exist$"
        "^There is no file to merge$"
        "^Version control package .*.el not found. Use vc.el instead$"
+       
+       ;; cus-edit
+       "^No user options have changed defaults in recent Emacs versions$"
 
        ;; BBDB
        "^no previous record$"
@@ -277,6 +280,9 @@ is okay.  See `mode-line-format'.")
 
 (make-variable-buffer-local 'indent-tabs-mode)
 
+;; We have base64 functions built in now.
+(add-to-list 'features 'base64)
+
 (define-key esc-map "\t" 'complete-symbol)
 
 (defun complete-symbol (arg)
@@ -297,11 +303,12 @@ for \\[find-tag] (which see)."
 ;; that we will not need to keep permanently.
 (garbage-collect)
 \f
-;; Make Latin-1, Latin-2, Latin-3 and Latin-4 characters self-insert.
-(aset (nth 1 global-map) (make-char 'latin-iso8859-1) 'self-insert-command)
-(aset (nth 1 global-map) (make-char 'latin-iso8859-2) 'self-insert-command)
-(aset (nth 1 global-map) (make-char 'latin-iso8859-3) 'self-insert-command)
-(aset (nth 1 global-map) (make-char 'latin-iso8859-4) 'self-insert-command)
+;; Make all multibyte characters self-insert.
+(let ((l (generic-character-list))
+      (table (nth 1 global-map)))
+  (while l
+    (set-char-table-default table (car l) 'self-insert-command)
+    (setq l (cdr l))))
 
 (setq help-event-list '(help f1))
 
@@ -639,6 +646,8 @@ for \\[find-tag] (which see)."
 (define-key esc-map "'" 'abbrev-prefix-mark)
 (define-key ctl-x-map "'" 'expand-abbrev)
 
+(define-key ctl-x-map "z" 'repeat)
+
 ;;; Don't compile this file; it contains no large function definitions.
 ;;; Don't look for autoload cookies in this file.
 ;;; Local Variables: