(let ((functions-variables
(cond
((featurep 'xemacs)
- '((propertize xml-node-children xml-parse-region)))
+ '((propertize xml-parse-region)))
((>= emacs-major-version 21)
'((function-max-args smiley-encode-buffer)))
((boundp 'MULE)
coding-system-get compose-mail file-name-extension
find-coding-systems-region function-max-args get-charset-property
propertize shell-command-to-string smiley-encode-buffer
- xml-node-children xml-parse-region)))
+ xml-parse-region)))
(t
'((function-max-args
propertize smiley-encode-buffer
- xml-node-children xml-parse-region))))))
+ xml-parse-region))))))
(maybe-fbind (car functions-variables))
(maybe-bind (car (cdr functions-variables))))