# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 941467291 0
# Node ID 701bf1148b2c42ee37e1f6bf16e5367c36ca1c6a
# Parent  32e16b70ae152449040420f9acf074ea4772aae3
(blink-cursor-mode): Call internal-show-cursor instead
of show-cursor.
(blink-cursor-start, blink-cursor-end): Ditto.

diff -r 32e16b70ae15 -r 701bf1148b2c lisp/frame.el
--- a/lisp/frame.el	Mon Nov 01 14:21:42 1999 +0000
+++ b/lisp/frame.el	Mon Nov 01 14:41:31 1999 +0000
@@ -838,7 +838,7 @@
     (if on-p
 	(progn
 	  ;; Hide the cursor.
-	  (show-cursor 0)
+	  (internal-show-cursor 0)
 	  (setq blink-cursor-idle-timer
 		(run-with-idle-timer blink-cursor-delay
 				     blink-cursor-delay
@@ -863,14 +863,14 @@
     (add-hook 'pre-command-hook 'blink-cursor-end)
     (setq blink-cursor-timer
 	  (run-with-timer blink-cursor-interval blink-cursor-interval
-			  'show-cursor))))
+			  'internal-show-cursor))))
 
 (defun blink-cursor-end ()
   "Stop cursor blinking.
 Installed as a pre-command hook by blink-cursor-start.  Cancels
 the timer blink-cursor-timer and removes itself from the hook."
   (remove-hook 'pre-command-hook 'blink-cursor-end)
-  (show-cursor 0)
+  (internal-show-cursor 0)
   (cancel-timer blink-cursor-timer)
   (setq blink-cursor-timer nil))