The following patch fixes the compiler warning under Emacs 23.1.90. diff -c -L /usr/local/opensource/site-lisp/goodies/xml-rpc.el.gz~ -L /usr/local/opensource/site-lisp/goodies/xml-rpc.el.gz /tmp/jka-com10239tAh /tmp/jka-com10239HVt --- /usr/local/opensource/site-lisp/goodies/xml-rpc.el.gz~ +++ /usr/local/opensource/site-lisp/goodies/xml-rpc.el.gz @@ -482,8 +482,7 @@ (while (progn (setq name (format " *XML-RPC-%d*" num) buf (get-buffer name)) (and buf (or (get-buffer-process buf) - (save-excursion (set-buffer buf) - (> (point-max) 1))))) + (with-current-buffer buf (> (point-max) 1))))) (setq num (1+ num))) name)) @@ -535,7 +534,7 @@ (setq url-be-asynchronous t url-current-callback-data (list async-callback-function - (current-buffer)) + (current-buffer)) url-current-callback-func 'xml-rpc-request-callback-handler) (setq url-be-asynchronous nil)) @@ -544,9 +543,8 @@ (when (not url-be-asynchronous) (let ((result (xml-rpc-request-process-buffer (current-buffer)))) - (when (> xml-rpc-debug 1) - (save-excursion - (set-buffer (create-file-buffer "result-data")) + (when (> xml-rpc-debug 1) + (with-current-buffer (create-file-buffer "result-data") (insert result))) result))) (t ; Post emacs20 w3-el @@ -609,8 +607,7 @@ (defun xml-rpc-request-process-buffer (xml-buffer) "Process buffer XML-BUFFER." (unwind-protect - (save-excursion - (set-buffer xml-buffer) + (with-current-buffer xml-buffer (when (fboundp 'url-uncompress) (let ((url-working-buffer xml-buffer)) (url-uncompress))) @@ -626,7 +623,7 @@ ((looking-at "<\\?xml ") (xml-rpc-clean (xml-parse-region (point-min) (point-max)))) - + ;; No HTTP status returned ((not status) (let ((errstart @@ -654,7 +651,7 @@ (when (< xml-rpc-debug 1) (kill-buffer xml-buffer)) (funcall callback-fun (xml-rpc-xml-to-response xml-response)))) - + (defun xml-rpc-method-call-async (async-callback-func server-url method &rest params)
Diff finished. Thu Dec 24 04:09:15 2009 _______________________________________________ Emacsweblogs mailing list Emacsweblogs@nongnu.org http://lists.nongnu.org/mailman/listinfo/emacsweblogs