Mercurial > emacs

comparison lisp/files.el @ 4196:20f7ea2f83ef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(parse-colon-path): Turn empty substring into nil.
author Richard M. Stallman <rms@gnu.org>
date Tue, 20 Jul 1993 22:04:53 +0000
parents 45fc16fdf07e
children 6f940dcec978
comparison
equal deleted inserted replaced
4195:ac3ba761ac85 4196:20f7ea2f83ef
256 (setq cd-path (concat cd-path ":")) 256 (setq cd-path (concat cd-path ":"))
257 (while (setq cd-colon (string-match ":" cd-path cd-start)) 257 (while (setq cd-colon (string-match ":" cd-path cd-start))
258 (setq cd-list 258 (setq cd-list
259 (nconc cd-list 259 (nconc cd-list
260 (list (substitute-in-file-name 260 (list (substitute-in-file-name
261 (file-name-as-directory 261 (if (= cd-start cd-colon)
262 (substring cd-path cd-start cd-colon)))))) 262 "."
263 (file-name-as-directory
264 (substring cd-path cd-start cd-colon)))))))
263 (setq cd-start (+ cd-colon 1))) 265 (setq cd-start (+ cd-colon 1)))
264 cd-list))) 266 cd-list)))
265 267
266 (defun cd-absolute (dir) 268 (defun cd-absolute (dir)
267 "Change current directory to given absolute file name DIR." 269 "Change current directory to given absolute file name DIR."