(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
(append `(("\\.p[lm]$" . perl-mode)
("\\.m$" . objc-mode)
("\\.mxd$" . c-mode)
+ ("\\.cs" . csharp-mode)
;; ("/[ch]/" . c-mode)
(,(concat "/\\("
"\\.stgit\\.msg" "\\|"
;; --- 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)