diff options
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/acdw.el | 13 |
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) |