Re: Aspell and Emacs

[Kevin Rodgers]

Bruce Ingalls wrote:

> Are you using Fink? I added the following contribution recently to
> <url: http://emacro.sf.net/ > for Mac users.
>
> Hmm. I bet I can change the first line to simply
>     (when (file-readable-p "/sw/bin")


I suggest:

        (when (and (file-directory-p "/sw/bin") (file-readable-p "/sw/bin"))


> as well as drop the defun declaration...


Definitely.  And is there any situation in which exec-path is not bound or its
value is not a list?


> ;;__________________________________________________________________________ 
>
> ;;;;        Fink Paths
> (when (and (file-readable-p "/sw/bin") (file-exists-p "/sw/sbin"))
>   (defvar shell-bin-path
>     '("/sw/bin" "/sw/sbin")
>     "The paths where fink binaries can be found")
>
>   (defun fix-shell-paths nil
>     (if (and (boundp 'exec-path) (listp exec-path))
>     (setq exec-path (append shell-bin-path exec-path))
>       (setq exec-path shell-bin-path)))
>
>   (fix-shell-paths))


--
Kevin Rodgers