Bug#672184: Bug#671551: ecasound-el: debian-pkg-add-load-path-item

[Alessandro Ghedini]

tags 671551 + pending - moreinfo
kthxbye

On Wed, May 09, 2012 at 09:02:41AM +1000, Kevin Ryde wrote:
> Alessandro Ghedini <al3xbio at gmail.com> writes:
> >
> > I'm afraid I don't understand what you are saying. Could you please point me to
> > a package that uses debian-pkg-add-load-path-item?
> 
> debian-el in /etc/emacs/site-start.d/51debian-el.el for example
> 
>   (debian-pkg-add-load-path-item
>    (concat "/usr/share/"
>            (symbol-name debian-emacs-flavor)
>            "/site-lisp/debian-el"))
> 
> or you can let-bind the flavour directory expression, eg. haml-elisp
> 
>   (let ((package-dir (concat "/usr/share/"
>                              (symbol-name flavor)
>                              "/site-lisp/haml-elisp")))
>   ;; If package-dir does not exist, the haml-mode package must have
>   ;; removed but not purged, and we should skip the setup.
>     (when (file-directory-p package-dir)
>       ;; Use debian-pkg-add-load-path-item per s9 of debian emacs subpolicy
>       (debian-pkg-add-load-path-item package-dir )
>       (autoload 'haml-mode "haml-mode"
>         "Major mode for editing haml-mode files." t)
>       (add-to-list 'auto-mode-alist '("\\.haml\\'" . haml-mode))
>       ))
> 
> 
> > I've looked into a few but
> > all of them use load-path in their startup scripts.
> 
> Many don't obey the policy yet, and cut and paste seems to propagate
> setups from one package to another :).  But the intention described in
> the debian-emacs-policy.gz is sound.

Ok, I think I've fixed this now (commit 34ec7b7). Now the startup script looks
like this:

> (debian-pkg-add-load-path-item
>  (concat "/usr/share/"
>          (symbol-name debian-emacs-flavor)
>          "/site-lisp/ecasound-el"))
> 
> (autoload 'ecasound "ecasound" "Run an inferior ecasound, with I/O through BUFFER." t)
> (autoload 'ecasound-ewf-mode "ecasound" "A major mode for editing ecasound .ewf files." t)
> 
> (add-to-list 'auto-mode-alist '("\\.ewf\\'" . ecasound-ewf-mode))

Is this correct?

Cheers

-- 
perl -E '$_=q;$/= @{[@_]};and s;\S+;<inidehG ordnasselA>;eg;say~~reverse'
-------------- next part --------------
A non-text attachment was scrubbed...
Name: signature.asc
Type: application/pgp-signature
Size: 836 bytes
Desc: Digital signature
URL: <http://lists.alioth.debian.org/pipermail/pkg-multimedia-maintainers/attachments/20120509/79eecc7a/attachment.pgp>