From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 14 Jan 2021 22:37:57 +0000 (-0500)
Subject: * lisp/startup.el (command-line): Remove redundant set of no-blinking-cursor
X-Git-Tag: emacs-28.0.90~4268
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=65d22bf188438c6e16bd42056256f3d7e06c2e95;p=emacs.git

* lisp/startup.el (command-line): Remove redundant set of no-blinking-cursor

This is redundant because this was set based on "X" resources under
(memq window-system '(x w32 ns)) but the exact same resources and
values are tested in `x-apply-session-resources` which is also used for
those 3 window systems.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 932b3ffcd42..552802a38d7 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1297,15 +1297,6 @@ please check its value")
     (unless noninteractive
       (tool-bar-setup)))
 
-  ;; Turn off blinking cursor if so specified in X resources.  This is here
-  ;; only because all other settings of no-blinking-cursor are here.
-  (unless (or noninteractive
-	      emacs-basic-display
-	      (and (memq window-system '(x w32 ns))
-		   (not (member (x-get-resource "cursorBlink" "CursorBlink")
-				'("no" "off" "false" "0")))))
-    (setq no-blinking-cursor t))
-
   (unless noninteractive
     (startup--setup-quote-display)
     (setq internal--text-quoting-flag t))