Make Emacs column width configurable.

[profile] / dot / emacs

diff --git a/dot/emacs b/dot/emacs
index 9bb23b2..677338c 100644 (file)
--- a/dot/emacs
+++ b/dot/emacs
@@ -312,7 +312,7 @@
 (setq read-quoted-char-radix 16)       ;C-q HEX-STUFF [RET]
 (setq case-fold-file-names nil)                ;Don't translate file names (grr...)
 (setq scroll-step 5)                   ;Don't scroll too much at a time
-(setq-default fill-column 77)          ;I use rather narrow windows
+(setq-default fill-column mdw-text-width) ;I use rather narrow windows
 (setq-default comment-column 40)       ;Set a standard comment column
 (setq-default truncate-partial-width-windows nil
              truncate-lines t)
@@ -320,7 +320,7 @@
 (setq view-read-only t)
 (setq whitespace-style '(trailing empty indentation face lines-tail
                         space-before-tab space-after-tab)
-      whitespace-line-column 77)
+      whitespace-line-column mdw-text-width)
 (setq woman-use-own-frame nil          ;Keep man pages somewhere sensible
       woman-fill-column 72)            ;Right margin position.
 (setq diff-switches "-u"               ;I like reading unified diffs
@@ -533,7 +533,8 @@
 
 (setq frame-background-mode (if mdw-black-background 'dark 'light)
       default-frame-alist
-      `((width . ,(if (>= emacs-major-version 21) 77 78))
+      `((width . ,(+ mdw-column-width
+                    (if (>= emacs-major-version 21) 0 1)))
        (height . 33)
        (vertical-scroll-bars . right)
        (cursor-type . bar)
@@ -546,7 +547,8 @@
        (cursor-color . "red")
        (background-mode . ,frame-background-mode))
       initial-frame-alist
-      `((width . ,(if (>= emacs-major-version 21) 77 78))
+      `((width . ,(+ mdw-column-width
+                    (if (>= emacs-major-version 21) 0 1)))
        (menu-bar-lines . ,(if window-system 1 0)))
       window-system-default-frame-alist
       '((pm (font . "-os2-System VIO-medium-r-normal--*-40-*-*-m-*-cp850")