[SCM] emacs-jabber branch, roster-optimisation, updated. 356d8924a0f51daaa2740f36b751db250355eb7d

[Magnus H. <leg...@us...>]

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 "emacs-jabber".

The branch, roster-optimisation has been updated
       via  356d8924a0f51daaa2740f36b751db250355eb7d (commit)
      from  74202d4c8d3bf2770a30a7fad54ff975fa28e49c (commit)

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

- Log -----------------------------------------------------------------
commit 356d8924a0f51daaa2740f36b751db250355eb7d
Author: Magnus Henoch <mag...@gm...>
Date:   Wed Apr 22 11:18:58 2015 +0100

    Only do a complete redraw if a new roster group is added

diff --git a/jabber-roster.el b/jabber-roster.el
index ad70017..ff88571 100644
--- a/jabber-roster.el
+++ b/jabber-roster.el
@@ -774,11 +774,13 @@ three being lists of JID symbols."
 	       (old-groups (mapcar #'caar existing-ewoc-data))
 	       (new-groups (or (get insert-this 'groups)
 			       (list jabber-roster-default-group-name))))
-	  ;; If a contact is added to a group, we currently need to
-	  ;; redraw the entire roster buffer.
+	  ;; If a contact is added to a group that's currently not
+	  ;; displayed, we currently need to redraw the entire roster
+	  ;; buffer.
 	  (setq need-redraw
 		(or need-redraw
-		    (not (null (set-difference new-groups old-groups :test #'string=)))))
+		    (some (lambda (group) (null (gethash group group-ewoc-node-hash)))
+			  new-groups)))
 	  (when jabber-roster-debug
 	    (message (concat "insert jid: " jid)))
 	  (dolist (group new-groups)

-----------------------------------------------------------------------

Summary of changes:
 jabber-roster.el |    8 +++++---
 1 files changed, 5 insertions(+), 3 deletions(-)


hooks/post-receive
-- 
emacs-jabber