[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Aspell and Emacs
From: |
Kevin Rodgers |
Subject: |
Re: Aspell and Emacs |
Date: |
Thu, 29 Jan 2004 13:17:49 -0700 |
User-agent: |
Mozilla/5.0 (X11; U; SunOS i86pc; en-US; rv:0.9.4.1) Gecko/20020406 Netscape6/6.2.2 |
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