(dirtrack-directory-change-hook): New hook.

(dirtrack): Run it.  Make debug message more verbose.

1 files changed, 10 insertions, 2 deletions

diff --git a/lisp/dirtrack.el b/lisp/dirtrack.el
index 7ecfae014f6..d9bd8d3ef39 100644
--- a/lisp/dirtrack.el
+++ b/lisp/dirtrack.el
@@ -181,6 +181,13 @@ be on a single line."
   :type  'function
   )
 
+(defcustom dirtrack-directory-change-hook nil
+  "Hook that is called when a directory change is made."
+  :group 'dirtrack
+  :type 'function
+  )
+
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Functions
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -277,8 +284,8 @@ forward ones."
               (and dirtrack-debug
                    (dirtrack-debug-message 
                     (format 
-                     "Failed to match regexp: %s" 
-                    dirtrack-regexp)))
+                     "Input `%s' failed to match regexp: %s" 
+                    input dirtrack-regexp)))
             (setq prompt-path 
                   (buffer-substring-no-properties
                    (match-beginning match-num) (match-end match-num)))
@@ -308,6 +315,7 @@ forward ones."
                 (if (file-accessible-directory-p prompt-path)
                     ;; Change directory
                     (and (shell-process-cd prompt-path)
+                         (run-hooks dirtrack-directory-change-hook)
                          dirtrack-debug
                          (dirtrack-debug-message 
                           (format "Changing directory to %s" prompt-path)))