;; 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.
(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")
(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)