[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [O] Problem with autoloads
From: |
Michael Markert |
Subject: |
Re: [O] Problem with autoloads |
Date: |
Tue, 28 Jun 2011 20:11:52 +0200 |
User-agent: |
Wanderlust/2.15.9 (Almost Unreal) Emacs/24.0 Mule/6.0 (HANACHIRUSATO) |
On 28 Jun 2011, Nick Dokos wrote:
> Michael Markert <address@hidden> wrote:
>> <snip>
>> Problem: autoload.el generates file names with lisp/ prefix.
>
> For you and Suvayu, but not for me. It's the discrepancy
> that bothers me.
I dug into emacs because I thought "Sure, there must be some change in
the meantime", well now I'm bothered, too.
The bzr autoloads.el is identical to mine.
But this code makes me curious:
#+begin_src emacs-lisp
(defun autoload-file-load-name (file)
"Compute the name that will be used to load FILE."
;; OUTFILE should be the name of the global loaddefs.el file, which
;; is expected to be at the root directory of the files we're
;; scanning for autoloads and will be in the `load-path'.
(let* ((outfile (default-value 'generated-autoload-file))
(name (file-relative-name file (file-name-directory outfile)))
(names '())
(dir (file-name-directory outfile)))
;; If `name' has directory components, only keep the
;; last few that are really needed.
(while name
(setq name (directory-file-name name))
(push (file-name-nondirectory name) names)
(setq name (file-name-directory name)))
(while (not name)
(cond
((null (cdr names)) (setq name (car names)))
((file-exists-p (expand-file-name "subdirs.el" dir))
;; FIXME: here we only check the existence of subdirs.el,
;; without checking its content. This makes it generate wrong load
;; names for cases like lisp/term which is not added to load-path.
(setq dir (expand-file-name (pop names) dir)))
(t (setq name (mapconcat 'identity names "/")))))
(if (string-match "\\.elc?\\(\\.\\|\\'\\)" name)
(substring name 0 (match-beginning 0))
name)))
#+end_src emacs-lisp
if I read it correctly we decompose our path-name (say lisp/org.el), by
rebasing it on outfile (org-install.el, which gives lisp/org.el) and
split in dirs, which gives '("lisp" "org.el"), then we are in the else
branch, build "lisp/org.el" and then in the last if we chop of the
".el".
I can't see how you get there correct path names :(
Michael
pgpQh_reaPfAA.pgp
Description: PGP signature
- Re: [O] Problem with autoloads, (continued)
- Re: [O] Problem with autoloads, Michael Markert, 2011/06/27
- Re: [O] Problem with autoloads, Nick Dokos, 2011/06/27
- Re: [O] Problem with autoloads, Suvayu Ali, 2011/06/27
- Re: [O] Problem with autoloads, Nick Dokos, 2011/06/28
- Re: [O] Problem with autoloads, Michael Markert, 2011/06/28
- Re: [O] Problem with autoloads, Suvayu Ali, 2011/06/28
- Re: [O] Problem with autoloads, Nick Dokos, 2011/06/28
- Re: [O] Problem with autoloads, Nick Dokos, 2011/06/28
- Re: [O] Problem with autoloads, Michael Markert, 2011/06/28
- Re: [O] Problem with autoloads, Nick Dokos, 2011/06/28
- Re: [O] Problem with autoloads,
Michael Markert <=
- Re: [O] Problem with autoloads, Michael Markert, 2011/06/28
- Re: [O] Problem with autoloads, Suvayu Ali, 2011/06/28
- Re: [O] Problem with autoloads, Eric S Fraga, 2011/06/29
- Re: [O] Problem with autoloads, Nick Dokos, 2011/06/29
- Re: [O] Problem with autoloads, Michael Markert, 2011/06/29
- Re: [O] Problem with autoloads, Eric S Fraga, 2011/06/29
- Re: [O] Problem with autoloads, Nick Dokos, 2011/06/29
- Re: [O] Problem with autoloads, suvayu ali, 2011/06/29
- [O] emacs snapshot on debian and ubuntu (was: Problem with autoloads), Memnon Anon, 2011/06/29
- Re: [O] Problem with autoloads, Michael Markert, 2011/06/29