# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 739814547 0
# Node ID 31e55359fcdbab7a4a098eddda38e49edfa76c21
# Parent  c37784da62e733d7e0d456c8b3cd344f672d2145
(cd): Use file-name-absolute-p.
(cd-absolute): No longer interactive.

diff -r c37784da62e7 -r 31e55359fcdb lisp/files.el
--- a/lisp/files.el	Fri Jun 11 15:51:46 1993 +0000
+++ b/lisp/files.el	Fri Jun 11 16:02:27 1993 +0000
@@ -254,8 +254,7 @@
 	 cd-list)))
 
 (defun cd-absolute (dir)
-  "Change current directory to given absolute path DIR."
-  (interactive "DChange default directory: ")
+  "Change current directory to given absolute file name DIR."
   (setq dir (expand-file-name dir))
   (if (not (eq system-type 'vax-vms))
       (setq dir (file-name-as-directory dir)))
@@ -267,27 +266,25 @@
 
 (defun cd (dir)
   "Make DIR become the current buffer's default directory.
-If your environment imcludes a $CDPATH variable, cd tries each one of that
-colon-separated list of directories when resolving a relative cd."
+If your environment includes a `CDPATH' variable, try each one of that
+colon-separated list of directories when resolving a relative directory name."
   (interactive "FChange default directory: ")
-  (let ((first (aref dir 0)))
-    (if (or (= first ?/) (= first ?~))
-	(cd-absolute (expand-file-name dir))
-      (if (null cd-path)
-	  (let ((trypath (parse-colon-path (getenv "CDPATH"))))
-	    (setq cd-path (or trypath (list "./")))))
-      (if (not (catch 'found
-		 (mapcar
-		  (function (lambda (x)
-			      (let ((f (expand-file-name (concat x dir))))
-				(if (file-directory-p f)
-				    (progn
-				      (cd-absolute f)
-				      (throw 'found t))))))
-		  cd-path)
-		 nil))
-	  (error "No such directory on your cd path.")))
-    ))
+  (if (file-name-absolute-p dir)
+      (cd-absolute (expand-file-name dir))
+    (if (null cd-path)
+	(let ((trypath (parse-colon-path (getenv "CDPATH"))))
+	  (setq cd-path (or trypath (list "./")))))
+    (if (not (catch 'found
+	       (mapcar
+		(function (lambda (x)
+			    (let ((f (expand-file-name (concat x dir))))
+			      (if (file-directory-p f)
+				  (progn
+				    (cd-absolute f)
+				    (throw 'found t))))))
+		cd-path)
+	       nil))
+	(error "No such directory found via CDPATH environment variable"))))
 
 (defun load-file (file)
   "Load the Lisp file named FILE."