emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] 29/119: update examples


From: Eric Schulte
Subject: [elpa] 29/119: update examples
Date: Mon, 10 Mar 2014 16:57:09 +0000

eschulte pushed a commit to branch master
in repository elpa.

commit 2e3bb80a2578203ad755858401d5b9e5a14b5221
Author: Eric Schulte <address@hidden>
Date:   Thu Dec 19 21:46:18 2013 -0700

    update examples
---
 examples/0-hello-world.el      |    3 +--
 examples/1-hello-world-utf8.el |    3 +--
 examples/2-hello-world-html.el |    3 +--
 examples/3-post-echo.el        |    6 ++----
 4 files changed, 5 insertions(+), 10 deletions(-)

diff --git a/examples/0-hello-world.el b/examples/0-hello-world.el
index d69d652..6ba3209 100644
--- a/examples/0-hello-world.el
+++ b/examples/0-hello-world.el
@@ -13,6 +13,5 @@
  '(((lambda (_) t) .
     (lambda (proc request)
       (ews-response-header proc 200 '("Content-type" . "text/plain"))
-      (process-send-string proc "hello world")
-      :finished)))
+      (process-send-string proc "hello world"))))
  9000)
diff --git a/examples/1-hello-world-utf8.el b/examples/1-hello-world-utf8.el
index 66ab1d9..432eae4 100644
--- a/examples/1-hello-world-utf8.el
+++ b/examples/1-hello-world-utf8.el
@@ -26,6 +26,5 @@
         (ews-response-header proc 200
           '("Content-type" . "text/plain; charset=utf-8"))
         (process-send-string proc
-          (concat (nth (random (length hellos)) hellos) " world")))
-      :finished)))
+          (concat (nth (random (length hellos)) hellos) " world"))))))
  9001)
diff --git a/examples/2-hello-world-html.el b/examples/2-hello-world-html.el
index d94347b..0b4e606 100644
--- a/examples/2-hello-world-html.el
+++ b/examples/2-hello-world-html.el
@@ -21,6 +21,5 @@
     <b>hello world</b>
   </body>
 </html>
-")
-      :finished)))
+"))))
  9002)
diff --git a/examples/3-post-echo.el b/examples/3-post-echo.el
index 9aeb79c..465c018 100644
--- a/examples/3-post-echo.el
+++ b/examples/3-post-echo.el
@@ -17,12 +17,10 @@
         (process-send-string proc
           (if message
               (format "you said %S\n" message)
-            "This is a POST request, but it has no \"message\".\n"))
-        :finished)))
+            "This is a POST request, but it has no \"message\".\n")))))
    ((:GET . ".*") .
     (lambda (proc request)
       (ews-response-header proc 200 '("Content-type" . "text/plain"))
       (process-send-string proc
-        "This is a GET request not a POST request.\n")
-      :finished)))
+        "This is a GET request not a POST request.\n"))))
  9003)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]