diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-07-03 19:13:55 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-07-03 19:13:55 +0000 |
| commit | cae2c28eeed2f90efc3fdd125b6e1d7a830b4ce1 (patch) | |
| tree | 70a609d201def84abb5bbf58021ef32e78e36ddd /lisp/frame.el | |
| parent | e4f98ad3c65b83a8d49ec2f9c2657758fcb250a6 (diff) | |
| download | emacs-cae2c28eeed2f90efc3fdd125b6e1d7a830b4ce1.tar.gz | |
(blink-cursor-mode): Don't hide cursor initially.
Diffstat (limited to 'lisp/frame.el')
| -rw-r--r-- | lisp/frame.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/frame.el b/lisp/frame.el index 03b9bc6e65e..a33d8c41aaf 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -1064,7 +1064,7 @@ window blinks." (if on-p (progn ;; Hide the cursor. - (internal-show-cursor nil nil) + ;(internal-show-cursor nil nil) (setq blink-cursor-idle-timer (run-with-idle-timer blink-cursor-delay blink-cursor-delay @@ -1072,12 +1072,14 @@ window blinks." (setq blink-cursor-mode t)) (internal-show-cursor nil t)))) -(defcustom blink-cursor (unless (eq system-type 'ms-dos) - window-system) +;; Note that this is really initialized from startup.el before +;; the init-file is read. + +(defcustom blink-cursor nil "*Non-nil means blinking cursor mode is active." + :group 'cursor :tag "Blinking cursor" :type 'boolean - :group 'cursor :set #'(lambda (symbol value) (set-default symbol value) (blink-cursor-mode (or value 0)))) |