Commit 14596870 authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

shr.el (shr-expand-newlines, shr-previous-newline-padding-width): Use...

shr.el (shr-expand-newlines, shr-previous-newline-padding-width): Use plist-get instead of the cl function getf.
parent 3f39b526
2011-01-27 Katsumi Yamaoka <yamaoka@jpl.org>
* shr.el (shr-expand-newlines, shr-previous-newline-padding-width):
Use plist-get instead of the cl function getf.
2011-01-27 Glenn Morris <rgm@gnu.org>
* gnus-util.el (float-time): Get rid of compiler warning, again.
......
......@@ -649,8 +649,9 @@ ones, in case fg and bg are nil."
(concat
(mapconcat
(lambda (overlay)
(let ((string (getf (overlay-properties overlay)
'before-string)))
(let ((string (plist-get
(overlay-properties overlay)
'before-string)))
(if (not string)
""
(overlay-put overlay 'before-string "")
......@@ -669,7 +670,8 @@ ones, in case fg and bg are nil."
(dolist (overlay overlays)
(setq previous-width
(+ previous-width
(length (getf (overlay-properties overlay) 'before-string)))))
(length (plist-get (overlay-properties overlay)
'before-string)))))
(+ width previous-width))))
(defun shr-put-color-1 (start end type color)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment