# HG changeset patch
# User Adrian Robert <Adrian.B.Robert@gmail.com>
# Date 1219285905 0
# Node ID 2b25a461fcb0f18e12b53af7e0e31821dca70350
# Parent  fdc98979ca2b0803682fe97b1f34916a267ee287
* term/ns-win.el (ns-cursor-blink-rate, ns-cursor-blink-mode): Remove.

diff -r fdc98979ca2b -r 2b25a461fcb0 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Aug 20 23:06:30 2008 +0000
+++ b/lisp/ChangeLog	Thu Aug 21 02:31:45 2008 +0000
@@ -1,3 +1,8 @@
+2008-08-20  David Reitter  <david.reitter@gmail.com>
+
+	* term/ns-win.el (ns-cursor-blink-rate, ns-cursor-blink-mode): Remove.
+	Patch applied by Adrian Robert.
+
 2008-08-20  Kevin Ryde  <user42@zip.com.au>
 
 	* textmodes/nroff-mode.el (nroff-mode): Avoid auto-filling on
diff -r fdc98979ca2b -r 2b25a461fcb0 lisp/term/ns-win.el
--- a/lisp/term/ns-win.el	Wed Aug 20 23:06:30 2008 +0000
+++ b/lisp/term/ns-win.el	Thu Aug 21 02:31:45 2008 +0000
@@ -59,7 +59,6 @@
 ;; nsterm.m
 (defvar ns-version-string)
 (defvar ns-expand-space)
-(defvar ns-cursor-blink-rate)
 (defvar ns-alternate-modifier)
 
 ;;;; Command line argument handling.
@@ -995,10 +994,6 @@
   (ns-set-resource nil "CommandModifier" (symbol-name ns-command-modifier))
   (ns-set-resource nil "ControlModifier" (symbol-name ns-control-modifier))
   (ns-set-resource nil "FunctionModifier" (symbol-name ns-function-modifier))
-  (ns-set-resource nil "CursorBlinkRate"
-                   (if ns-cursor-blink-rate
-                       (number-to-string ns-cursor-blink-rate)
-                     "NO"))
   (ns-set-resource nil "ExpandSpace"
                    (if ns-expand-space
                        (number-to-string ns-expand-space)
@@ -1228,28 +1223,6 @@
 				   0 1)) ))
   (if (not tool-bar-mode) (tool-bar-mode t)))
 
-(defvar ns-cursor-blink-mode) 		; nsterm.m
-
-;; Redefine from frame.el.
-(define-minor-mode blink-cursor-mode
-  "Toggle blinking cursor mode.
-With a numeric argument, turn blinking cursor mode on if ARG is positive,
-otherwise turn it off.  When blinking cursor mode is enabled, the
-cursor of the selected window blinks.
-
-Note that this command is effective only when Emacs
-displays through a window system, because then Emacs does its own
-cursor display.  On a text-only terminal, this is not implemented."
-  :init-value (not (or noninteractive
-		       no-blinking-cursor
-		       (eq ns-cursor-blink-rate nil)))
-  :initialize 'custom-initialize-safe-default
-  :group 'cursor
-  :global t
-  (if blink-cursor-mode
-      (setq ns-cursor-blink-mode t)
-      (setq ns-cursor-blink-mode nil)))
-
 
 
 ;;;; Dialog-related functions.