]> git.eshelyaron.com Git - emacs.git/commitdiff
* lisp/startup.el (command-line): Remove redundant set of no-blinking-cursor
authorStefan Monnier <monnier@iro.umontreal.ca>
Thu, 14 Jan 2021 22:37:57 +0000 (17:37 -0500)
committerStefan Monnier <monnier@iro.umontreal.ca>
Thu, 14 Jan 2021 22:37:57 +0000 (17:37 -0500)
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.

lisp/startup.el

index 932b3ffcd422e855c53e61a748a2ba5b099b6ac1..552802a38d75dc9398bb47a1bcdf66073af394b4 100644 (file)
@@ -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))