emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 65d22bf: * lisp/startup.el (command-line): Remove redundant set o


From: Stefan Monnier
Subject: master 65d22bf: * lisp/startup.el (command-line): Remove redundant set of no-blinking-cursor
Date: Thu, 14 Jan 2021 17:38:42 -0500 (EST)

branch: master
commit 65d22bf188438c6e16bd42056256f3d7e06c2e95
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * 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.
---
 lisp/startup.el | 9 ---------
 1 file changed, 9 deletions(-)

diff --git a/lisp/startup.el b/lisp/startup.el
index 932b3ff..552802a 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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]