X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/e74ad2753c8e92eb84c8d5f4da0e495dd2fdb71c..49aa87a27aa7f86f55a947c194c5d45559e76ecf:/dot/emacs

diff --git a/dot/emacs b/dot/emacs
index bed70b6..65f558f 100644
--- a/dot/emacs
+++ b/dot/emacs
@@ -94,8 +94,15 @@
 
 (and (or window-system (>= emacs-major-version 23))
      (progn (setq server-temp-file-regexp (concat "^" tmpdir "\\|/draft$")
+		  edit-server-new-frame nil
 		  gnuserv-frame t)
-	    (trap (server-start))))
+	    (trap (server-start))
+	    (trap (progn
+		    (require 'edit-server)
+		    (edit-server-start)
+		    (let ((edit (get-process "edit-server")))
+		      (and edit
+			   (set-process-query-on-exit-flag edit nil)))))))
 
 ;; Control backup behaviour.
 
@@ -268,10 +275,19 @@
 (setq url-cookie-untrusted-urls '("."))
 
 (setq browse-url-browser-function (mdw-good-url-browser)
+      browse-url-generic-program "mdw-chrome"
       browse-url-mozilla-program "firefox")
 
 (setq w3m-default-display-inline-images t)
 
+(eval-after-load "w3m"
+  '(let ((entries '(("application/pdf" "\\.pdf\\'" ("evince" file) nil)
+		    ("application/x-pdf" "\\.pdf\\'" ("evince" file) nil))))
+     (dolist (e entries)
+       (setq w3m-content-type-alist
+	     (cons e (remove* (car e) w3m-content-type-alist
+			      :key #'car :test #'string=))))))
+
 (setq w3-do-incremental-display t
       w3-use-menus '(file edit view go bookmark options
 		     buffers style search emacs nil help)