# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1083591564 0
# Node ID 33225d8d84abf9eb3b3127d5f761a9d588987ee1
# Parent  57accbb0897df4215be39c1d59e7ee48943aa0d3
(cua--update-indications): Fix last change.

diff -r 57accbb0897d -r 33225d8d84ab lisp/emulation/cua-base.el
--- a/lisp/emulation/cua-base.el	Mon May 03 13:39:08 2004 +0000
+++ b/lisp/emulation/cua-base.el	Mon May 03 13:39:24 2004 +0000
@@ -1039,7 +1039,7 @@
 	(set-cursor-color color))
     (if (and type
 	     (symbolp type)
-	     (not (eq type (frame-parameter nil 'cursor-type))))
+	     (not (eq type default-cursor-type)))
 	(setq default-cursor-type type))))