From: Jim Blandy <jimb@redhat.com>
Date: Tue, 13 Jul 1993 03:21:39 +0000 (+0000)
Subject: * autoload.el (generate-file-autoloads): Correctly detect when the
X-Git-Tag: emacs-19.34~11783
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ae553cad8eb06bcc13193680e00c3683a4656b3e;p=emacs.git

* autoload.el (generate-file-autoloads): Correctly detect when the
	buffer receiving the autoload forms is in a parent of or the same
	directory as FILE, even in the presence of symlinks.
---

diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index 940bc118e46..10f614f48c1 100644
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -122,11 +122,13 @@ are used."
     ;; subdirectory of the current buffer's directory, we'll make it
     ;; relative to the current buffer's directory.
     (setq file (expand-file-name file))
-    (if (and (< (length default-directory) (length file))
-	     (string= default-directory
-		      (substring file 0 (length default-directory))))
-	(progn
-	  (setq file (substring file (length default-directory)))))
+    (let ((source-truename (file-truename file))
+	  (dir-truename (file-name-as-directory
+			 (file-truename default-directory))))
+      (if (and (< (length dir-truename) (length source-truename))
+	       (string= dir-truename
+			(substring source-truename 0 (length dir-truename))))
+	  (setq file (substring file (length dir-truename)))))
 
     (message "Generating autoloads for %s..." file)
     (save-excursion