;;; Code:
(defconst mode-line-mule-info
- (purecopy '(enable-multibyte-characters
- ((current-input-method ("" current-input-method-title))
- "%Z")))
+ (purecopy '(""
+ (current-input-method ("" current-input-method-title))
+ "%Z"))
"Mode-line control for displaying information of multilingual environment.
Normally it displays current input method (if any activated) and
mnemonics of the following coding systems:
'mode-name 'mode-line-process 'minor-mode-alist
(purecopy "%n")
(purecopy ")%]--")
+ '(which-func-mode ("" which-func-format "--"))
(purecopy '(line-number-mode "L%l--"))
(purecopy '(column-number-mode "C%c--"))
(purecopy '(-3 . "%p"))
".glo" ".idx" ".lot"
;; TeX-related
".dvi" ".fmt"
+ ;; Java compiled
+ ".class"
+ ;; Clisp
+ ".fas" ".lib"
+ ;; CMUCL
+ ".x86f"
;; Texinfo-related
".toc" ".log" ".aux"
".cp" ".fn" ".ky" ".pg" ".tp" ".vr"
(setq debug-ignored-errors
'(beginning-of-line beginning-of-buffer end-of-line
end-of-buffer end-of-file buffer-read-only
+ file-supersession
"^Previous command was not a yank$"
"^Minibuffer window is not active$"
"^End of history; no next item$"
"^No further undo information$"
"^Save not confirmed$"
"^Recover-file cancelled\\.$"
+ "^Cannot switch buffers in a dedicated window$"
;; comint
"^Not at command line$"
;; dabbrev
"^No dynamic expansion for .* found$"
"^No further dynamic expansion for .* found$"
+ "^No possible abbreviation preceding point$"
;; Completion
"^To complete, the point must be after a symbol at least [0-9]* character long\\.$"
;; info
"^Node has no Previous$"
+ "^No menu in this node$"
+ "^Node has no Next$"
"^No \".*\" in index$"
;; imenu
;; man
"^No manpage [0-9]* found$"
+ "^Can't find the .* manpage$"
;; etags
"^No tags table in use; use .* to select one$"
"^File .* not in current tags tables$"
"^No tags table loaded"
"^Nothing to complete$"
+
+ ;; ediff
+ "^Errors in diff output. Diff output is in "
+ "^Hmm... I don't see an Ediff command around here...$"
+ "^Undocumented command! Type `G' in Ediff Control Panel to drop a note to the Ediff maintainer$"
+ ": This command runs in Ediff Control Buffer only!$"
+ ": Invalid op in ediff-check-version$"
+ "^ediff-shrink-window-C can be used only for merging jobs$"
+ "^Lost difference info on these directories$"
+ "^This command is inapplicable in the present context$"
+ "^This session group has no parent$"
+ "^Can't hide active session, $"
+ "^Ediff: something wrong--no multiple diffs buffer$"
+ "^Can't make context diff for Session $"
+ "^The patch buffer wasn't found$"
+ "^Aborted$"
+ "^This Ediff session is not part of a session group$"
+ "^No active Ediff sessions or corrupted session registry$"
+ "^No session info in this line$"
+ "^`.*' is not an ordinary file$"
+ "^Patch appears to have failed$"
+ "^Recomputation of differences cancelled$"
+ "^No fine differences in this mode$"
+ "^Lost connection to ancestor buffer...sorry$"
+ "^Not merging with ancestor$"
+ "^Don't know how to toggle read-only in buffer "
+ "Emacs is not running as a window application$"
+ "^This command makes sense only when merging with an ancestor$"
+ "^At end of the difference list$"
+ "^At beginning of the difference list$"
+ "^Nothing saved for diff .* in buffer "
+ "^Buffer is out of sync for file "
+ "^Buffer out of sync for file "
+ "^Output from `diff' not found$"
+ "^You forgot to specify a region in buffer "
+ "^All right. Make up your mind and come back...$"
+ "^Current buffer is not visiting any file$"
+ "^Failed to retrieve revision: $"
+ "^Can't determine display width.$"
+ "^File `.*' does not exist or is not readable$"
+ "^File `.*' is a directory$"
+ "^Buffer .* doesn't exist$"
+ "^Directories . and . are the same: "
+ "^Directory merge aborted$"
+ "^Merge of directory revisions aborted$"
+ "^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$"
(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)
;; 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))
+(make-variable-buffer-local 'minor-mode-overriding-map-alist)
+
;These commands are defined in editfns.c
;but they are not assigned to keys there.
(put 'narrow-to-region 'disabled t)
(define-key global-map "\C-@" 'set-mark-command)
;; Many people are used to typing C-SPC and getting C-@.
-(define-key global-map [?\C-\ ] 'set-mark-command)
+(define-key global-map [?\C- ] 'set-mark-command)
(define-key ctl-x-map "\C-x" 'exchange-point-and-mark)
(define-key ctl-x-map "\C-@" 'pop-global-mark)
-(define-key ctl-x-map [?\C-\ ] 'pop-global-mark)
+(define-key ctl-x-map [?\C- ] 'pop-global-mark)
(define-key global-map "\C-n" 'next-line)
(define-key global-map "\C-p" 'previous-line)
(define-key ctl-x-map "ri" 'insert-register)
(define-key ctl-x-map "rg" 'insert-register)
(define-key ctl-x-map "rr" 'copy-rectangle-to-register)
+(define-key ctl-x-map "rn" 'number-to-register)
+(define-key ctl-x-map "r+" 'increment-register)
(define-key ctl-x-map "rc" 'clear-rectangle)
(define-key ctl-x-map "rk" 'kill-rectangle)
(define-key ctl-x-map "rd" 'delete-rectangle)
(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: