2009-03-07 Aidan Kehoe <kehoea(a)parhasard.net>
* files.el (cd):
Make CDPATH handling portable, accept entries without trailing
slashes within it.
--- lisp/files.el~ 2009-02-20 17:22:47.000000000 +0000
+++ lisp/files.el 2009-03-07 12:37:57.000000000 +0000
@@ -595,12 +595,14 @@
(null (getenv "CDPATH"))))))
(if (file-name-absolute-p dir)
(cd-absolute (expand-file-name dir))
- ;; XEmacs
+ ;; XEmacs change. I'm not sure respecting CDPATH is the right thing to
+ ;; do under Windows.
(unless (and cd-path (equal (getenv "CDPATH") cdpath-previous))
- ;;#### Unix-specific
- (let ((trypath (parse-colon-path
- (setq cdpath-previous (getenv "CDPATH")))))
- (setq cd-path (or trypath (list "./")))))
+ (let ((trypath (split-string (setq cdpath-previous (getenv "CDPATH"))
+ path-separator)))
+ (setq cd-path (or (and trypath
+ (mapcar #'file-name-as-directory trypath))
+ (string ?. directory-sep-char)))))
(or (catch 'found
(mapcar #'(lambda (x)
(let ((f (expand-file-name (concat x dir))))
--
¿Dónde estará ahora mi sobrino Yoghurtu Nghe, que tuvo que huir
precipitadamente de la aldea por culpa de la escasez de rinocerontes?
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches