X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/ed5e20a5246bc228ede6b5951c34f8e89a8446d7..83a3b1eb8d1f365d50342de6c7a2f1c10eb9635a:/dot/emacs

diff --git a/dot/emacs b/dot/emacs
index ab9a94f..98852a4 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.
 
@@ -230,7 +237,7 @@
 (setq password-cache-expiry nil)
 (setq-default proced-filter 'all
 	      proced-sort 'user)
-(setq ispell-program-name "aspell"
+(setq ispell-program-name "aspell-hack"
       ispell-local-dictionary "en_GB-ize-w_accents"
       flyspell-default-dictionary "en_GB-ize-w_accents"
       ispell-silently-savep t)
@@ -763,7 +770,9 @@
 (setq shell-prompt-pattern "^[^]#$%>»}\n]*\\([]#$%»}]\\|>>?\\) *")
 (setq comint-password-prompt-regexp
       (concat "\\(\\([Ee]nter \\|[Oo]ld \\|[Nn]ew \\|[a-zA-Z0-9_]*'s \\|^\\)"
-	      "[Pp]assword\\|pass phrase\\):"))
+	      "[Pp]assword\\|pass phrase\\):")
+      comint-file-name-chars "~/A-Za-z0-9+@:_.$#%,={}-"
+      shell-file-name-chars comint-file-name-chars)
 
 ;; Notice passwords, and make C-a work right.