X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/03f7e611ae3208e41ee76bfa59d3fee0a772eefd..a67800787383e8f8b07a6fad057311a397d722c2:/dot/emacs?ds=sidebyside diff --git a/dot/emacs b/dot/emacs index c0f4022..0b21778 100644 --- a/dot/emacs +++ b/dot/emacs @@ -293,6 +293,13 @@ (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. @@ -305,7 +312,7 @@ (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) @@ -436,6 +443,9 @@ '((pm (font . "-os2-System VIO-medium-r-normal--*-40-*-*-m-*-cp850") (menu-font . "8.Helv") (background-color . "lightgrey")) + (w32 (font . "fixed 10") + (background-color . "black") + (foreground-color . "white")) (nil (menu-bar-lines . 0)))) ;; Other frame fiddling. @@ -523,7 +533,7 @@ ;; 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) @@ -565,7 +575,8 @@ (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) @@ -603,7 +614,6 @@ arm-assembler-mode-hook)) (global-font-lock-mode t) -(defalias 'perl-mode 'cperl-mode) ;;;-------------------------------------------------------------------------- ;;; Rootly editingness.