diff options
| author | Gerd Moellmann | 2000-10-19 14:55:12 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2000-10-19 14:55:12 +0000 |
| commit | 5de037e0990fa7f38063aaf833caff204350847d (patch) | |
| tree | 07bf721f31f15569220a7e4f58e7812f34e48f4e | |
| parent | 6deb9af9c70e72f291e7f052083ae4377171a696 (diff) | |
| download | emacs-5de037e0990fa7f38063aaf833caff204350847d.tar.gz emacs-5de037e0990fa7f38063aaf833caff204350847d.zip | |
(dirtrack): Fix call to run-hooks.
| -rw-r--r-- | lisp/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/dirtrack.el | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1c993d7ea0a..ef621400b24 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,7 @@ | |||
| 1 | 2000-10-19 Gerd Moellmann <gerd@gnu.org> | 1 | 2000-10-19 Gerd Moellmann <gerd@gnu.org> |
| 2 | 2 | ||
| 3 | * dirtrack.el (dirtrack): Fix call to run-hooks. | ||
| 4 | |||
| 3 | * cmuscheme.el (cmuscheme-program-name): Renamed from | 5 | * cmuscheme.el (cmuscheme-program-name): Renamed from |
| 4 | scheme-program-name because xscheme.el contains a defcustom with | 6 | scheme-program-name because xscheme.el contains a defcustom with |
| 5 | the same name. As a consequence, customizing group `cmuscheme' | 7 | the same name. As a consequence, customizing group `cmuscheme' |
diff --git a/lisp/dirtrack.el b/lisp/dirtrack.el index 0769013dbaa..297978101c0 100644 --- a/lisp/dirtrack.el +++ b/lisp/dirtrack.el | |||
| @@ -319,7 +319,7 @@ You can enable directory tracking by adding this function to | |||
| 319 | (if (file-accessible-directory-p prompt-path) | 319 | (if (file-accessible-directory-p prompt-path) |
| 320 | ;; Change directory | 320 | ;; Change directory |
| 321 | (and (shell-process-cd prompt-path) | 321 | (and (shell-process-cd prompt-path) |
| 322 | (run-hooks dirtrack-directory-change-hook) | 322 | (run-hooks 'dirtrack-directory-change-hook) |
| 323 | dirtrack-debug | 323 | dirtrack-debug |
| 324 | (dirtrack-debug-message | 324 | (dirtrack-debug-message |
| 325 | (format "Changing directory to %s" prompt-path))) | 325 | (format "Changing directory to %s" prompt-path))) |