procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(generate-file-autoloads): Fix FILE truename hacking to substring

Browse source 
SOURCE-TRUENAME instead of FILE.
This commit is contained in:
Roland McGrath 1993-07-14 20:56:19 +00:00
parent a73c5e2988
commit 1265394fdd
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/emacs-lisp/autoload.el
View file

@ -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