From 12b0f4514ba7b52219fb25db3a820387984cd701 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 10 Dec 1998 03:24:19 +0000 Subject: [PATCH] (dirtrack-directory-change-hook): New hook. (dirtrack): Run it. Make debug message more verbose. --- lisp/dirtrack.el | 12 ++++++++++-- 1 file 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))) -- 2.39.2