From 14596870e2556fd565f258b87ee3ce5751cbba10 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Thu, 27 Jan 2011 13:20:55 +0000 Subject: [PATCH] shr.el (shr-expand-newlines, shr-previous-newline-padding-width): Use plist-get instead of the cl function getf. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/shr.el | 8 +++++--- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 1e3a1b670c9..5a915bb5aed 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2011-01-27 Katsumi Yamaoka + + * shr.el (shr-expand-newlines, shr-previous-newline-padding-width): + Use plist-get instead of the cl function getf. + 2011-01-27 Glenn Morris * gnus-util.el (float-time): Get rid of compiler warning, again. diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index 4568f45dbb5..f3c75ccd6a3 100644 --- a/lisp/gnus/shr.el +++ b/lisp/gnus/shr.el @@ -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) -- 2.39.2