branch: externals/hyperbole
commit 40749582074305a48725da4e1ae840750d2b5826
Author: Bob Weiner <r...@gnu.org>
Commit: Bob Weiner <r...@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))))
