home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / lib / jfile.uem < prev    next >
Encoding:
Text File  |  1995-07-21  |  992 b   |  45 lines
  1. ;  @(#)    JFIL - microEmacs v3.9i+ macro file to load filename under csr
  2. ;
  3. ;   'fnam' is same as 'tag' tags.cmd ( fm where this macro was snarfed )
  4. ;
  5. ;        MJH Feb 1991  v1.0
  6. ;    Bound to C-X J.....
  7. ;
  8. ; Variables :
  9. ;     %fnam     - filename to load
  10.  
  11. ;+ Examine how setup/use procedure names !!!
  12.  
  13. set $discmd FALSE
  14. 28 store-macro
  15.     !if &or &equal $curchar 20 &equal $curchar 9
  16.     next-word
  17.     !else
  18.         !while &equal 0 &sindex " <~"(}*!,~t~n" $char
  19.         backward-character
  20.         !endwhile
  21.  
  22.         set %fnam "./"
  23.         !if &equal $curchar 60      ; "<"
  24.             set %fnam "/usr/include/"
  25.         !endif
  26.     forward-character
  27. ;        previous-word
  28.     !endif
  29.     set %fnam &cat %fnam &chr $curchar
  30.     forward-character
  31.     !while &equal 0 &sindex " (>~"},;~t~n" $char
  32.     set %fnam &cat %fnam $char
  33.     forward-character
  34.     !endwhile
  35.  
  36. ;write-message &cat &cat "fnam ["  %fnam "]"
  37. ;set %wait >k
  38.  
  39.     set-nmark "j" 
  40.     !force find-file %fnam
  41.  
  42. !endm
  43. set $discmd TRUE
  44. bind-to-key execute-macro-28 ^XJ
  45.