bug#1555: marked as done (OSX Emacs.app not containing enough paths (emacs lisp fix included))

[Emacs bug Tracking System]

Your message dated Mon, 19 Jan 2009 20:49:39 +0200
with message-id <2C9FF472-FCE0-4CCA-B84C-2505BC87F037@gmail.com>
and subject line Re: OSX Emacs.app not containing enough paths (emacs lisp fix 
included)
has caused the Emacs bug report #1555,
regarding OSX Emacs.app not containing enough paths (emacs lisp fix included)
to be marked as done.

This means that you claim that the problem has been dealt with.
If this is not the case it is now your responsibility to reopen the
bug report if necessary, and/or fix the problem forthwith.

(NB: If you are a system administrator and have no idea what this
message is talking about, this may indicate a serious mail system
misconfiguration somewhere. Please contact owner@emacsbugs.donarmstrong.com
immediately.)


-- 
1555: http://emacsbugs.donarmstrong.com/cgi-bin/bugreport.cgi?bug=1555
Emacs Bug Tracking System
Contact owner@emacsbugs.donarmstrong.com with problems

--- Begin Message --- Subject: OSX Emacs.app not containing enough paths (emacs lisp fix included) Date: Fri, 12 Dec 2008 16:12:40 -0500 Emacs.app version 23.0.60 (9.0)

(getenv "PATH") 

    => bare minimum (/usr/bin:/bin:/usr/sbin:/sbin)

exec-path 

    => bare minimum but with /Applications/Emacs.app/Contents/MacOS/bin

OSX seems to keep paths in /etc/paths and files in /etc/paths.d, programs launched from Terminal seem to pick this up but Emacs.app is not loaded from terminal so the path is kinda small. the problem was interacting with other programs via m-!, eshell, etc.

this seems to fix it, not sure if it's the right way tho.

(setenv "PATH"

        (let ((osx-path-files

               (append (mapcar (lambda (x) (concat "/etc/paths.d/" x))

                               (delete ".." (delete "." (directory-files "/etc/paths.d"))))

                       '("/etc/paths")))

              (read-path-file

               (lambda (file)

                 (when (file-readable-p file)

                   (delete ""

                           (split-string (with-temp-buffer (insert-file-contents file)

                                                           (buffer-substring (point-min) (point-max)))

                                         "\n"))))))

          (mapconcat 'identity

                     (reverse (delete-dups (reverse

                                            (append (reduce 'append

                                                            (mapcar read-path-file osx-path-files))

                                                    (split-string (getenv "PATH") ":")))))

                     ":")))

--
franco

--- End Message ---

> --- Begin Message ---
>
>
>
> Subject: 
>
> Re: OSX Emacs.app not containing enough paths (emacs lisp fix included)
>
>
>
>
> Date: 
>
> Mon, 19 Jan 2009 20:49:39 +0200
>
>
>
>
> Hi,
>
> Please see the section about "Grabbing environment variables" in the  
> Emacs.app (Mac / GNUstep) section of the info manual.
>
> (Closing bug.)
>
>
>
> --- End Message ---