[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master c6ea522 2/5: Define and use new alias display-blink
From: |
Alexander Gramiak |
Subject: |
[Emacs-diffs] master c6ea522 2/5: Define and use new alias display-blink-cursor-p |
Date: |
Sun, 7 Apr 2019 00:44:29 -0400 (EDT) |
branch: master
commit c6ea522de62d6064d5be9dd1ddf69dceb6506780
Author: Alexander Gramiak <address@hidden>
Commit: Alexander Gramiak <address@hidden>
Define and use new alias display-blink-cursor-p
display-graphic-p is not used in this case because it may be possible
in the future for terminals to allow control over cursor blinking. For
details, see bug#35058.
* lisp/frame.el (blink-cursor-mode): Use display-blink-cursor-p.
---
lisp/frame.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/frame.el b/lisp/frame.el
index acf6a46..cc8ca49 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -1905,6 +1905,7 @@ frame's display)."
(fboundp 'image-mask-p)
(fboundp 'image-size)))
+(defalias 'display-blink-cursor-p 'display-graphic-p)
(defalias 'display-multi-frame-p 'display-graphic-p)
(defalias 'display-multi-font-p 'display-graphic-p)
@@ -2545,7 +2546,7 @@ terminals, cursor blinking is controlled by the terminal."
:init-value (not (or noninteractive
no-blinking-cursor
(eq system-type 'ms-dos)
- (not (memq window-system '(x w32 ns)))))
+ (not (display-blink-cursor-p))))
:initialize 'custom-initialize-delay
:group 'cursor
:global t