-;;; -*-emacs-lisp-*-
+;;; -*- mode: emacs-lisp; coding: utf-8 -*-
;;;
;;; $Id: .emacs,v 1.11 1997/01/01 18:47:09 mdw Exp $
;;;
;; --- Load some other bits of code ---
-(setq load-path (cons "~/lib/emacs" load-path))
-
(maybe-autoload 'cc-mode "cc-mode" nil t)
(maybe-autoload 'rexx-mode "rexx-mode" nil t)
(maybe-autoload 'cvs-update "pcl-cvs" nil t)
;; --- Internationalization twiddling ---
(trap
- (standard-display-european 1)
+ ;; Have top-bit-set characters work properly in terminals.
(let ((im (current-input-mode)))
(apply #'set-input-mode
- (nconc (list (nth 0 im) (nth 1 im) 0) (nthcdr 3 im))))
- (set-language-environment "Latin-1"))
+ (nconc (list (nth 0 im) (nth 1 im) 0) (nthcdr 3 im)))))
;; --- Don't disable any commands ---
(global-font-lock-mode t)
(defalias 'perl-mode 'cperl-mode)
-;;;----- SGML hacking -------------------------------------------------------
-
-(defun mdw-sgml-mode ()
- (interactive)
- (sgml-mode)
- (mdw-standard-fill-prefix "")
- (make-variable-buffer-local 'sgml-delimiters)
- (setq sgml-delimiters
- '("AND" "&" "COM" "--" "CRO" "&#" "DSC" "]" "DSO" "[" "DTGC" "]"
- "DTGO" "[" "ERO" "&" "ETAGO" ":e" "GRPC" ")" "GRPO" "(" "LIT" "\""
- "LITA" "'" "MDC" ">" "MDO" "<!" "MINUS" "-" "MSC" "]]" "NESTC" "{"
- "NET" "}" "OPT" "?" "OR" "|" "PERO" "%" "PIC" ">" "PIO" "<?"
- "PLUS" "+" "REFC" "." "REP" "*" "RNI" "#" "SEQ" "," "STAGO" ":"
- "TAGC" "." "VI" "=" "MS-START" "<![" "MS-END" "]]>"
- "XML-ECOM" "-->" "XML-PIC" "?>" "XML-SCOM" "<!--" "XML-TAGCE" "/>"
- "NULL" ""))
- (setq major-mode 'mdw-sgml-mode)
- (setq mode-name "[mdw] SGML")
- (run-hooks 'mdw-sgml-mode-hook))
-
;;;----- Rootly editingness -------------------------------------------------
(eval-after-load "tramp"
(add-hook 'latex-mode-hook 'mdw-fontify-tex t)
(add-hook 'sh-mode-hook #'mdw-setup-sh-script-mode)
+(add-hook 'autoconf-mode-hook #'mdw-setup-m4)
+(add-hook 'm4-mode-hook #'mdw-setup-m4)
(add-hook 'smalltalk-mode-hook 'mdw-fontify-smalltalk t)
(add-hook 'smalltalk-mode-hook 'mdw-setup-smalltalk t)
;; --- Make the shell mode aware of my prompt ---
-(setq shell-prompt-pattern "^[^]#$%>»}\n]*[]#$%>»}] *")
+(setq shell-prompt-pattern "^[^]#$%>»}\n]*[]#$%>»}] *")
(setq comint-password-prompt-regexp
(concat "\\(\\([Oo]ld \\|[Nn]ew \\|[a-zA-Z0-9_]*'s \\|^\\)"
"[Pp]assword\\|pass phrase\\):\\s *\\'"))