[gnus git] branch master updated: =1= shr.el (shr-expand-newlines, shr-previous-newline-padding-width): Use plist-get instead of the cl function getf.

       via  f867ed4c70f8282c6f5af89ab986ae26e64ef955 (commit)
      from  527fcf9f178830ceb4584b57362c83ffa92ce104 (commit)


- Log -----------------------------------------------------------------
commit f867ed4c70f8282c6f5af89ab986ae26e64ef955
Author: Katsumi Yamaoka <[email protected]>
Date:   Thu Jan 27 13:20:38 2011 +0000

    shr.el (shr-expand-newlines, shr-previous-newline-padding-width): Use plist-get instead of the cl function getf.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1e7b83b..dd00120 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-01-27  Katsumi Yamaoka  <[email protected]>
+
+	* shr.el (shr-expand-newlines, shr-previous-newline-padding-width):
+	Use plist-get instead of the cl function getf.
+
 2011-01-27  Glenn Morris  <[email protected]>
 
 	* gnus-util.el (float-time): Get rid of compiler warning, again.
diff --git a/lisp/shr.el b/lisp/shr.el
index 4568f45..f3c75cc 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -649,7 +649,8 @@ ones, in case fg and bg are nil."
 			 (concat
 			  (mapconcat
 			   (lambda (overlay)
-			     (let ((string (getf (overlay-properties overlay)
+			     (let ((string (plist-get
+					    (overlay-properties overlay)
 						 'before-string)))
 			       (if (not 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)

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog |    5 +++++
 lisp/shr.el    |    8 +++++---
 2 files changed, 10 insertions(+), 3 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project