Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
221ca406
Commit
221ca406
authored
Feb 03, 1996
by
Simon Marshall
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Resync directories properly for the ksh.
parent
b2926fb3
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
6 deletions
+8
-6
lisp/shell.el
lisp/shell.el
+8
-6
No files found.
lisp/shell.el
View file @
221ca406
;;; 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,
s
hell
-
mode may become confused trying to distinguish prompt from input
S
hell
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."
)))))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment