diff options
| author | Roland McGrath <roland@gnu.org> | 1993-07-14 20:56:19 +0000 |
|---|---|---|
| committer | Roland McGrath <roland@gnu.org> | 1993-07-14 20:56:19 +0000 |
| commit | 1265394fdd21cb462e087c3cf6d671b072ab6f70 (patch) | |
| tree | 7a0fce4f1051e01866eead13df76252c817d0299 /lisp/emacs-lisp/autoload.el | |
| parent | a73c5e2988eba7da561ead8372ca1010d90b0348 (diff) | |
| download | emacs-1265394fdd21cb462e087c3cf6d671b072ab6f70.tar.gz emacs-1265394fdd21cb462e087c3cf6d671b072ab6f70.tar.bz2 emacs-1265394fdd21cb462e087c3cf6d671b072ab6f70.zip | |
(generate-file-autoloads): Fix FILE truename hacking to substring
SOURCE-TRUENAME instead of FILE.
Diffstat (limited to 'lisp/emacs-lisp/autoload.el')
| -rw-r--r-- | lisp/emacs-lisp/autoload.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index 10f614f48c1..0950a1af574 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el @@ -122,13 +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)) - (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))))) + (let* ((source-truename (file-truename file)) + (dir-truename (file-name-as-directory + (file-truename default-directory))) + (len (length dir-truename))) + (if (and (< len (length source-truename)) + (string= dir-truename (substring source-truename 0 len))) + (setq file (substring source-truename len)))) (message "Generating autoloads for %s..." file) (save-excursion |