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
7f13406b
Commit
7f13406b
authored
Jun 27, 2013
by
Lars Magne Ingebrigtsen
Browse files
* net/shr.el (add-face-text-property): Removed compat definition.
parent
d29bf51c
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
4 additions
and
21 deletions
+4
-21
lisp/ChangeLog
lisp/ChangeLog
+4
-0
lisp/net/shr.el
lisp/net/shr.el
+0
-21
No files found.
lisp/ChangeLog
View file @
7f13406b
2013-06-27 Lars Magne Ingebrigtsen <larsi@gnus.org>
* net/shr.el (add-face-text-property): Removed compat definition.
2013-06-27 Stephen Berman <stephen.berman@gmx.net>
* obsolete/otodo-mode.el: Add obsolescence info to file header.
...
...
lisp/net/shr.el
View file @
7f13406b
...
...
@@ -1606,27 +1606,6 @@ ones, in case fg and bg are nil."
(
shr-count
(
cdr
row
)
'th
))))))
max
))
;; Emacs less than 24.3
(
unless
(
fboundp
'add-face-text-property
)
(
defun
add-face-text-property
(
beg
end
face
&optional
appendp
object
)
"Combine FACE BEG and END."
(
let
((
b
beg
))
(
while
(
<
b
end
)
(
let
((
oldval
(
get-text-property
b
'face
)))
(
put-text-property
b
(
setq
b
(
next-single-property-change
b
'face
nil
end
))
'face
(
cond
((
null
oldval
)
face
)
((
and
(
consp
oldval
)
(
not
(
keywordp
(
car
oldval
))))
(
if
appendp
(
nconc
oldval
(
list
face
))
(
cons
face
oldval
)))
(
t
(
if
appendp
(
list
oldval
face
)
(
list
face
oldval
))))))))))
(
provide
'shr
)
;; Local Variables:
...
...
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