(maybe-autoload 'git-status "git" nil t)
(and (library-exists-p "vc-git")
(not (memq 'GIT vc-handled-backends))
- (setq vc-handled-backends (append vc-handled-backends (list 'GIT))))
+ (setq vc-handled-backends (cons 'GIT vc-handled-backends)))
(and (library-exists-p "quilt")
(load "quilt"))
;; --- Other goodies ---
-(resize-minibuffer-mode 1) ;Make minibuffer grow dynamically
+(trap (resize-minibuffer-mode 1)) ;Make minibuffer grow dynamically
(auto-compression-mode 1) ;Enable automatic compression
(setq dabbrev-case-replace nil) ;Retain case when completing
(setq next-line-add-newlines nil) ;Don't add weird newlines
'("-print0 | xargs -0r ls -ld" . "ld"))
(setq Info-fontify-maximum-menu-size 60000)
(setq ispell-dictionary "british"
- flyspell-default-dictionary "british")
-(setq browse-url-browser-function 'browse-url-mozilla
- browse-url-mozilla-program "firefox")
+ flyspell-default-dictionary "british"
+ ispell-silently-savep t)
(trap
(require 'uniquify)
(setq uniquify-buffer-name-style 'post-forward-angle-brackets)
;;;----- W3 and URL fetching stuff ------------------------------------------
-(let ((proxy (mdw-config 'proxy)))
+(let ((proxy (mdw-config 'http-proxy)))
(setq url-proxy-services
`(("http" . ,proxy)
("ftp" . ,proxy)
("gopher" . ,proxy))))
(setq url-cookie-untrusted-urls '("."))
+(setq browse-url-browser-function (mdw-good-url-browser)
+ browse-url-mozilla-program "firefox")
+
+(setq w3m-default-display-inline-images t)
+
(setq w3-do-incremental-display t
w3-use-menus '(file edit view go bookmark options
buffers style search emacs nil help)
(append `(("\\.p[lm]$" . perl-mode)
("\\.m$" . objc-mode)
("\\.mxd$" . c-mode)
+ ("\\.cs" . csharp-mode)
;; ("/[ch]/" . c-mode)
(,(concat "/\\("
"\\.stgit\\.msg" "\\|"
. mdwmail-mode))
auto-mode-alist))
+(setq interpreter-mode-alist
+ (append `(("runlisp" . lisp-mode))
+ interpreter-mode-alist))
+
(setq completion-ignored-extensions
(append `(".hc" ".hi") completion-ignored-extensions))
(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"
;; --- Configure lazy fontification ---
-(setq font-lock-support-mode 'lazy-lock-mode)
+(and (fboundp 'lazy-lock-mode)
+ (setq font-lock-support-mode 'lazy-lock-mode))
; (setq lazy-lock-defer-contextually t)
(setq lazy-lock-defer-time nil)
(setq font-lock-maximum-decoration 3)