Mercurial > emacs

comparison lisp/emacs-lisp/autoload.el @ 4089:410395998370

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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