summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
authorCase Duckworth2021-05-24 17:07:21 -0500
committerCase Duckworth2021-05-24 17:07:21 -0500
commitd241221046981ec3f43b267fa038bfdee9e8ec3d (patch)
tree08c7cfcac90142f24b68021e926b9f6a45615f28 /lisp
parentUnsubscribe from a few feeds (diff)
downloademacs-d241221046981ec3f43b267fa038bfdee9e8ec3d.tar.gz
emacs-d241221046981ec3f43b267fa038bfdee9e8ec3d.zip
Remove modeline customization in acdw/reading-mode
Diffstat (limited to 'lisp')
-rw-r--r--lisp/acdw.el13
1 files changed, 1 insertions, 12 deletions
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."
427 (if acdw/reading-mode 427 (if acdw/reading-mode
428 (progn ;; turn on 428 (progn ;; turn on
429 ;; settings 429 ;; settings
430 (setq-local mode-line-format 430 (setq-local orig-indicate-empty-lines indicate-empty-lines
431 '(:eval
432 (let* ((fmt " Reading %b")
433 (len (length (format-mode-line fmt))))
434 (concat
435 (propertize " "
436 'display `((space :align-to (- right
437 ,len)))
438 'face '(:inherit italic))
439 fmt)))
440 orig-indicate-empty-lines indicate-empty-lines
441 indicate-empty-lines nil 431 indicate-empty-lines nil
442 orig-indicate-buffer-boundaries indicate-buffer-boundaries 432 orig-indicate-buffer-boundaries indicate-buffer-boundaries
443 indicate-buffer-boundaries nil) 433 indicate-buffer-boundaries nil)
@@ -453,7 +443,6 @@ Prompt only if there are unsaved changes."
453 ;; settings 443 ;; settings
454 (setq-local indicate-empty-lines orig-indicate-empty-lines 444 (setq-local indicate-empty-lines orig-indicate-empty-lines
455 indicate-buffer-boundaries orig-indicate-buffer-boundaries) 445 indicate-buffer-boundaries orig-indicate-buffer-boundaries)
456 (kill-local-variable 'mode-line-format)
457 ;; enable modes 446 ;; enable modes
458 (dolist (mode '(display-fill-column-indicator-mode)) 447 (dolist (mode '(display-fill-column-indicator-mode))
459 (when (fboundp mode) 448 (when (fboundp mode)