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
57e46f94
Commit
57e46f94
authored
Feb 01, 2002
by
Richard M. Stallman
Browse files
(hl-line-highlight, hl-line-unhighlight):
Definitions moved down after hl-line-mode var's definition.
parent
f87d9934
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
18 additions
and
18 deletions
+18
-18
lisp/hl-line.el
lisp/hl-line.el
+18
-18
No files found.
lisp/hl-line.el
View file @
57e46f94
...
...
@@ -63,24 +63,6 @@
(
defvar
hl-line-overlay
nil
)
(
defun
hl-line-highlight
()
"Active the Hl-Line overlay on the current line in the current window.
\(Unless it's a minibuffer window.)"
(
when
hl-line-mode
; Could be made buffer-local.
(
unless
(
window-minibuffer-p
(
selected-window
))
; silly in minibuffer
(
unless
hl-line-overlay
(
setq
hl-line-overlay
(
make-overlay
1
1
))
; to be moved
(
overlay-put
hl-line-overlay
'face
hl-line-face
))
(
overlay-put
hl-line-overlay
'window
(
selected-window
))
(
move-overlay
hl-line-overlay
(
line-beginning-position
)
(
1+
(
line-end-position
))
(
current-buffer
)))))
(
defun
hl-line-unhighlight
()
"Deactivate the Hl-Line overlay on the current line in the current window."
(
if
hl-line-overlay
(
delete-overlay
hl-line-overlay
)))
;;;###autoload
(
define-minor-mode
hl-line-mode
"Minor mode to highlight the line about point in the current window.
...
...
@@ -101,6 +83,24 @@ Uses functions `hl-line-unhighlight' and `hl-line-highlight' on
global-hl-line-mode
hl-line-mode
hl-line-mode
:group
'hl-line
)
(
defun
hl-line-highlight
()
"Active the Hl-Line overlay on the current line in the current window.
\(Unless it's a minibuffer window.)"
(
when
hl-line-mode
; Could be made buffer-local.
(
unless
(
window-minibuffer-p
(
selected-window
))
; silly in minibuffer
(
unless
hl-line-overlay
(
setq
hl-line-overlay
(
make-overlay
1
1
))
; to be moved
(
overlay-put
hl-line-overlay
'face
hl-line-face
))
(
overlay-put
hl-line-overlay
'window
(
selected-window
))
(
move-overlay
hl-line-overlay
(
line-beginning-position
)
(
1+
(
line-end-position
))
(
current-buffer
)))))
(
defun
hl-line-unhighlight
()
"Deactivate the Hl-Line overlay on the current line in the current window."
(
if
hl-line-overlay
(
delete-overlay
hl-line-overlay
)))
(
provide
'hl-line
)
;;; hl-line.el ends here
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