From: Amin Bandali <bandali@gnu.org>
Date: Mon, 18 Nov 2019 16:21:46 +0000 (-0500)
Subject: emacs: experiment with a fill-column of 47 for neat and short lines
X-Git-Url: https://git.shemshak.org/gitweb.cgi/~bandali/configs/commitdiff_plain/2bd7f890edc38884131c196e2c0652bb33912d1b?ds=inline;hp=f099abcb0cdc6726bcea8970d76b80758afbbdc7

emacs: experiment with a fill-column of 47 for neat and short lines
---

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 5e3ce80..4f286c0 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -281,6 +281,9 @@ For disabling the behaviour for certain buffers and/or modes."
 
 ;;;; C-level customizations
 
+(defvar b/fill-column 47
+  "My custom `fill-column'.")
+
 (setq
  ;; minibuffer
  enable-recursive-minibuffers t
@@ -301,7 +304,9 @@ For disabling the behaviour for certain buffers and/or modes."
  scroll-conservatively 10
  scroll-preserve-screen-position 1
  ;; focus follows mouse
- mouse-autoselect-window t)
+ mouse-autoselect-window t
+ ;; custom fill-column
+ fill-column b/fill-column)
 
 (setq-default
  ;; always use space for indentation
@@ -2552,8 +2557,8 @@ https://csclub.uwaterloo.ca/~abandali")
   :hook (;; (message-setup . mml-secure-message-sign-pgpmime)
          (message-mode . flyspell-mode)
          (message-mode . (lambda ()
-                           ;; (setq fill-column 65
-                           ;;       message-fill-column 65)
+                           (setq-local fill-column b/fill-column
+                                       message-fill-column b/fill-column)
                            (make-local-variable 'company-idle-delay)
                            (setq company-idle-delay 0.2))))
   ;; :custom-face