X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/c79e04d88b1aaab5e27366a8090b4c0c954bc753..bed1b0c89060d12902dce395774584d78c00e279:/lisp/bindings.el diff --git a/lisp/bindings.el b/lisp/bindings.el index 6af10f1291..f2f22a8249 100644 --- 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) -;; 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: