Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
f9c4665a
Commit
f9c4665a
authored
Apr 07, 1995
by
Noah Friedman
Browse files
(rlogin-directory-tracking-mode): Set shell-dirtrackp, not shell-dirtrack-p.
parent
43145fb4
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
5 deletions
+5
-5
lisp/rlogin.el
lisp/rlogin.el
+5
-5
No files found.
lisp/rlogin.el
View file @
f9c4665a
...
...
@@ -20,7 +20,7 @@
;; along with this program; if not, write to: The Free Software Foundation,
;; Inc.; 675 Massachusetts Avenue.; Cambridge, MA 02139, USA.
;; $Id: rlogin.el,v 1.2
5
1995/0
3/12 18:18:29 rms
Exp friedman $
;; $Id: rlogin.el,v 1.2
6
1995/0
4/07 22:17:06 friedman
Exp friedman $
;;; Commentary:
...
...
@@ -222,18 +222,18 @@ local one share the same directories (through NFS)."
((
or
(
null
prefix
)
(
consp
prefix
))
(
setq
rlogin-directory-tracking-mode
t
)
(
setq
shell-dirtrack
-
p
t
)
(
setq
shell-dirtrackp
t
)
(
setq
comint-file-name-prefix
(
concat
"/"
rlogin-remote-user
"@"
rlogin-host
":"
)))
((
<
prefix
0
)
(
setq
rlogin-directory-tracking-mode
nil
)
(
setq
shell-dirtrack
-
p
nil
))
(
setq
shell-dirtrackp
nil
))
(
t
(
setq
rlogin-directory-tracking-mode
'local
)
(
setq
comint-file-name-prefix
""
)
(
setq
shell-dirtrack
-
p
t
)))
(
setq
shell-dirtrackp
t
)))
(
cond
(
shell-dirtrack
-
p
(
shell-dirtrackp
(
let*
((
proc
(
get-buffer-process
(
current-buffer
)))
(
proc-mark
(
process-mark
proc
))
(
current-input
(
buffer-substring
proc-mark
(
point-max
)))
...
...
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