;; --- Internationalization twiddling ---
(trap
- (standard-display-european 1)
+ ;; Have top-bit-set characters work properly in terminals.
(let ((im (current-input-mode)))
(apply #'set-input-mode
- (nconc (list (nth 0 im) (nth 1 im) 0) (nthcdr 3 im))))
- (set-language-environment "Latin-1"))
+ (nconc (list (nth 0 im) (nth 1 im) 0) (nthcdr 3 im)))))
;; --- Don't disable any commands ---
(mdw-divvy-window)
+;; --- Postscript printing ---
+
+(setq ps-paper-type 'a4
+ ps-print-color-p nil
+ ps-landscape-mode t
+ ps-number-of-columns 3
+ ps-font-family 'Courier
+ ps-font-size 9)
+
+;; --- Splash screen stuff ---
+
+(or window-system
+ (setq inhibit-splash-screen t
+ inhibit-startup-message t))
+
;; --- Other goodies ---
(trap (resize-minibuffer-mode 1)) ;Make minibuffer grow dynamically