Fix condition-case

Only handle the wrong-type-argument error we expect when file-truename's first arguent is nil.
kimim · Feb 22, 2024 · b59a2e0 · b59a2e0
1 parent e5d4021
commit b59a2e0
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/chatu-drawio.el b/chatu-drawio.el
@@ -37,10 +37,11 @@
   :type 'function)
 
 (defun chatu-drawio--find-executable ()
-  "Find the drawio executable on PATH, or else return nil."
-  (condition-case nil
+  "Find the drawio executable on PATH, or else return an error."
+  (condition-case err
       (file-truename (executable-find "draw.io"))
-    (error nil)))
+    (wrong-type-argument
+     (message "Cannot find the draw.io executable on the PATH."))))
 
 (defun chatu-drawio-script (keyword-plist)
   "Get conversion script.