mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

Use generated-autoload-load-name for cus-load.el.

Browse Source 
* lisp/cus-dep.el (custom-make-dependencies):
Use generated-autoload-load-name for the sake of files such
such cedet/semantic/bovine/c.el, where the base file name
is not in load-path.

Fixes: debbugs:5277
This commit is contained in:
Kevin Ryde 2013-05-11 16:52:27 -07:00 committed by Glenn Morris
parent 36f84c3728
commit e065ba740b
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -1,3 +1,10 @@
2013-05-11 Kevin Ryde <user42@zip.com.au>
* cus-dep.el (custom-make-dependencies):
Use generated-autoload-load-name for the sake of files such
such cedet/semantic/bovine/c.el, where the base file name
is not in load-path. (Bug#5277)
2013-05-11 Glenn Morris <rgm@gnu.org>
* dos-vars.el, emacs-lisp/cl-indent.el, emulation/tpu-extras.el:

7
lisp/cus-dep.el
View File

@ -36,7 +36,7 @@
ldefs-boot\\|cus-load\\|finder-inf\\|esh-groups\\|subdirs\\)\\.el$\\)"
"Regexp matching file names not to scan for `custom-make-dependencies'.")
(autoload 'autoload-rubric "autoload")
(require 'autoload)
(defun custom-make-dependencies ()
"Batch function to extract custom dependencies from .el files.
@ -60,10 +60,13 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
(string-match preloaded file)
(not (file-exists-p file)))
(erase-buffer)
(kill-all-local-variables)
(insert-file-contents file)
(hack-local-variables)
(goto-char (point-min))
(string-match "\\`\\(.*\\)\\.el\\'" file)
(let ((name (file-name-nondirectory (match-string 1 file)))
(let ((name (or generated-autoload-load-name ; see bug#5277
(file-name-nondirectory (match-string 1 file))))
(load-file-name file))
(if (save-excursion
(re-search-forward