2013-06-24 17 views
3

有人請給我一個調試的手http-post-simple.el用於最新版本的Emacs Trunk:http://www.emacswiki.org/emacs/http-post-simple.el This是使用Org-Mode Toodledo Sync的必需文件。當打開Emacs的,該錯誤信息是:http-post-simple.el - (lambda(field)...)用''而不是用#'引用

(lambda (field) ...) quoted with ' rather than with #' 

http-post-simple.el在錯誤是來自摘錄如下:

(defun http-post-encode-fields (fields &optional charset) 
    "Encode FIELDS using `http-post-encode-string', where 
FIELDS is an alist of \(
    \(field-name-as-symbol . \"field value as string\"\) | 
    \(field-name \"value1\" \"value2\" ...\) 
    \)* 

CHARSET defaults to 'utf-8" 
    (let ((charset (or charset 'utf-8))) 
    (mapconcat #'identity 
      (mapcar '(lambda (field) 
      (concat (symbol-name (car field)) 
       "=" 
       (http-post-encode-string (cdr field) charset))) 
       (mapcan '(lambda (field) 
       (if (atom (cdr field)) (list field) 
        ;; unpack the list 
        (mapcar '(lambda (value) 
          `(,(car field) . ,value)) 
         (cdr field)))) 
        fields)) 
      "&"))) 


(defun http-post-encode-multipart-data (fields files charset) 
    "Return FIELDS and FILES encoded for use as the data for a multipart HTTP POST request" 
    (http-post-join-lines 
    (mapcar '(lambda (field) 
     (http-post-bound-field 
      (format "Content-Disposition: form-data; name=%S" (symbol-name (car field))) 
      "" 
      (cdr field))) 
     fields) 
    (mapcan '(lambda (file) 
     (destructuring-bind (fieldname filename mime-type data) file 
      (http-post-bound-field 
     (format "Content-Disposition: form-data; name=%S; filename=%S" fieldname filename) 
     (format "Content-type: %s" (http-post-content-type mime-type charset)) 
     "" 
     data))) 
     files) 
    (format "--%s--" (http-post-multipart-boundary)))) 

回答