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
e8e2a88c
Commit
e8e2a88c
authored
May 24, 2002
by
Colin Walters
Browse files
(occur-engine): Include all text properties except mouse-face on the
newline at the end of occurences.
parent
b2346b2c
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
4 deletions
+5
-4
lisp/replace.el
lisp/replace.el
+5
-4
No files found.
lisp/replace.el
View file @
e8e2a88c
...
...
@@ -824,10 +824,11 @@ See also `multi-occur'."
(
unless
(
=
nlines
0
)
(
insert
"-------\n"
))
(
add-text-properties
beg
(
1-
end
)
`
(
occur-target
,
marker
mouse-face
highlight
help-echo
"mouse-2: go to this occurrence"
)))))
beg
end
`
(
occur-target
,
marker
help-echo
"mouse-2: go to this occurrence"
))
;; We don't put `mouse-face' on the newline,
;; because that loses.
(
add-text-properties
beg
(
1-
end
)
'
(
mouse-face
highlight
)))))
(
goto-char
endpt
))
(
if
endpt
(
progn
...
...
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