mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-14 16:50:58 +00:00
Code Issues Releases Activity

Resync directories properly for the ksh.

Browse Source
This commit is contained in:
Simon Marshall 1996-02-03 13:38:32 +00:00
parent b2926fb3ef
commit 221ca406ba
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/shell.el
View File

@ -1,6 +1,6 @@
;;; shell.el --- specialized comint.el for running the shell.
;; Copyright (C) 1988, 1993, 1994, 1995 Free Software Foundation, Inc.
;; Copyright (C) 1988, 1993, 1994, 1995, 1996 Free Software Foundation, Inc.
;; Author: Olin Shivers <shivers@cs.cmu.edu>
;; Maintainer: Simon Marshall <simon@gnu.ai.mit.edu>
@ -114,7 +114,7 @@ This variable is used to initialise `comint-prompt-regexp' in the
shell buffer.
The pattern should probably not match more than one line. If it does,
shell-mode may become confused trying to distinguish prompt from input
Shell mode may become confused trying to distinguish prompt from input
on lines which don't start with a prompt.
This is a fine thing to set in your `.emacs' file.")
@ -341,7 +341,9 @@ buffer."
(equal (file-truename comint-input-ring-file-name) "/dev/null"))
(setq comint-input-ring-file-name nil))
(setq shell-dirstack-query
(if (string-match "^k?sh$" shell) "pwd" "dirs")))
(cond ((string-equal shell "sh") "pwd")
((string-equal shell "ksh") "echo $PWD ~-")
(t "dirs"))))
(run-hooks 'shell-mode-hook)
(comint-read-input-ring t))
@ -516,8 +518,7 @@ Environment variables are expanded, see function `substitute-in-file-name'."
(shell-dirstack
(let ((old default-directory))
(shell-cd (car shell-dirstack))
(setq shell-dirstack
(cons old (cdr shell-dirstack)))
(setq shell-dirstack (cons old (cdr shell-dirstack)))
(shell-dirstack-message)))
(t
(message "Directory stack empty."))))
@ -617,7 +618,8 @@ command again."
(let ((ds (nreverse ds)))
(condition-case nil
(progn (shell-cd (car ds))
(setq shell-dirstack (cdr ds))
(setq shell-dirstack (cdr ds)
shell-last-dir (car shell-dirstack))
(shell-dirstack-message))
(error (message "Couldn't cd.")))))))