(setq mdw-backup-disable-regexps
'("/\\.git/COMMIT_EDITMSG$"
- "/\\.stgit\\(-edit\\.txt\\|msg\\.txt\\|\\.msg\\)$"))
+ "/\\.stgit\\(-edit\\.txt\\|msg\\.txt\\|\\.msg\\)$"
+ "^/tmp/" "^/var/tmp/"))
;; Safe variables.
(setq rmail-display-summary t)
(setq rmail-file-name "~/Mail/rmail")
-(setq sendmail-program "~/bin/sendmail-hack")
+(setq sendmail-program "~/bin/sendmail-hack"
+ send-mail-function 'sendmail-send-it
+ mail-interactive t
+ sendmail-error-reporting-interactive '("-odb" "-oee"))
(setq mail-user-agent 'message-user-agent
read-mail-command 'gnus)
message-yank-prefix "> "
message-yank-cited-prefix "> "
message-send-mail-function 'message-send-mail-with-sendmail
+ message-interactive t
+ message-sendmail-extra-arguments '("-odb" "-oee")
message-sendmail-envelope-from 'header
message-indent-citation-function '(message-indent-citation
mdw-trim-spaces-after-citing))
(setq cltl2-root-url (mdw-config 'cltl-url))
(setq common-lisp-hyperspec-root (mdw-config 'hyperspec-url))
+(setq rfcview-rfc-location-pattern
+ "/ftp@mirror.distorted.org.uk:/pub/mirrors/rfc/rfc%s.txt"
+ rfcview-std-location-pattern
+ "/ftp@mirror.distorted.org.uk:/pub/mirrors/rfc/std/std%s.txt"
+ rfcview-index-location
+ "/ftp@mirror.distorted.org.uk:/pub/mirrors/rfc/rfc-index.txt")
+
;;;--------------------------------------------------------------------------
;;; W3 and URL fetching stuff.
(setq browse-url-browser-function (mdw-good-url-browser)
browse-url-generic-program "mdw-chrome"
- browse-url-mozilla-program "firefox")
+ browse-url-mozilla-program "mdw-iceweasel")
(setq w3m-default-display-inline-images t
w3m-use-cookies t)
'((pm (font . "-os2-System VIO-medium-r-normal--*-40-*-*-m-*-cp850")
(menu-font . "8.Helv")
(background-color . "lightgrey"))
+ (w32 (font . "fixed613 10")
+ (background-color . "black")
+ (foreground-color . "white"))
(nil (menu-bar-lines . 0))))
;; Other frame fiddling.
#'(lambda () (interactive)))
(global-set-key [M-S-mouse-3] 'imenu)
(global-set-key [XF86WakeUp] "")
+ (global-set-key [?\C-c ?d ?w] 'devhelp-word-at-point)
+ (global-set-key [?\C-c ?d ?a] 'devhelp-assistant-word-at-point)
+ (global-set-key [f11] 'mdw-toggle-full-screen)
(and (not mdw-fast-startup) (fboundp 'hippie-expand)
(global-set-key [?\M-/] 'hippie-expand)))
;; Recognising types of files.
(setq auto-mode-alist
- (append `(("\\.p[lm]$" . perl-mode)
+ (append `(("\\.p[lm]$" . cperl-mode)
("\\.m$" . objc-mode)
("\\.mxd$" . c-mode)
("\\.cs$" . csharp-mode)
(append `(("runlisp" . lisp-mode)
("@BASH@" . sh-mode)
("@PYTHON@" . python-mode)
- ("@PERL@" . perl-mode)
+ ("@PERL@" . cperl-mode)
+ ("/perl" . cperl-mode)
("@TCLSH@" . tcl-mode)
("@WISH@" . tcl-mode)
("/tclsh" . tcl-mode)
arm-assembler-mode-hook))
(global-font-lock-mode t)
-(defalias 'perl-mode 'cperl-mode)
;;;--------------------------------------------------------------------------
;;; Rootly editingness.