aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2008-01-10 04:04:46 +0000
committerGlenn Morris2008-01-10 04:04:46 +0000
commit0a9f2dcf33e8c7131548ddd51c459c98d05493c2 (patch)
tree03f6d6b1f69dbe5d250c927044e2c57184552ad5
parent373d0f24eaa782efd2fbd36f0148808dc45f4f22 (diff)
downloademacs-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/ChangeLog7
-rw-r--r--lisp/shell.el20
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 @@
12008-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
12008-01-10 Kenichi Handa <handa@ni.aist.go.jp> 82008-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.
266This is effective only if directory tracking is enabled." 266This is effective only if directory tracking is enabled.
267The `dirtrack' package provides an alternative implementation of this feature -
268see 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
398by \\[list-buffers] or \\[mouse-buffer-menu] in the `File' field. 400by \\[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
405feature.)
402 406
403\\{shell-mode-map} 407\\{shell-mode-map}
404Customization: Entry to this mode runs the hooks on `comint-mode-hook' and 408Customization: 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.
615It watches for cd, pushd and popd commands and sets the buffer's 619It watches for cd, pushd and popd commands and sets the buffer's
616default directory to track these commands. 620default directory to track these commands.
617 621
618You may toggle this tracking on and off with \\[dirtrack-mode]. 622You may toggle this tracking on and off with \\[shell-dirtrack-mode].
619If Emacs gets confused, you can resync with the shell with \\[dirs]. 623If Emacs gets confused, you can resync with the shell with \\[dirs].
624\(The `dirtrack' package provides an alternative implementation of this
625feature - see the function `dirtrack-mode'.)
620 626
621See variables `shell-cd-regexp', `shell-chdrive-regexp', `shell-pushd-regexp', 627See variables `shell-cd-regexp', `shell-chdrive-regexp', `shell-pushd-regexp',
622and `shell-popd-regexp', while `shell-pushd-tohome', `shell-pushd-dextract', 628and `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.
782The `dirtrack' package provides an alternative implementation of this
783feature - 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'."