[elpa] externals/hyperbole 4074958 2/4: hyrolo.el - Remove google-contacts byte-compile warnings

[ELPA Syncer]

branch: externals/hyperbole
commit 40749582074305a48725da4e1ae840750d2b5826
Author: Bob Weiner <rsw@gnu.org>
Commit: Bob Weiner <rsw@gnu.org>

    hyrolo.el - Remove google-contacts byte-compile warnings
---
 ChangeLog | 3 +++
 hyrolo.el | 4 +++-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 0518c2b..1e4d460 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -9,6 +9,9 @@
     Conditionalize but don't skip so no issue arises when looking
     at all test results.
 
+* hyrolo.el: Add (require 'xml) and local binding of child used
+    in google-contacts support.
+
 * kotl/kexport.el (kexport:html-replacement-alist): Change \0
     back to \\& to try to fix link replacements again.
 
diff --git a/hyrolo.el b/hyrolo.el
index 98b3cf6..5f490cb 100644
--- a/hyrolo.el
+++ b/hyrolo.el
@@ -27,6 +27,7 @@
 (require 'custom) ;; For defface.
 (require 'hversion)
 (require 'hmail)
+(require 'xml)
 
 ;; Quiet byte compiler warnings for these free variables.
 (eval-when-compile
@@ -908,7 +909,8 @@ Return number of matching entries found."
       (insert "No result.")
     (print contacts (get-buffer-create "*contacts-data*"))
     (dolist (contact contacts)
-      (let* ((name-value (nth 0 (xml-get-children contact 'gd:name)))
+      (let* (child
+            (name-value (nth 0 (xml-get-children contact 'gd:name)))
              (fullname (xml-node-child-string (nth 0 (xml-get-children 
name-value 'gd:fullName))))
              (givenname (xml-node-child-string (nth 0 (xml-get-children 
name-value 'gd:givenName))))
              (familyname (xml-node-child-string (nth 0 (xml-get-children 
name-value 'gd:familyName))))