[PATCH] Make CDPATH handling portable, accept entries not matching "/$".

2009-03-07 Aidan Kehoe <kehoea(a)parhasard.net&gt; * 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