fix for set environment variables on osx

Signed-off-by: Andreas Gerler <baronNOSPAMbundesbrandschatzamt.de>

diff --git a/bba.org b/bba.org
index f6545fb29d8a17ac25e40b2937edb45893447e41..da570adb51d781a88df6e9f1afc4adbfd3d8dde1 100644 (file)
--- a/bba.org
+++ b/bba.org
@@ -105,60 +105,62 @@ from bash.
                     (append
                      (split-string-and-unquote path ":")
                      exec-path)))
-            (let ((path (shell-command-to-string ". ~/.bashrc >/dev/null; echo -n $LANG")))
+            (let ((path (shell-command-to-string ". ~/.bashrc 2>/dev/null >/dev/null; echo -n $LANG")))
               (setenv "LANG" path)
               )
-            (let ((path (shell-command-to-string ". ~/.bashrc >/dev/null; echo -n $EMAIL")))
+            (let ((path (shell-command-to-string ". ~/.bashrc 2>/dev/null >/dev/null; echo -n $EMAIL")))
               (setenv "EMAIL" path)
               )
-            (let ((path (shell-command-to-string ". ~/.bashrc >/dev/null; echo -n $ORGANIZATION")))
+            (let ((path (shell-command-to-string ". ~/.bashrc 2>/dev/null >/dev/null; echo -n $ORGANIZATION")))
               (setenv "ORGANIZATION" path)
               )
-            (let ((path (shell-command-to-string ". ~/.bashrc >/dev/null; echo -n $GOPATH")))
+            (let ((path (shell-command-to-string ". ~/.bashrc 2>/dev/null >/dev/null; echo -n $GOPATH")))
               (setenv "GOPATH" path)
               )
-            (let ((path (shell-command-to-string ". ~/.bashrc >/dev/null; echo -n $PYTHONPATH")))
+            (let ((path (shell-command-to-string ". ~/.bashrc 2>/dev/null >/dev/null; echo -n $PYTHONPATH")))
               (setenv "PYTHONPATH" path)
               )
-            (let ((path (shell-command-to-string ". ~/.bashrc >/dev/null; echo -n $SSH_AUTH_SOCK")))
+            (let ((path (shell-command-to-string ". ~/.bashrc 2>/dev/null >/dev/null; echo -n $SSH_AUTH_SOCK")))
               (setq ssh-auth-sock path)
               (setenv "SSH_AUTH_SOCK" path)
               )
-            (let ((path (shell-command-to-string ". ~/.bashrc >/dev/null; pidof ssh-agent | tr -d ' \n'")))
+            (let ((path (shell-command-to-string ". ~/.bashrc 2>/dev/null >/dev/null; pidof ssh-agent | tr -d ' \n'")))
               (setenv "SSH_AGENT_PID" path)
               )
-            (let ((path (shell-command-to-string ". ~/.bashrc >/dev/null; echo -n $GPG_AGENT_INFO")))
+            (let ((path (shell-command-to-string ". ~/.bashrc 2>/dev/null >/dev/null; echo -n $GPG_AGENT_INFO")))
               (setenv "GPG_AGENT_INFO" path)
               )
-            (let ((path (shell-command-to-string ". ~/.bashrc >/dev/null; echo -n $ORACLE_HOME")))
+            (let ((path (shell-command-to-string ". ~/.bashrc 2>/dev/null >/dev/null; echo -n $ORACLE_HOME")))
               (setenv "ORACLE_HOME" path)
               )
-            (let ((path (shell-command-to-string ". ~/.bashrc >/dev/null; echo -n $PERL5LIB")))
+            (let ((path (shell-command-to-string ". ~/.bashrc 2>/dev/null >/dev/null; echo -n $PERL5LIB")))
               (setenv "PERL5LIB" path)
               )
-            (let ((path (shell-command-to-string ". ~/.bashrc >/dev/null; echo -n $CLASSPATH")))
+            (let ((path (shell-command-to-string ". ~/.bashrc 2>/dev/null >/dev/null; echo -n $CLASSPATH")))
               (setenv "CLASSPATH" path)
               )
-            (let ((path (shell-command-to-string ". ~/.bashrc >/dev/null; echo -n $NLS_LANG")))
+            (let ((path (shell-command-to-string ". ~/.bashrc 2>/dev/null >/dev/null; echo -n $NLS_LANG")))
               (setenv "NLS_LANG" path)
               )
-            (let ((path (shell-command-to-string ". ~/.bashrc >/dev/null; echo -n $TNS_ADMIN")))
+            (let ((path (shell-command-to-string ". ~/.bashrc 2>/dev/null >/dev/null; echo -n $TNS_ADMIN")))
               (setenv "TNS_ADMIN" path)
               )
-            (let ((path (shell-command-to-string ". ~/.bashrc >/dev/null; echo -n $DYLD_LIBRARY_PATH")))
+            (let ((path (shell-command-to-string ". ~/.bashrc 2>/dev/null >/dev/null; echo -n $DYLD_LIBRARY_PATH")))
               (setenv "DYLD_LIBRARY_PATH" path)
               )
-            (let ((path (shell-command-to-string ". ~/.bashrc >/dev/null; echo -n $SYSENV")))
+            (let ((path (shell-command-to-string ". ~/.bashrc 2>/dev/null >/dev/null; echo -n $SYSENV")))
               (setenv "SYSENV" path)
               )
-            (let ((path (shell-command-to-string ". ~/.bashrc >/dev/null; echo -n $http_proxy")))
+            (let ((path (shell-command-to-string ". ~/.bashrc 2>/dev/null >/dev/null; echo -n $http_proxy")))
               (setenv "http_proxy" path)
               )
-            (let ((path (shell-command-to-string ". ~/.bashrc >/dev/null; echo -n $https_proxy")))
+            (let ((path (shell-command-to-string ". ~/.bashrc 2>/dev/null >/dev/null; echo -n $https_proxy")))
               (setenv "https_proxy" path)
               )
-            (let ((path (shell-command-to-string ". ~/.bashrc >/dev/null; echo -n $INFOPATH")))
-              (setenv "INFOPATH" path))
+            (let ((infopath (shell-command-to-string ". ~/.bashrc 2>/dev/null >/dev/null; echo -n $INFOPATH")))
+              (setenv "INFOPATH" infopath))
+            (let ((manpath (shell-command-to-string ". ~/.bashrc 2>/dev/null >/dev/null; manpath")))
+              (setenv "MANPATH" manpath))
             (push "/opt/local/share/info" Info-directory-list)))
 #+END_SRC