X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/438f5dbfdc985624200bcd0a0adca9d002c6519a..f10533854f4c7bb54247a11981191bf37b70cb36:/packages/async/async.el

diff --git a/packages/async/async.el b/packages/async/async.el
index 3798c950f..6619fffee 100644
--- a/packages/async/async.el
+++ b/packages/async/async.el
@@ -54,14 +54,14 @@ matching EXCLUDE-REGEXP (if present).  It is intended to be used
 as follows:
 
     (async-start
-       `(lambda ()
-          (require 'smtpmail)
+       \\=`(lambda ()
+          (require \\='smtpmail)
           (with-temp-buffer
             (insert ,(buffer-substring-no-properties (point-min) (point-max)))
             ;; Pass in the variable environment for smtpmail
-            ,(async-inject-variables \"\\`\\(smtpmail\\|\\(user-\\)?mail\\)-\")
+            ,(async-inject-variables \"\\\\=`\\(smtpmail\\|\\(user-\\)?mail\\)-\")
             (smtpmail-send-it)))
-       'ignore)"
+       \\='ignore)"
   `(setq
     ,@(let (bindings)
         (mapatoms
@@ -264,7 +264,7 @@ will leave *emacs* process buffers hanging around):
     (async-start
      (lambda ()
        (delete-file \"a remote file on a slow link\" nil))
-     'ignore)
+     \\='ignore)
 
 Note: Even when FINISH-FUNC is present, a future is still
 returned except that it yields no value (since the value is