On Fri, May 18, 2012 at 03:05:51PM +1000, Kevin Ryde wrote: > Alessandro Ghedini wrote: > > > >> (let ((package-dir (concat "/usr/share/" > >> (symbol-name debian-emacs-flavor) > >> "/site-lisp/ecasound-el"))) > >> > >> (debian-pkg-add-load-path-item package-dir) > > Yes, but the key is the directory existence test before doing the > autoloads etc. If removed but not purged then the package-dir doesn't > exist. > > (when (file-directory-p package-dir)
Sorry, I copy-pasted the wrong thing:
> (let ((package-dir (concat "/usr/share/"
> (symbol-name debian-emacs-flavor)
> "/site-lisp/ecasound-el")))
>
> (when (file-directory-p package-dir)
> (debian-pkg-add-load-path-item package-dir)
>
> (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))))
Cheers
--
perl -E '$_=q;$/= @{[@_]};and s;\S+;<inidehG ordnasselA>;eg;say~~reverse'
signature.asc
Description: Digital signature
