Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 4089:410395998370
(generate-file-autoloads): Fix FILE truename hacking to substring
SOURCE-TRUENAME instead of FILE.
author | Roland McGrath <roland@gnu.org> |
---|---|
date | Wed, 14 Jul 1993 20:56:19 +0000 |
parents | 5126824061ef |
children | 1e1a395e4718 |
comparison
equal
deleted
inserted
replaced
4088:bea0be5ab35e | 4089:410395998370 |
---|---|
120 ;; `update-autoloads-here' won't be able to find the files to be | 120 ;; `update-autoloads-here' won't be able to find the files to be |
121 ;; autoloaded. So, if FILE is in the same directory or a | 121 ;; autoloaded. So, if FILE is in the same directory or a |
122 ;; subdirectory of the current buffer's directory, we'll make it | 122 ;; subdirectory of the current buffer's directory, we'll make it |
123 ;; relative to the current buffer's directory. | 123 ;; relative to the current buffer's directory. |
124 (setq file (expand-file-name file)) | 124 (setq file (expand-file-name file)) |
125 (let ((source-truename (file-truename file)) | 125 (let* ((source-truename (file-truename file)) |
126 (dir-truename (file-name-as-directory | 126 (dir-truename (file-name-as-directory |
127 (file-truename default-directory)))) | 127 (file-truename default-directory))) |
128 (if (and (< (length dir-truename) (length source-truename)) | 128 (len (length dir-truename))) |
129 (string= dir-truename | 129 (if (and (< len (length source-truename)) |
130 (substring source-truename 0 (length dir-truename)))) | 130 (string= dir-truename (substring source-truename 0 len))) |
131 (setq file (substring file (length dir-truename))))) | 131 (setq file (substring source-truename len)))) |
132 | 132 |
133 (message "Generating autoloads for %s..." file) | 133 (message "Generating autoloads for %s..." file) |
134 (save-excursion | 134 (save-excursion |
135 (unwind-protect | 135 (unwind-protect |
136 (progn | 136 (progn |