diff options
| author | Glenn Morris | 2008-01-10 04:04:46 +0000 |
|---|---|---|
| committer | Glenn Morris | 2008-01-10 04:04:46 +0000 |
| commit | 0a9f2dcf33e8c7131548ddd51c459c98d05493c2 (patch) | |
| tree | 03f6d6b1f69dbe5d250c927044e2c57184552ad5 | |
| parent | 373d0f24eaa782efd2fbd36f0148808dc45f4f22 (diff) | |
| download | emacs-0a9f2dcf33e8c7131548ddd51c459c98d05493c2.tar.gz emacs-0a9f2dcf33e8c7131548ddd51c459c98d05493c2.zip | |
(shell-dirtrack-verbose, shell-mode)
(shell-directory-tracker, shell-dirtrack-mode): Doc fix.
(dirtrack-toggle, dirtrack-mode): No longer alias to
shell-dirtrack-mode.
| -rw-r--r-- | lisp/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/shell.el | 20 |
2 files changed, 20 insertions, 7 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a09ef67b8ea..b26216ab59d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,10 @@ | |||
| 1 | 2008-01-10 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * shell.el (shell-dirtrack-verbose, shell-mode) | ||
| 4 | (shell-directory-tracker, shell-dirtrack-mode): Doc fix. | ||
| 5 | (dirtrack-toggle, dirtrack-mode): No longer alias to | ||
| 6 | shell-dirtrack-mode. | ||
| 7 | |||
| 1 | 2008-01-10 Kenichi Handa <handa@ni.aist.go.jp> | 8 | 2008-01-10 Kenichi Handa <handa@ni.aist.go.jp> |
| 2 | 9 | ||
| 3 | * international/mule-cmds.el (select-safe-coding-system): | 10 | * international/mule-cmds.el (select-safe-coding-system): |
diff --git a/lisp/shell.el b/lisp/shell.el index 5cc4862c891..45ef23e98c3 100644 --- a/lisp/shell.el +++ b/lisp/shell.el | |||
| @@ -93,7 +93,7 @@ | |||
| 93 | ;; m-c-f shell-forward-command Forward a shell command | 93 | ;; m-c-f shell-forward-command Forward a shell command |
| 94 | ;; m-c-b shell-backward-command Backward a shell command | 94 | ;; m-c-b shell-backward-command Backward a shell command |
| 95 | ;; dirs Resync the buffer's dir stack | 95 | ;; dirs Resync the buffer's dir stack |
| 96 | ;; dirtrack-mode Turn dir tracking on/off | 96 | ;; shell-dirtrack-mode Turn dir tracking on/off |
| 97 | ;; comint-strip-ctrl-m Remove trailing ^Ms from output | 97 | ;; comint-strip-ctrl-m Remove trailing ^Ms from output |
| 98 | ;; | 98 | ;; |
| 99 | ;; The shell mode hook is shell-mode-hook | 99 | ;; The shell mode hook is shell-mode-hook |
| @@ -263,7 +263,9 @@ This mirrors the optional behavior of tcsh." | |||
| 263 | 263 | ||
| 264 | (defcustom shell-dirtrack-verbose t | 264 | (defcustom shell-dirtrack-verbose t |
| 265 | "If non-nil, show the directory stack following directory change. | 265 | "If non-nil, show the directory stack following directory change. |
| 266 | This is effective only if directory tracking is enabled." | 266 | This is effective only if directory tracking is enabled. |
| 267 | The `dirtrack' package provides an alternative implementation of this feature - | ||
| 268 | see the function `dirtrack-mode'." | ||
| 267 | :type 'boolean | 269 | :type 'boolean |
| 268 | :group 'shell-directories) | 270 | :group 'shell-directories) |
| 269 | 271 | ||
| @@ -398,7 +400,9 @@ While directory tracking is enabled, the shell's working directory is displayed | |||
| 398 | by \\[list-buffers] or \\[mouse-buffer-menu] in the `File' field. | 400 | by \\[list-buffers] or \\[mouse-buffer-menu] in the `File' field. |
| 399 | \\[dirs] queries the shell and resyncs Emacs' idea of what the current | 401 | \\[dirs] queries the shell and resyncs Emacs' idea of what the current |
| 400 | directory stack is. | 402 | directory stack is. |
| 401 | \\[dirtrack-mode] turns directory tracking on and off. | 403 | \\[shell-dirtrack-mode] turns directory tracking on and off. |
| 404 | \(The `dirtrack' package provides an alternative implementation of this | ||
| 405 | feature.) | ||
| 402 | 406 | ||
| 403 | \\{shell-mode-map} | 407 | \\{shell-mode-map} |
| 404 | Customization: Entry to this mode runs the hooks on `comint-mode-hook' and | 408 | Customization: Entry to this mode runs the hooks on `comint-mode-hook' and |
| @@ -615,8 +619,10 @@ This function is called on each input passed to the shell. | |||
| 615 | It watches for cd, pushd and popd commands and sets the buffer's | 619 | It watches for cd, pushd and popd commands and sets the buffer's |
| 616 | default directory to track these commands. | 620 | default directory to track these commands. |
| 617 | 621 | ||
| 618 | You may toggle this tracking on and off with \\[dirtrack-mode]. | 622 | You may toggle this tracking on and off with \\[shell-dirtrack-mode]. |
| 619 | If Emacs gets confused, you can resync with the shell with \\[dirs]. | 623 | If Emacs gets confused, you can resync with the shell with \\[dirs]. |
| 624 | \(The `dirtrack' package provides an alternative implementation of this | ||
| 625 | feature - see the function `dirtrack-mode'.) | ||
| 620 | 626 | ||
| 621 | See variables `shell-cd-regexp', `shell-chdrive-regexp', `shell-pushd-regexp', | 627 | See variables `shell-cd-regexp', `shell-chdrive-regexp', `shell-pushd-regexp', |
| 622 | and `shell-popd-regexp', while `shell-pushd-tohome', `shell-pushd-dextract', | 628 | and `shell-popd-regexp', while `shell-pushd-tohome', `shell-pushd-dextract', |
| @@ -772,7 +778,9 @@ Environment variables are expanded, see function `substitute-in-file-name'." | |||
| 772 | 778 | ||
| 773 | (defvaralias 'shell-dirtrack-mode 'shell-dirtrackp) | 779 | (defvaralias 'shell-dirtrack-mode 'shell-dirtrackp) |
| 774 | (define-minor-mode shell-dirtrack-mode | 780 | (define-minor-mode shell-dirtrack-mode |
| 775 | "Turn directory tracking on and off in a shell buffer." | 781 | "Turn directory tracking on and off in a shell buffer. |
| 782 | The `dirtrack' package provides an alternative implementation of this | ||
| 783 | feature - see the function `dirtrack-mode'." | ||
| 776 | nil nil nil | 784 | nil nil nil |
| 777 | (setq list-buffers-directory (if shell-dirtrack-mode default-directory)) | 785 | (setq list-buffers-directory (if shell-dirtrack-mode default-directory)) |
| 778 | (if shell-dirtrack-mode | 786 | (if shell-dirtrack-mode |
| @@ -781,8 +789,6 @@ Environment variables are expanded, see function `substitute-in-file-name'." | |||
| 781 | 789 | ||
| 782 | ;; For your typing convenience: | 790 | ;; For your typing convenience: |
| 783 | (defalias 'shell-dirtrack-toggle 'shell-dirtrack-mode) ;??Convenience?? | 791 | (defalias 'shell-dirtrack-toggle 'shell-dirtrack-mode) ;??Convenience?? |
| 784 | (defalias 'dirtrack-toggle 'shell-dirtrack-mode) | ||
| 785 | (defalias 'dirtrack-mode 'shell-dirtrack-mode) | ||
| 786 | 792 | ||
| 787 | (defun shell-cd (dir) | 793 | (defun shell-cd (dir) |
| 788 | "Do normal `cd' to DIR, and set `list-buffers-directory'." | 794 | "Do normal `cd' to DIR, and set `list-buffers-directory'." |