-;;; -*-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)
ps-landscape-mode t
ps-number-of-columns 3
ps-font-family 'Courier
- ps-font-size 9)
+ ps-font-size 4)
;; --- Splash screen stuff ---
(setq ange-ftp-ftp-program-name "pftp") ;Use passive FTP
(setq find-ls-option ;Build file lists efficiently
'("-print0 | xargs -0r ls -ld" . "ld"))
+(setq bookmark-save-flag 0) ;Save bookmarks automatically
(setq Info-fontify-maximum-menu-size 60000)
-(setq ispell-dictionary "british"
- flyspell-default-dictionary "british"
+(setq ispell-program-name "aspell"
+ ispell-local-dictionary "en_GB-ize-w_accents"
+ flyspell-default-dictionary "en_GB-ize-w_accents"
ispell-silently-savep t)
(trap
(require 'uniquify)
(trap
(tooltip-mode 0)
(tool-bar-mode 0))
-(trap (global-auto-revert-mode t))
+;;(trap (global-auto-revert-mode t))
(setq psgml-html-build-new-buffer nil)
(setq cltl2-root-url (mdw-config 'cltl-url))
(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)
(trap
(require 'slime-autoloads)
(slime-setup '(slime-autodoc)))
-(trap (require 'xscheme))
-(setq-default xscheme-process-command-line "scheme -large -emacs")
+;;(trap (require 'xscheme))
+;;(setq-default xscheme-process-command-line "scheme -large -emacs")
(add-hook 'inferior-lisp-mode-hook
#'(lambda ()
(local-set-key "\C-m" 'comint-send-and-indent)) 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 *\\'"))