make-lpath

   1 #!/bin/csh -f
   2
   3 echo "(setq load-path" > loadpath
   4 echo "      (nconc '("'"."' >> loadpath
   5 echo '               "'`pwd`'"' >> loadpath
   6 echo '               "'`(cd ../tl; pwd)`'"' >> loadpath
   7 foreach i ($argv)
   8 echo '               "'$i'"' >> loadpath
   9 end
  10 echo '               ) load-path))' >> loadpath