* frame.el (blink-cursor-mode, blink-cursor-end): Use

	internal-show-cursor with new interface.
	(blink-cursor-timer-function): New.
	(blink-cursor-start): Use blink-cursor-timer-function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 48727b52341a5233962db720467553a599a55131..1ac9809bda5b633ec18dcc8496cb26d8d45cb5a4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+1999-11-03  Gerd Moellmann  <gerd@gnu.org>
+
+       * frame.el (blink-cursor-mode, blink-cursor-end): Use
+       internal-show-cursor with new interface.
+       (blink-cursor-timer-function): New.
+       (blink-cursor-start): Use blink-cursor-timer-function.
+
 1999-11-03  Edward M. Reingold  <reingold@emr.cs.uiuc.edu>
 
        * calendar.el (redraw-calendar): Move to nearest date before

diff --git a/lisp/frame.el b/lisp/frame.el
index 5d06e5473f39522d6b4968e7bc7c319a4feed202..8970fe25ecee236843fac6477bbda3d419d5ddb4 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -838,7 +838,7 @@ window blinks."
     (if on-p
        (progn
          ;; Hide the cursor.
-         (internal-show-cursor 0)
+         (internal-show-cursor nil nil)
          (setq blink-cursor-idle-timer
                (run-with-idle-timer blink-cursor-delay
                                     blink-cursor-delay
@@ -863,7 +863,11 @@ command starts, by installing a pre-command hook."
     (add-hook 'pre-command-hook 'blink-cursor-end)
     (setq blink-cursor-timer
          (run-with-timer blink-cursor-interval blink-cursor-interval
-                         'internal-show-cursor))))
+                         'blink-cursor-timer-function))))
+
+(defun blink-cursor-timer-function ()
+  "Timer function of timer `blink-cursor-timer'."
+  (internal-show-cursor nil (not (internal-show-cursor-p))))
 
 (defun blink-cursor-end ()
   "Stop cursor blinking.
@@ -871,7 +875,7 @@ This is installed as a pre-command hook by `blink-cursor-start'.
 When run, it cancels the timer `blink-cursor-timer' and removes 
 itself as a pre-command hook."
   (remove-hook 'pre-command-hook 'blink-cursor-end)
-  (internal-show-cursor 0)
+  (internal-show-cursor nil t)
   (cancel-timer blink-cursor-timer)
   (setq blink-cursor-timer nil))