0
@@ -32,8 +32,8 @@ system. You can get Ditz from http://ditz.rubyforge.org/.
0
   ;; Issue directory name (default: "bugs")
0
   (setq ditz-issue-directory "issues")
0
 
0
-  ;; Enable automatic finding functionality.
0
-  (setq ditz-find-issue-directory-automatically-flag t))
0
+  ;; Enable automatic finding functionality (default: nil)
0
+  (setq ditz-find-issue-directory-automatically-flag t)
0
 
0
 (5) Run M-x ditz-init to initialize your ditz issues.
0
 

0
@@ -159,13 +159,7 @@ must set it from minibuffer."
0
 (defun ditz-call-process (command &optional arg popup-flag)
0
   "Call ditz process asynchronously according with sub-commands."
0
   (let* ((buffer (get-buffer-create (concat "*ditz-" command "*")))
0
-         (proc (get-buffer-process buffer))
0
-         (current-directory))
0
-
0
-    ;; Reserve current directory to come back later It's needed when
0
-    ;; automatically finding directory.
0
-    (when buffer-file-name
0
-      (setq current-directory (file-name-directory (buffer-file-name))))
0
+         (proc (get-buffer-process buffer)))
0
 
0
     (if (and proc (eq (process-status proc) 'run))
0
         (when (y-or-n-p (format "A %s process is running; kill it?"
0
@@ -182,9 +176,6 @@ must set it from minibuffer."
0
                            buffer shell-file-name nil shell-command-switch
0
                            (ditz-build-command command arg))
0
 
0
-    (when current-directory
0
-      (setq default-directory current-directory))
0
-
0
     (cond ((or (eq major-mode 'ditz-mode)
0
                (string= popup-flag "switch"))
0
            (switch-to-buffer buffer))
0
@@ -204,30 +195,42 @@ must set it from minibuffer."
0
             (goto-char (point-min)))))))))
0
 
0
 (defvar ditz-last-visited-issue-directory nil)
0
+
0
 (defun ditz-build-command (command arg)
0
-  (let (issue-directory)
0
+  (let (issue-directory current-directory)
0
+
0
+    ;; Reserve current directory to come back later It's needed when
0
+    ;; automatically finding directory.
0
+    (when buffer-file-name
0
+      (setq current-directory (file-name-directory (buffer-file-name))))
0
+
0
     (cond ((eq major-mode 'ditz-mode)
0
            (setq issue-directory ditz-last-visited-issue-directory))
0
           ((and (not (string= command "init"))
0
-                ditz-find-issue-directory-automatically-flag)
0
-           (catch 'loop
0
-             (while t
0
-               (cond ((file-exists-p ditz-issue-directory)
0
-                      (setq issue-directory
0
-                            (concat default-directory ditz-issue-directory))
0
-                      (throw 'loop t))
0
-                     ((string= "/" default-directory)
0
-                      (throw 'loop nil))
0
-                     (t
0
-                      (cd ".."))))))
0
+                ditz-find-issue-directory-automatically-flag
0
+                (catch 'loop
0
+                  (while t
0
+                    (cond ((file-exists-p ditz-issue-directory)
0
+                           (throw 'loop t))
0
+                          ((string= "/" default-directory)
0
+                           (throw 'loop nil))
0
+                          (t
0
+                           (cd ".."))))))
0
+           (setq issue-directory
0
+                            (concat default-directory ditz-issue-directory)))
0
           (t
0
            (setq issue-directory
0
                  (read-file-name "Issue dir: "
0
                                  (or ditz-last-visited-issue-directory
0
                                      default-directory)))))
0
 
0
+    ;; Restore default directory if needed.
0
+    (when current-directory
0
+      (setq default-directory current-directory))
0
+
0
     (setq ditz-last-visited-issue-directory issue-directory)
0
-    (mapconcat 'identity (list ditz-program command arg "-i" issue-directory) " ")))
0
+    (mapconcat 'identity
0
+               (list ditz-program command arg "-i" issue-directory) " ")))
0
 
0
 ;; Hooks
0
 (defvar ditz-mode-hook nil

0
@@ -193,6 +193,26 @@
0
     
0
   </tr>
0
 
0
+  <tr>
0
+    <td class="issuestatus_closed">
0
+      closed: fixed
0
+    </td>
0
+    <td class="issuename">
0
+      <a href="issue-89b4dd9e965eeceef261869d99a6a0f138668e3d.html">Show prompt to set issue dir after failing to find dir in auto-finding mode.</a>
0
+      (bug)
0
+    </td>
0
+    
0
+      <td class="issuerelease">
0
+        
0
+          
0
+          in <a href="release-0.4.html">release 0.4</a>
0
+          (released)
0
+        
0
+      </td>
0
+    
0
+    
0
+  </tr>
0
+
0
 </table>
0
 
0
 

0
@@ -17,6 +17,8 @@
0
 
0
   <ul>
0
   
0
+    <li><a href="release-0.4.html">Release 0.4</a>, released 2008-04-11. </li>
0
+  
0
     <li><a href="release-0.3.html">Release 0.3</a>, released 2008-04-11. </li>
0
   
0
     <li><a href="release-0.2.html">Release 0.2</a>, released 2008-04-10. </li>

0
@@ -44,3 +44,16 @@ releases:
0
     - Kentaro Kuribayashi <kentarok@gmail.com>
0
     - released
0
     - release 0.3
0
+- !ditz.rubyforge.org,2008-03-06/release 
0
+  name: "0.4"
0
+  status: :released
0
+  release_time: 2008-04-11 13:18:54.902624 Z
0
+  log_events: 
0
+  - - 2008-04-11 12:12:15.794477 Z
0
+    - Kentaro Kuribayashi <kentarok@gmail.com>
0
+    - created
0
+    - ""
0
+  - - 2008-04-11 13:18:54.902658 Z
0
+    - Kentaro Kuribayashi <kentarok@gmail.com>
0
+    - released
0
+    - release 0.4