make-lpath

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