Remove modeline customization in acdw/reading-mode

1 files changed, 1 insertions, 12 deletions

@@ -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)