Handle a failure to get the joke

davep · Jun 20, 2017 · 066a7e6 · 066a7e6
1 parent fed52a8
commit 066a7e6
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/dad-joke.el b/dad-joke.el
@@ -43,9 +43,11 @@ If INSERT is non-nil the joke will be inserted into the current
 buffer rather than shown in the minibuffer."
   (interactive "P")
   (let ((joke (dad-joke-get)))
-    (if insert
-        (insert joke)
-      (message joke))))
+    (if (and joke (not (zerop (length joke))))
+        (if insert
+            (insert joke)
+          (message joke))
+      (error "I didn't get the joke! :-("))))
 
 (provide 'dad-joke)