(setq load-path (cons "~/lib/emacs" load-path))
-(autoload 'cc-mode "cc-mode" nil t)
-(autoload 'rexx-mode "rexx-mode" nil t)
-(autoload 'cvs-update "pcl-cvs" nil t)
-(autoload 'debian-changelog-mode "debian-changelog-mode" nil t)
+(maybe-autoload 'cc-mode "cc-mode" nil t)
+(maybe-autoload 'rexx-mode "rexx-mode" nil t)
+(maybe-autoload 'cvs-update "pcl-cvs" nil t)
+(maybe-autoload 'debian-changelog-mode "debian-changelog-mode" nil t)
+(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))))
+(and (library-exists-p "quilt")
+ (load "quilt"))
(trap
(or (fboundp 'make-regexp)
(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")
(trap
(require 'uniquify)
(setq uniquify-buffer-name-style 'post-forward-angle-brackets)
("gopher" . ,proxy))))
(setq url-cookie-untrusted-urls '("."))
+(let ((browsers '(w3m browse-url-w3 browse-url-mozilla)) browser)
+ (while browsers
+ (setq browser (car browsers)
+ browsers (cdr browsers))
+ (if (fboundp browser)
+ (setq browse-url-browser-function browser
+ browsers nil))))
+
+(setq 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)
"svk-commit[^/.]*\\.tmp" "\\|"
"gitci\\.[^/.]*" "\\|"
"cvs[^/.]\\{6\\}" "\\|"
+ "quilt_header\.[^/.]\\{6\\}"
"\\)$")
. text-mode)
("\\.calc?$" . apcalc-mode)
;; --- 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 *\\'"))