From befd2667396125748d6e9e0e15c5fc38f7846082 Mon Sep 17 00:00:00 2001
From: Michael Heerdegen <michael_heerdegen@web.de>
Date: Fri, 30 Mar 2018 04:25:00 +0200
Subject: [PATCH] WIP: test no-blinking-cursor

---
 lisp/frame.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/lisp/frame.el b/lisp/frame.el
index fbf2f6e773..b07e2800ba 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -2357,10 +2357,12 @@ blink-cursor-mode
 
 This command is effective only on graphical frames.  On text-only
 terminals, cursor blinking is controlled by the terminal."
-  :init-value (not (or noninteractive
-		       no-blinking-cursor
-		       (eq system-type 'ms-dos)
-		       (not (memq window-system '(x w32 ns)))))
+  :init-value (progn
+                (message "window-system: %S" window-system)
+                (not (or noninteractive
+		         no-blinking-cursor
+		         (eq system-type 'ms-dos)
+                         (not (memq window-system '(x w32 ns))))))
   :initialize 'custom-initialize-delay
   :group 'cursor
   :global t
-- 
2.16.2