(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
("ftp" . ,proxy)
("gopher" . ,proxy))))
(setq url-cookie-untrusted-urls '("."))
-
+
(setq browse-url-browser-function (mdw-good-url-browser)
browse-url-mozilla-program "firefox")
(append `(("\\.p[lm]$" . perl-mode)
("\\.m$" . objc-mode)
("\\.mxd$" . c-mode)
+ ("\\.cs" . csharp-mode)
;; ("/[ch]/" . c-mode)
(,(concat "/\\("
"\\.stgit\\.msg" "\\|"