dot/emacs: Always start the servers in Emacs 23.

[profile] / dot / emacs

diff --git a/dot/emacs b/dot/emacs
index fe5b563..845f1ff 100644 (file)
--- a/dot/emacs
+++ b/dot/emacs
@@ -86,9 +86,10 @@
 
 ;; Emacs server behaviour.
 
-(and window-system
-     (trap (gnuserv-start)
-          (setq server-temp-file-regexp (concat "^" tmpdir "\\|/draft$"))))
+(and (or window-system (>= emacs-major-version 23))
+     (trap (setq server-temp-file-regexp (concat "^" tmpdir "\\|/draft$"))
+          (start-server)
+          (gnuserv-start)))
 
 ;; Control backup behaviour.
 
@@ -359,14 +360,13 @@
       (mdw-uniquify-alist
        '((width . 78)
         (height . 33)
-        (vertical-scroll-bars . right))
-       (and window-system
-           '((cursor-type . bar)
-             (cursor-blink . t)
-             (left-fringe . 5)
-             (right-fringe . 5)
-             (scroll-bar-width . 15)))
-       '((cursor-color . "red"))
+        (vertical-scroll-bars . right)
+        (cursor-type . bar)
+        (cursor-blink . t)
+        (left-fringe . 5)
+        (right-fringe . 5)
+        (scroll-bar-width . 15)
+        (cursor-color . "red"))
        (if mdw-black-background
           '((background-color . "black")
             (foreground-color . "white")
@@ -428,6 +428,11 @@
 (and (not mdw-fast-startup) (fboundp 'hippie-expand)
      (global-set-key [?\M-/] 'hippie-expand))
 
+(eval-after-load "dired"
+  '(progn
+     (define-key dired-mode-map [?\C-x ?\C-q]
+       'wdired-change-to-wdired-mode)))
+
 (add-hook 'org-mode-hook
          #'(lambda () (mdw-clobber-evil-keymap org-mode-map)))
 (add-hook 'org-agenda-mode-hook
@@ -550,9 +555,6 @@
 (setq lazy-lock-stealth-lines 100)
 (setq lazy-lock-stealth-verbose t)
 
-(add-hook 'after-make-frame-functions 'mdw-do-set-font)
-(add-hook 'term-setup-hook (lambda () (mdw-do-set-font (selected-frame))))
-(add-hook 'window-setup-hook (lambda () (mdw-do-set-font (selected-frame))))
 
 (add-hook 'c-mode-hook 'mdw-fontify-c-and-c++ t)
 (add-hook 'objc-mode-hook 'mdw-fontify-c-and-c++ t)
@@ -652,6 +654,9 @@
        ("^pdf$" "." "evince %o")
        ("^html?$" "." "netscape %o")))
 
+(setq TeX-open-quote "\""
+      TeX-close-quote "\"")
+
 (setq reftex-use-external-file-finders t
       reftex-auto-recenter-toc t)