bash_profile: Split check-for-program code into its own function.

[profile] / bash_profile

diff --git a/bash_profile b/bash_profile
index 22931b0de487c285dbe67655887352477e3db7a7..287f3cbed2f5fc1a2ebe3b557102d55f6f198d0a 100644 (file)
--- a/bash_profile
+++ b/bash_profile
@@ -80,6 +80,10 @@ if [ -d /usr/local/plan9 ]; then
     $PLAN9/bin
 fi
 
+# --- Find whether a program exists ---
+
+__mdw_programp () { type -t >/dev/null "$1"; }
+
 # --- And the same for manual pages ---
 
 case "$MACHTIME" in
@@ -103,7 +107,7 @@ export QMAILINJECT=c
 export EDITOR=ed
 for ed in "emacs21 -nw" "emacs -nw" vi pico nano ae; do
   name=`echo $ed | sed 's/ .*$//'`
-  if type -t >/dev/null "$name"; then
+  if __mdw_programp "$name"; then
     EDITOR=$ed
     break
   fi