HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
1a47fa1
)
(parse-colon-path): Turn empty substring into nil.
author
Richard M. Stallman
<rms@gnu.org>
Tue, 20 Jul 1993 22:04:53 +0000
(22:04 +0000)
committer
Richard M. Stallman
<rms@gnu.org>
Tue, 20 Jul 1993 22:04:53 +0000
(22:04 +0000)
lisp/files.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/files.el
b/lisp/files.el
index
5ed1ad4
..
8edf13a
100644
(file)
--- a/
lisp/files.el
+++ b/
lisp/files.el
@@
-258,8
+258,10
@@
Not actually set up until the first time you you use it.")
(setq cd-list
(nconc cd-list
(list (substitute-in-file-name
(setq cd-list
(nconc cd-list
(list (substitute-in-file-name
- (file-name-as-directory
- (substring cd-path cd-start cd-colon))))))
+ (if (= cd-start cd-colon)
+ "."
+ (file-name-as-directory
+ (substring cd-path cd-start cd-colon)))))))
(setq cd-start (+ cd-colon 1)))
cd-list)))
(setq cd-start (+ cd-colon 1)))
cd-list)))