Changeset 2819

Timestamp:

12/08/07 01:41:18 (5 years ago)

Author:

elim

Message:

lang/elisp/simple-hatena-mode: search for 'simple-hatena-bin' from exec-path.

Files:

• lang/elisp/simple-hatena-mode/trunk/simple-hatena-mode.el (modified) (1 diff)

lang/elisp/simple-hatena-mode/trunk/simple-hatena-mode.el

@@ -301 +301 @@
 
 (defun simple-hatena-setup-check-hatena-bin-exists-p ()
-  (if (file-executable-p simple-hatena-bin)
-      t
-    (progn
-      (if (y-or-n-p
-           (format
-            "`Hatena Diary Writer' not found in %s. Are you sure to continue setup? "
-            simple-hatena-bin))
-          t
-        (progn
-          (when (y-or-n-p
-                 "Open the documentation of simple-hatnea-mode in your browser? ")
-            (browse-url "http://coderepos.org/share/wiki/SimpleHatenaMode"))
-          (message "You must download and install `Hatena Diary Writer' first")
-          nil)))))
+  (let
+      ((simple-hatena-bin-full-path
+        (locate-library simple-hatena-bin t exec-path)))
+    (if (and
+         simple-hatena-bin-full-path
+         (file-executable-p simple-hatena-bin-full-path))
+        t
+      (progn
+        (if (y-or-n-p
+             (format
+              "`Hatena Diary Writer' not found in %s. Are you sure to continue setup? "
+              simple-hatena-bin))
+            t
+          (progn
+            (when (y-or-n-p
+                   "Open the documentation of simple-hatnea-mode in your browser? ")
+              (browse-url "http://coderepos.org/share/wiki/SimpleHatenaMode"))
+            (message "You must download and install `Hatena Diary Writer' first")
+            nil))))))
 
 (defun simple-hatena-setup-id ()