branch: externals/valign
commit 035c8e20edaabe56064527d85cd506f6ffb58c29
Author: Yuan Fu <[email protected]>
Commit: Yuan Fu <[email protected]>
* valign.el (valign-mode): Alert user that valign-mode has no effect under
non-graphical display.
---
valign.el | 39 +++++++++++++++++++++------------------
1 file changed, 21 insertions(+), 18 deletions(-)
diff --git a/valign.el b/valign.el
index 534cf14..2882c88 100644
--- a/valign.el
+++ b/valign.el
@@ -655,24 +655,27 @@ FLAG is the same as in ‘org-flag-region’."
:require 'valign
:group 'valign
:lighter valign-lighter
- (if (and valign-mode window-system)
- (progn
- (add-hook 'jit-lock-functions #'valign-region 98 t)
- (dolist (fn '(org-table--align-field
- markdown-table-align))
- (advice-add fn :after #'valign--tab-advice))
- (dolist (fn '(text-scale-increase
- text-scale-decrease
- org-agenda-finalize-hook
- org-toggle-inline-images))
- (advice-add fn :after #'valign--buffer-advice))
- (dolist (fn '(org-flag-region outline-flag-region))
- (advice-add fn :after #'valign--flag-region-advice))
- (if valign-fancy-bar (cursor-sensor-mode))
- (jit-lock-refontify))
- (remove-hook 'jit-lock-functions #'valign-region t)
- (valign-reset-buffer)
- (cursor-sensor-mode -1)))
+ (if (not (display-graphic-p))
+ (when valign-mode
+ (message "Valign mode has no effect in non-graphical display"))
+ (if valign-mode
+ (progn
+ (add-hook 'jit-lock-functions #'valign-region 98 t)
+ (dolist (fn '(org-table--align-field
+ markdown-table-align))
+ (advice-add fn :after #'valign--tab-advice))
+ (dolist (fn '(text-scale-increase
+ text-scale-decrease
+ org-agenda-finalize-hook
+ org-toggle-inline-images))
+ (advice-add fn :after #'valign--buffer-advice))
+ (dolist (fn '(org-flag-region outline-flag-region))
+ (advice-add fn :after #'valign--flag-region-advice))
+ (if valign-fancy-bar (cursor-sensor-mode))
+ (jit-lock-refontify))
+ (remove-hook 'jit-lock-functions #'valign-region t)
+ (valign-reset-buffer)
+ (cursor-sensor-mode -1))))
(provide 'valign)
