Added new X reosurce, cursorBlink.

diff --git a/etc/ChangeLog b/etc/ChangeLog
index e145d92045ea3571498be6988d404c2d4769c1ab..d543d1b75137e31690869b7210f7a2f75cb580ae 100644 (file)
--- a/etc/ChangeLog
+++ b/etc/ChangeLog
@@ -1,3 +1,7 @@
+2005-04-12  Jan Dj\e,Ad\e(Brv  <jan.h.d@swipnet.se>
+
+       * NEWS: Mention cursorBlink resource.
+
 2005-04-12  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
 
        * NEWS: Mention dynamic change of keyboard-coding-system on Mac.

diff --git a/etc/NEWS b/etc/NEWS
index 2773e75395f0f8e6b3eec33cf2ca4d0745d2f238..4696853e27d7e4a08c35e9938f66953f349b6935 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -967,6 +967,9 @@ speed up Emacs with slow networking to the X server.
 If the configure option `--without-xim' was used to turn off use of
 XIM by default, the X resource useXIM can be used to turn it on.
 
++++
+** The X resource cursorBlink can be used to turn off cursor blinking.
+
 +++
 ** `undo-only' does an undo which does not redo any previous undo.
 

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 30691832f50e79ba5e3061077414a9a2c76bdf40..207e1510bdac27019d8525fea288890cf1c50222 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-04-12  Jan Dj\e,Ad\e(Brv  <jan.h.d@swipnet.se>
+
+       * startup.el (command-line): Turn off blinking cursor if
+       cursorBlink in resources is off or false.
+
 2005-04-12  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
 
        * term/mac-win.el (dnd): Require dnd.

diff --git a/lisp/startup.el b/lisp/startup.el
index 98cadbc9d9c91909876f44e66ac8180647601fb0..fddb8e9904b03804a640f4c69f9e1e42c358bad6 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -714,10 +714,19 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
     (and command-line-args
          (setcdr command-line-args args)))
 
-  ;; Under X Windows, this creates the X frame and deletes the terminal frame.
+  ;; Under X Window, this creates the X frame and deletes the terminal frame.
   (when (fboundp 'frame-initialize)
     (frame-initialize))
 
+  ;; Turn off blinking cursor if so specified in X resources.  This is here
+  ;; only because all other settings of no-blinking-cursor is here.
+  (unless (or noninteractive
+             emacs-basic-display
+             (and (memq window-system '(x w32 mac))
+                  (not (member (x-get-resource "cursorBlink" "CursorBlink")
+                               '("off" "false")))))
+    (setq no-blinking-cursor t))
+
   ;; If frame was created with a menu bar, set menu-bar-mode on.
   (unless (or noninteractive
              emacs-basic-display

diff --git a/man/ChangeLog b/man/ChangeLog
index 9e03a55b77b6a504f46bf5c44dedf0eee02ad491..ba9dc904618ebb7f06c8b8bb79158dc1094755eb 100644 (file)
--- a/man/ChangeLog
+++ b/man/ChangeLog
@@ -1,3 +1,7 @@
+2005-04-12  Jan Dj\e,Ad\e(Brv  <jan.h.d@swipnet.se>
+
+       * xresources.texi (Table of Resources): Add cursorBlink.
+
 2005-04-11  Luc Teirlinck  <teirllm@auburn.edu>
 
        * rmail.texi (Rmail Summary Edit): Explain numeric arguments to

diff --git a/man/xresources.texi b/man/xresources.texi
index 7e1beb2442aba88c51d15d2b31bfebcf6fe68c79..b5090afd26044356b24440b6a43ef1708909524f 100644 (file)
--- a/man/xresources.texi
+++ b/man/xresources.texi
@@ -175,6 +175,10 @@ Width in pixels of the external border.
 @item @code{cursorColor} (class @code{Foreground})
 Color name for text cursor (point).
 
+@item @code{cursorBlink} (class @code{CursorBlink})
+Specifies whether to make the cursor blink. The default is @samp{on}.  Use
+@samp{off} or @samp{false} to turn cursor blinking off.
+
 @item @code{font} (class @code{Font})
 Font name for text (or fontset name, @pxref{Fontsets}).