Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
90c6f4b6
Commit
90c6f4b6
authored
Nov 01, 1999
by
Gerd Moellmann
Browse files
(blink-cursor-mode): Call internal-show-cursor instead
of show-cursor. (blink-cursor-start, blink-cursor-end): Ditto.
parent
d20679eb
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
3 deletions
+3
-3
lisp/frame.el
lisp/frame.el
+3
-3
No files found.
lisp/frame.el
View file @
90c6f4b6
...
...
@@ -838,7 +838,7 @@ window blinks."
(
if
on-p
(
progn
;; Hide the cursor.
(
show-cursor
0
)
(
internal-
show-cursor
0
)
(
setq
blink-cursor-idle-timer
(
run-with-idle-timer
blink-cursor-delay
blink-cursor-delay
...
...
@@ -863,14 +863,14 @@ Arranges to cancel that timer by installing a pre command hook."
(
add-hook
'pre-command-hook
'blink-cursor-end
)
(
setq
blink-cursor-timer
(
run-with-timer
blink-cursor-interval
blink-cursor-interval
'show-cursor
))))
'
internal-
show-cursor
))))
(
defun
blink-cursor-end
()
"Stop cursor blinking.
Installed as a pre-command hook by blink-cursor-start. Cancels
the timer blink-cursor-timer and removes itself from the hook."
(
remove-hook
'pre-command-hook
'blink-cursor-end
)
(
show-cursor
0
)
(
internal-
show-cursor
0
)
(
cancel-timer
blink-cursor-timer
)
(
setq
blink-cursor-timer
nil
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment