# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 951989653 0
# Node ID e27fde0193efabc8501ee16c528dfb21f78592b8
# Parent  c11a0bbb5c885bbf11bc2b0a6741b4ba36da73d7
(blink-cursor-mode): Switch cursor on when turning
the mode off.

diff -r c11a0bbb5c88 -r e27fde0193ef lisp/frame.el
--- a/lisp/frame.el	Thu Mar 02 09:32:23 2000 +0000
+++ b/lisp/frame.el	Thu Mar 02 09:34:13 2000 +0000
@@ -1046,7 +1046,8 @@
 		(run-with-idle-timer blink-cursor-delay
 				     blink-cursor-delay
 				     'blink-cursor-start))
-	  (setq blink-cursor-mode t)))))
+	  (setq blink-cursor-mode t))
+      (internal-show-cursor nil t))))
 
 (defcustom blink-cursor (not (eq system-type 'ms-dos))
   "*Non-nil means blinking cursor mode is active."