mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(dirtrack): Run it.  Make debug message more verbose.
This commit is contained in:
Karl Heuer 1998-12-10 03:24:19 +00:00
parent 4468c4f1cf
commit 12b0f4514b
1 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/dirtrack.el
View file

@ -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)))