From d241221046981ec3f43b267fa038bfdee9e8ec3d Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 24 May 2021 17:07:21 -0500
Subject: Remove modeline customization in acdw/reading-mode

---
 lisp/acdw.el | 13 +------------
 1 file changed, 1 insertion(+), 12 deletions(-)

(limited to 'lisp')

diff --git a/lisp/acdw.el b/lisp/acdw.el
index f607695..9ac315c 100644
--- a/lisp/acdw.el
+++ b/lisp/acdw.el
@@ -427,17 +427,7 @@ Prompt only if there are unsaved changes."
   (if acdw/reading-mode
       (progn ;; turn on
         ;; settings
-        (setq-local mode-line-format
-                    '(:eval
-                      (let* ((fmt " Reading %b")
-                             (len (length (format-mode-line fmt))))
-                        (concat
-                         (propertize " "
-                                     'display `((space :align-to (- right
-                                                                    ,len)))
-                                     'face '(:inherit italic))
-                         fmt)))
-                    orig-indicate-empty-lines indicate-empty-lines
+        (setq-local orig-indicate-empty-lines indicate-empty-lines
                     indicate-empty-lines nil
                     orig-indicate-buffer-boundaries indicate-buffer-boundaries
                     indicate-buffer-boundaries nil)
@@ -453,7 +443,6 @@ Prompt only if there are unsaved changes."
     ;; settings
     (setq-local indicate-empty-lines orig-indicate-empty-lines
                 indicate-buffer-boundaries orig-indicate-buffer-boundaries)
-    (kill-local-variable 'mode-line-format)
     ;; enable modes
     (dolist (mode '(display-fill-column-indicator-mode))
       (when (fboundp mode)
-- 
cgit 1.4.1-21-gabe81