[elpa] externals/valign 035c8e2 137/198: * valign.el (valign-mode): Alert user that valign-mode has no effect under non-graphical display.

[Stefan Monnier]

branch: externals/valign
commit 035c8e20edaabe56064527d85cd506f6ffb58c29
Author: Yuan Fu <casouri@gmail.com>
Commit: Yuan Fu <casouri@gmail.com>

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