Re: Aquamacs-bugs Digest, Vol 25, Issue 18

> Send Aquamacs-bugs mailing list submissions to
>    aquamacs-bugs@...
>
> To subscribe or unsubscribe via the World Wide Web, visit
>    https://lists.sourceforge.net/lists/listinfo/aquamacs-bugs
> or, via email, send a message with subject or body 'help' to
>    aquamacs-bugs-request@...
>
> You can reach the person managing the list at
>    aquamacs-bugs-owner@...
>
> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of Aquamacs-bugs digest..."
>
>
> Today's Topics:
>
>   1. Re: $PATH lost again (David Reitter)
>   2. Re: Aquamacs Bug Report (David Reitter)
>   3. Re: Aquamacs Bug Report (David Reitter)
>   4. Re: $PATH lost again (Thomas S. Dye)
>
>
> ----------------------------------------------------------------------
>
> Message: 1
> Date: Wed, 25 Jun 2008 17:26:42 +0100
> From: David Reitter <david.reitter@...>
> Subject: Re: [Aquamacs-bugs] $PATH lost again
> To: Thomas S. Dye <tsd@...>
> Cc: "aquamacs-bugs@... Bugs" <aquamacs-bugs@...>
> Message-ID: <6A7EBF67-67EB-457B-9E71-3EE1B57B419C@...>
> Content-Type: text/plain; charset="us-ascii"
>
> Tom,
>
>>
>>
>> I took a look at the PATH environment reported by the env command
>> issued from the shell in Aquamacs.
>>
>> PATH=/opt/local/bin:/opt/local/sbin:/usr/bin:/bin:/usr/sbin:/sbin:/
>> usr/local/bin:/usr/texbin:/usr/X11/bin:/usr/local/bin:/usr/bin:/bin:/
>> usr/sbin:/sbin:/usr/local/teTeX/bin/powerpc-apple-darwin-current
>>
>> I'm confused about where the reference to the old teTeX
>> installation, at the end of the path, is coming from.   I ran grep
>> looking for teTeX in /etc, all the hidden files in my home
>> directory, and in ~/Library/Preferences/Aquamacs\ Emacs.  I didn't
>> find it in any file that, to my knowledge, is read by the shell or
>> by Aquamacs.  The only remotely likely one is ~/.bash_profile~, an
>> old backup file from the time I changed TeX installations.
>
>
> The path /usr/local/teTeX/bin/powerpc-apple-darwin-current is
> erroneously added by Aquamacs.  It shouldn't hurt.
>
> The /opt stuff is what worries me more.  This is NOT present in the
> situation where you don't get a correct environment.
>
> It appears that even though the shell runs, it does not read the right
> environment.
>
>> The /opt/local paths are set in ~/.bash_profile.
>
> Did you already send me your .bash_profile?
>
> To test a workaround, please create a file at
>
> ~/Library/Application Support/Aquamacs Emacs/site-prestart.el
>
> and copy and paste the code below in.
>
> Does this fix the problem reliably?  You may have to try starting
> Aquamacs a few times.
>
> Thanks for your help
> - David
>
>
>
>
> ;;from mac-extra-functions.el, version 1.63
>
> (defun mac-read-environment-vars-from-shell ()
> "Import the environment from the system's default login shell
> specified in `shell-file-name'."
>     (with-temp-buffer
>       ;; execute 'printenv' with the default login shell,
>       ;; running the shell with -l (to load the environment)
>       (setq default-directory "~/")    ; ensure it can be executed
>       ;; To Do: use call-process instead -> this here
>       ;; will invoke two bashes
>
>       (let ((shell-login-switch
>         (or shell-login-switch
>         (if (string-match ".*/\\(ba\\|z\\)sh" shell-file-name)
>             "-l"
>           (if (string-match ".*/\\tcsh" shell-file-name)
>             ""
>           (if (string-match ".*/ksh" shell-file-name)
>               "" ;; works for ksh
>             (message "Could not retrieve login shell environment  
> with login
> shell: %s" shell-file-name)
>           ;; won't work for csh, because it doesn't take -l -c ...
>           ))))))
>
>    (call-process shell-file-name nil
>           t nil
>            shell-login-switch
>        shell-command-switch
>        "printenv"))
>       (goto-char (point-min))
>       (while (re-search-forward "^[A-Za-z_0-9]+=()\s*[^\x]*?
> \s*}\s*$" nil t)
>    (replace-match "..." nil nil))
>       (goto-char (point-min))
>       (while (search-forward-regexp "^\\([A-Za-z_0-9]+\\)=\\(.*\\)$"
> nil t)
>    (setenv
>     (match-string 1)
>     (if (equal (match-string 1) "PATH")
>         (concat (match-string 2) ":" (getenv "PATH"))
>         (match-string 2))))))
>
> -------------- next part --------------
> A non-text attachment was scrubbed...
> Name: smime.p7s
> Type: application/pkcs7-signature
> Size: 2193 bytes
> Desc: not available
>
> ------------------------------
>
> Message: 2
> Date: Wed, 25 Jun 2008 17:50:50 +0100
> From: David Reitter <david.reitter@...>
> Subject: Re: [Aquamacs-bugs] Aquamacs Bug Report
> To: Christoph Ortner <christoph.ortner@...>
> Cc: "aquamacs-bugs@... Bugs" <aquamacs-bugs@...>
> Message-ID: <10F202A5-1571-4290-8AFA-373C66C794A4@...>
> Content-Type: text/plain; charset="us-ascii"
>
> Does this go away when you resize the whole window slightly?
>
>
> On 25 Jun 2008, at 17:42, Christoph Ortner wrote:
>
>> (The message didn't get through to aquamacs-bugs@...)
>>
>> Begin forwarded message:
>>
>>> From: Christoph Ortner <christoph.ortner@...>
>>> Date: 25 June 2008 17:40:27 BST
>>> To: aquamacs-bugs@...
>>> Subject: Aquamacs Bug Report
>>>
>>> Enter your bug report here.
>>>
>>> The "Wrap and re-format" command (ALT+Q) appears to be broken when
>>> the font size is larger than 12. After setting the fontsize to 14,
>>> it appears that the editor wraps the text as if it were still
>>> fontsize 12. (cf. images) (This doesn't appear to happen for
>>> fontsizes smaller than 12, 13 seems to be ok as well)
>>>
>>> Many thanks, Christoph
>>>
>>>
>> <Picture 2.png><Picture 1.png>
>>>
>>>
>>>
>>> In GNU Emacs 22.2.50.2 (i386-apple-darwin9.2.2, Carbon Version  
>>> 1.6.0)
>>> of 2008-06-17 on plume.sr.unh.edu - Aquamacs Distribution 1.4
>>> Windowing system distributor `Apple Inc.', version 10.5.2
>>> configured using `configure  '--without-x' '--prefix=/usr/local''
>>>
>>> Important settings:
>>> value of $LC_ALL: nil
>>> value of $LC_COLLATE: nil
>>> value of $LC_CTYPE: nil
>>> value of $LC_MESSAGES: nil
>>> value of $LC_MONETARY: nil
>>> value of $LC_NUMERIC: nil
>>> value of $LC_TIME: nil
>>> value of $LANG: nil
>>> locale-coding-system: iso-8859-1
>>> default-enable-multibyte-characters: t
>>>
>>> Major mode: LaTeX/FS
>>>
>>> Minor modes in effect:
>>> reftex-mode: t
>>> TeX-fold-mode: t
>>> TeX-source-specials-mode: t
>>> savehist-mode: t
>>> smart-frame-positioning-mode: t
>>> longlines-mode: t
>>> recentf-mode: t
>>> encoded-kbd-mode: t
>>> osx-key-mode: t
>>> tabbar-mwheel-mode: t
>>> tabbar-mode: t
>>> show-paren-mode: t
>>> delete-selection-mode: t
>>> pc-selection-mode: t
>>> cua-mode: t
>>> tooltip-mode: t
>>> tool-bar-mode: t
>>> mouse-wheel-mode: t
>>> use-hard-newlines: t
>>> menu-bar-mode: t
>>> file-name-shadow-mode: t
>>> global-font-lock-mode: t
>>> font-lock-mode: t
>>> blink-cursor-mode: t
>>> unify-8859-on-encoding-mode: t
>>> utf-translate-cjk-mode: t
>>> auto-compression-mode: t
>>> column-number-mode: t
>>> line-number-mode: t
>>> transient-mark-mode: t
>>>
>>> Recent input:
>>> / ^ 2 $ SPC i s SPC n o t SPC r e a l l y SPC n e e
>>> d e d , SPC a n d SPC w e SPC w o u l d SPC u s e SPC
>>> $ \ b e t a SPC = SPC A-s ( 1 - \ t h e t a ^ 2 ) /
>>> ( 1 + C _ { \ r m SPC r e l } ) $ SPC t h e n . A-s
>>> A-s A-s A-s C-c C-c <return> <down-mouse-1> <mouse-movement>
>>> <mouse-1> <right> <M-right> <M-right> <M-right> <M-right>
>>> <right> <right> <right> <M-right> <M-right> <M-right>
>>> <M-right> <M-right> <right> <right> <right> <right>
>>> <right> <backspace> <backspace> M-a <down-mouse-1>
>>> <mouse-1> ^ 2 A-s <down-mouse-1> <mouse-1> ^ 2 A-s
>>> C-c C-c <return> <down-mouse-1> <mouse-1> <left> ,
>>> SPC m a b <backspace> y b e SPC w i t h SPC s o m e
>>> SPC n o r m - e q u i v a l e n c e s SPC a n d SPC
>>> s l o t t i n g SPC t h e SPC $ \ g a m m a $ SPC b
>>> a c k SPC i n A-s M-q C-c C-c <return> y <return> <down-mouse-1>
>>> <mouse-1> <down-mouse-1> <mouse-1> <right> <backspace>
>>> <left> <backspace> <backspace> A-s C-c C-c <return>
>>> A-z A-z A-z A-s C-c C-c <return> <down-mouse-1> <mouse-1>
>>> <S-left> + A-s C-c C-c <return> <down-mouse-1> <mouse-1>
>>> <right> 0 . SPC I s SPC t h i s SPC r e a s o n a b
>>> l e ? SPC A-s A-s A-s C-c C-c <return> C-c C-t C-p
>>> C-c C-c <return> C-c C-c <return> <return> A-w <down-mouse-1>
>>> <mouse-movement> <mouse-movement> <mouse-movement>
>>> <mouse-movement> <drag-mouse-1> <down-mouse-1> <mouse-1>
>>> <A-down> <help-echo> <help-echo> <help-echo> <menu-bar>
>>> <help-menu> <send-emacs-bug-report>
>>>
>>> Recent messages:
>>> LaTeX: successfully formatted {1} page.
>>> Wrote /Users/cortner/Documents/Projects/ABEM/ch-note3/ch-note3.tex
>>> (No changes need to be saved) [2 times]
>>> Type `C-c C-l' to display results of compilation.
>>> LaTeX: successfully formatted {1} page.
>>> Tex-Pdf mode enabled
>>> Type `C-c C-l' to display results of compilation.
>>> LaTeX: successfully formatted {1} page.
>>> Mark set
>>> Loading emacsbug...done
>>
>
> -------------- next part --------------
> A non-text attachment was scrubbed...
> Name: smime.p7s
> Type: application/pkcs7-signature
> Size: 2193 bytes
> Desc: not available
>
> ------------------------------
>
> Message: 3
> Date: Wed, 25 Jun 2008 19:24:43 +0100
> From: David Reitter <david.reitter@...>
> Subject: Re: [Aquamacs-bugs] Aquamacs Bug Report
> To: Christoph Ortner <christoph.ortner@...>
> Cc: "aquamacs-bugs@... Bugs" <aquamacs-bugs@...>
> Message-ID: <84116716-B439-4D01-8441-C2B544DD5729@...>
> Content-Type: text/plain; charset="us-ascii"
>
> I believe that this bug is due to the underlying GNU Emacs.
> I can only recommend to use a different font, or not use these font
> sizes for now.
> Lucida Grande works fine for me.
>
> - D
>
>
> --
> http://aquamacs.org -- Aquamacs: Emacs on Mac OS X
> http://aquamacs.org/donate -- Could we help you? Return the favor and
> support the Aquamacs Project!
>
>
>
>
>
>
> On 25 Jun 2008, at 18:10, Christoph Ortner wrote:
>
>> No, it doesn't. Christoph
>>
>> On 25 Jun 2008, at 17:50, David Reitter wrote:
>>
>>> Does this go away when you resize the whole window slightly?
>>>
>>>
>>> On 25 Jun 2008, at 17:42, Christoph Ortner wrote:
>>>
>>>> (The message didn't get through to aquamacs-bugs@...)
>>>>
>>>> Begin forwarded message:
>>>>
>>>>> From: Christoph Ortner <christoph.ortner@...>
>>>>> Date: 25 June 2008 17:40:27 BST
>>>>> To: aquamacs-bugs@...
>>>>> Subject: Aquamacs Bug Report
>>>>>
>>>>> Enter your bug report here.
>>>>>
>>>>> The "Wrap and re-format" command (ALT+Q) appears to be broken
>>>>> when the font size is larger than 12. After setting the fontsize
>>>>> to 14, it appears that the editor wraps the text as if it were
>>>>> still fontsize 12. (cf. images) (This doesn't appear to happen
>>>>> for fontsizes smaller than 12, 13 seems to be ok as well)
>>>>>
>>>>> Many thanks, Christoph
>>>>>
>>>>>
>>>> <Picture 2.png><Picture 1.png>
>>>>>
>>>>>
>>>>>
>>>>> In GNU Emacs 22.2.50.2 (i386-apple-darwin9.2.2, Carbon Version
>>>>> 1.6.0)
>>>>> of 2008-06-17 on plume.sr.unh.edu - Aquamacs Distribution 1.4
>>>>> Windowing system distributor `Apple Inc.', version 10.5.2
>>>>> configured using `configure  '--without-x' '--prefix=/usr/local''
>>>>>
>>>>> Important settings:
>>>>> value of $LC_ALL: nil
>>>>> value of $LC_COLLATE: nil
>>>>> value of $LC_CTYPE: nil
>>>>> value of $LC_MESSAGES: nil
>>>>> value of $LC_MONETARY: nil
>>>>> value of $LC_NUMERIC: nil
>>>>> value of $LC_TIME: nil
>>>>> value of $LANG: nil
>>>>> locale-coding-system: iso-8859-1
>>>>> default-enable-multibyte-characters: t
>>>>>
>>>>> Major mode: LaTeX/FS
>>>>>
>>>>> Minor modes in effect:
>>>>> reftex-mode: t
>>>>> TeX-fold-mode: t
>>>>> TeX-source-specials-mode: t
>>>>> savehist-mode: t
>>>>> smart-frame-positioning-mode: t
>>>>> longlines-mode: t
>>>>> recentf-mode: t
>>>>> encoded-kbd-mode: t
>>>>> osx-key-mode: t
>>>>> tabbar-mwheel-mode: t
>>>>> tabbar-mode: t
>>>>> show-paren-mode: t
>>>>> delete-selection-mode: t
>>>>> pc-selection-mode: t
>>>>> cua-mode: t
>>>>> tooltip-mode: t
>>>>> tool-bar-mode: t
>>>>> mouse-wheel-mode: t
>>>>> use-hard-newlines: t
>>>>> menu-bar-mode: t
>>>>> file-name-shadow-mode: t
>>>>> global-font-lock-mode: t
>>>>> font-lock-mode: t
>>>>> blink-cursor-mode: t
>>>>> unify-8859-on-encoding-mode: t
>>>>> utf-translate-cjk-mode: t
>>>>> auto-compression-mode: t
>>>>> column-number-mode: t
>>>>> line-number-mode: t
>>>>> transient-mark-mode: t
>>>>>
>>>>> Recent input:
>>>>> / ^ 2 $ SPC i s SPC n o t SPC r e a l l y SPC n e e
>>>>> d e d , SPC a n d SPC w e SPC w o u l d SPC u s e SPC
>>>>> $ \ b e t a SPC = SPC A-s ( 1 - \ t h e t a ^ 2 ) /
>>>>> ( 1 + C _ { \ r m SPC r e l } ) $ SPC t h e n . A-s
>>>>> A-s A-s A-s C-c C-c <return> <down-mouse-1> <mouse-movement>
>>>>> <mouse-1> <right> <M-right> <M-right> <M-right> <M-right>
>>>>> <right> <right> <right> <M-right> <M-right> <M-right>
>>>>> <M-right> <M-right> <right> <right> <right> <right>
>>>>> <right> <backspace> <backspace> M-a <down-mouse-1>
>>>>> <mouse-1> ^ 2 A-s <down-mouse-1> <mouse-1> ^ 2 A-s
>>>>> C-c C-c <return> <down-mouse-1> <mouse-1> <left> ,
>>>>> SPC m a b <backspace> y b e SPC w i t h SPC s o m e
>>>>> SPC n o r m - e q u i v a l e n c e s SPC a n d SPC
>>>>> s l o t t i n g SPC t h e SPC $ \ g a m m a $ SPC b
>>>>> a c k SPC i n A-s M-q C-c C-c <return> y <return> <down-mouse-1>
>>>>> <mouse-1> <down-mouse-1> <mouse-1> <right> <backspace>
>>>>> <left> <backspace> <backspace> A-s C-c C-c <return>
>>>>> A-z A-z A-z A-s C-c C-c <return> <down-mouse-1> <mouse-1>
>>>>> <S-left> + A-s C-c C-c <return> <down-mouse-1> <mouse-1>
>>>>> <right> 0 . SPC I s SPC t h i s SPC r e a s o n a b
>>>>> l e ? SPC A-s A-s A-s C-c C-c <return> C-c C-t C-p
>>>>> C-c C-c <return> C-c C-c <return> <return> A-w <down-mouse-1>
>>>>> <mouse-movement> <mouse-movement> <mouse-movement>
>>>>> <mouse-movement> <drag-mouse-1> <down-mouse-1> <mouse-1>
>>>>> <A-down> <help-echo> <help-echo> <help-echo> <menu-bar>
>>>>> <help-menu> <send-emacs-bug-report>
>>>>>
>>>>> Recent messages:
>>>>> LaTeX: successfully formatted {1} page.
>>>>> Wrote /Users/cortner/Documents/Projects/ABEM/ch-note3/ch-note3.tex
>>>>> (No changes need to be saved) [2 times]
>>>>> Type `C-c C-l' to display results of compilation.
>>>>> LaTeX: successfully formatted {1} page.
>>>>> Tex-Pdf mode enabled
>>>>> Type `C-c C-l' to display results of compilation.
>>>>> LaTeX: successfully formatted {1} page.
>>>>> Mark set
>>>>> Loading emacsbug...done
>>>>
>>>
>>
>
>
> -------------- next part --------------
> A non-text attachment was scrubbed...
> Name: smime.p7s
> Type: application/pkcs7-signature
> Size: 2193 bytes
> Desc: not available
>
> ------------------------------
>
> Message: 4
> Date: Wed, 25 Jun 2008 08:32:40 -1000
> From: "Thomas S. Dye" <tsd@...>
> Subject: Re: [Aquamacs-bugs] $PATH lost again
> To: "aquamacs-bugs@... Bugs" <aquamacs-bugs@...>
> Message-ID: <A6321D94-4D1F-4F91-8CC9-E7FD6B8B449C@...>
> Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes
>
> Aloha David,
>
> The new site-prestart.el makes a difference.  I started three times
> (from the dock) and got the same results each time.  I opened a file
> with Aquamacs (Ctrl-click, Open With) and got identical results.
> Here is the output of env, called from the shell within Aquamacs:
>
>> Reading ~/.bashrc
>> bash-3.2$ env
>> MANPATH=/usr/share/man:/usr/local/share/man:/usr/local/man:/Library/
>> TeX/Distributions/.DefaultTeX/Contents/Man:/usr/X11/man
>> SHELL=/bin/bash
>> TERM=dumb
>> TMPDIR=/var/folders/zU/zUzt2wa82RWIjU+BYwDY8U+++TM/-Tmp-/
>> Apple_PubSub_Socket_Render=/tmp/launch-YOoXYE/Render
>> EMACSDATA=/Applications/Aquamacs Emacs.app/Contents/Resources/etc
>> EMACSPATH=/Applications/Aquamacs Emacs.app/Contents/MacOS/libexec:/
>> Applications/Aquamacs Emacs.app/Contents/MacOS/bin
>> USER=dk
>> EMACS=t
>> COMMAND_MODE=unix2003
>> SSH_AUTH_SOCK=/tmp/launch-Ep1MIE/Listeners
>> TERMCAP=
>> __CF_USER_TEXT_ENCODING=0x1F6:0:0
>> COLUMNS=80
>> PATH=/opt/local/bin:/opt/local/sbin:/opt/local/bin:/opt/local/sbin:/
>> usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin:/usr/texbin:/usr/X11/
>> bin:/usr/local/bin:/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin:/opt/
>> local/bin:/opt/local/sbin:/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/
>> bin:/usr/texbin:/usr/X11/bin:/usr/local/bin:/usr/bin:/bin:/usr/sbin:/
>> sbin:/usr/local/teTeX/bin/powerpc-apple-darwin-current
>> PWD=/Users/dk
>> EDITOR=/usr/bin/emacs
>> EMACSLOADPATH=/Applications/Aquamacs Emacs.app/Contents/Resources/
>> site-lisp:/Applications/Aquamacs Emacs.app/Contents/Resources/lisp:/
>> Applications/Aquamacs Emacs.app/Contents/Resources/leim
>> HOME=/Users/dk
>> SHLVL=3
>> LOGNAME=dk
>> PYTHONPATH=/Library/Python/2.5/site-packages
>> DISPLAY=:0.0
>> INSIDE_EMACS=22.2.50.2,comint
>> SECURITYSESSIONID=8999c0
>> EMACSDOC=/Applications/Aquamacs Emacs.app/Contents/Resources/etc
>> _=/usr/bin/env
>> bash-3.2$
>
> Here is my .bash_profile:
>
>> Macintosh:~ dk$ less .bash_profile
>> echo "Reading ~/.bash_profile"
>>
>> export PATH=$PATH:/usr/local/bin
>>
>> export PYTHONPATH=/Library/Python/2.5/site-packages
>>
>> export PATH=/opt/local/bin:/opt/local/sbin:$PATH
>> export DISPLAY=:0.0
>> export EDITOR=/usr/bin/emacs
>>
>> source .bashrc
>
>
> Hope this helps.
>
> Tom
>
> On Jun 25, 2008, at 6:26 AM, David Reitter wrote:
>
>> Tom,
>>
>>>
>>>
>>> I took a look at the PATH environment reported by the env command
>>> issued from the shell in Aquamacs.
>>>
>>> PATH=/opt/local/bin:/opt/local/sbin:/usr/bin:/bin:/usr/sbin:/sbin:/
>>> usr/local/bin:/usr/texbin:/usr/X11/bin:/usr/local/bin:/usr/bin:/
>>> bin:/usr/sbin:/sbin:/usr/local/teTeX/bin/powerpc-apple-darwin-
>>> current
>>>
>>> I'm confused about where the reference to the old teTeX
>>> installation, at the end of the path, is coming from.   I ran grep
>>> looking for teTeX in /etc, all the hidden files in my home
>>> directory, and in ~/Library/Preferences/Aquamacs\ Emacs.  I didn't
>>> find it in any file that, to my knowledge, is read by the shell or
>>> by Aquamacs.  The only remotely likely one is ~/.bash_profile~, an
>>> old backup file from the time I changed TeX installations.
>>
>>
>> The path /usr/local/teTeX/bin/powerpc-apple-darwin-current is
>> erroneously added by Aquamacs.  It shouldn't hurt.
>>
>> The /opt stuff is what worries me more.  This is NOT present in the
>> situation where you don't get a correct environment.
>>
>> It appears that even though the shell runs, it does not read the
>> right environment.
>>
>>> The /opt/local paths are set in ~/.bash_profile.
>>
>> Did you already send me your .bash_profile?
>>
>> To test a workaround, please create a file at
>>
>> ~/Library/Application Support/Aquamacs Emacs/site-prestart.el
>>
>> and copy and paste the code below in.
>>
>> Does this fix the problem reliably?  You may have to try starting
>> Aquamacs a few times.
>>
>> Thanks for your help
>> - David
>>
>>
>>
>>
>> ;;from mac-extra-functions.el, version 1.63
>>
>> (defun mac-read-environment-vars-from-shell ()
>> "Import the environment from the system's default login shell
>> specified in `shell-file-name'."
>>   (with-temp-buffer
>>     ;; execute 'printenv' with the default login shell,
>>     ;; running the shell with -l (to load the environment)
>>     (setq default-directory "~/")    ; ensure it can be executed
>>     ;; To Do: use call-process instead -> this here
>>     ;; will invoke two bashes
>>
>>     (let ((shell-login-switch
>>         (or shell-login-switch
>>         (if (string-match ".*/\\(ba\\|z\\)sh" shell-file-name)
>>             "-l"
>>           (if (string-match ".*/\\tcsh" shell-file-name)
>>             ""
>>           (if (string-match ".*/ksh" shell-file-name)
>>               "" ;; works for ksh
>>             (message "Could not retrieve login shell environment with
>> login shell: %s" shell-file-name)
>>           ;; won't work for csh, because it doesn't take -l -c ...
>>           ))))))
>>
>>    (call-process shell-file-name nil
>>           t nil
>>            shell-login-switch
>>        shell-command-switch
>>        "printenv"))
>>     (goto-char (point-min))
>>     (while (re-search-forward "^[A-Za-z_0-9]+=()\s*[^\x]*?
>> \s*}\s*$" nil t)
>>    (replace-match "..." nil nil))
>>     (goto-char (point-min))
>>     (while (search-forward-regexp "^\\([A-Za-z_0-9]+\\)=\\(.*\\)$"
>> nil t)
>>    (setenv
>>     (match-string 1)
>>     (if (equal (match-string 1) "PATH")
>>         (concat (match-string 2) ":" (getenv "PATH"))
>>         (match-string 2))))))
>>
>
>
>
>
> ------------------------------
>
> ---
> ----------------------------------------------------------------------
> Check out the new SourceForge.net Marketplace.
> It's the best place to buy or sell services for
> just about anything Open Source.
> http://sourceforge.net/services/buy/index.php
>
> ------------------------------
>
> _______________________________________________
> Aquamacs-bugs mailing list
> Aquamacs-bugs@...
> https://lists.sourceforge.net/lists/listinfo/aquamacs-bugs
>
>
> End of Aquamacs-bugs Digest, Vol 25, Issue 18
> *********************************************