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> 2011-01-27 Glenn Morris <rgm@gnu.org>
* gnus-util.el (float-time): Get rid of compiler warning, again. * gnus-util.el (float-time): Get rid of compiler warning, again.
......
...@@ -649,8 +649,9 @@ ones, in case fg and bg are nil." ...@@ -649,8 +649,9 @@ ones, in case fg and bg are nil."
(concat (concat
(mapconcat (mapconcat
(lambda (overlay) (lambda (overlay)
(let ((string (getf (overlay-properties overlay) (let ((string (plist-get
'before-string))) (overlay-properties overlay)
'before-string)))
(if (not string) (if (not string)
"" ""
(overlay-put overlay 'before-string "") (overlay-put overlay 'before-string "")
...@@ -669,7 +670,8 @@ ones, in case fg and bg are nil." ...@@ -669,7 +670,8 @@ ones, in case fg and bg are nil."
(dolist (overlay overlays) (dolist (overlay overlays)
(setq previous-width (setq previous-width
(+ previous-width (+ previous-width
(length (getf (overlay-properties overlay) 'before-string))))) (length (plist-get (overlay-properties overlay)
'before-string)))))
(+ width previous-width)))) (+ width previous-width))))
(defun shr-put-color-1 (start end type color) (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