home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / AP / JED / JED097-1.TAR / jed / lib / os.sl < prev    next >
Encoding:
Text File  |  1994-12-12  |  535 b   |  16 lines
  1. % This file should not be byte-compiled.
  2. % It is loaded from site.sl and permits various flavors of jed to share the
  3. % same set of S-Lang files.
  4.  
  5. % It is written in RPN for efficiency.
  6.  
  7. #ifdef XWINDOWS
  8. . "mouse" evalfile pop
  9. . "HOST" getenv =$1
  10. . $1 strlen { "XJed@" $1 strcat x_set_window_name } if
  11. . "skip_word"         "^[[c" setkey      %/* shift-right */
  12. . "bskip_word"        "^[[d" setkey      %/* shift-left */
  13. . "goto_top_of_window"    "^[[a" setkey      %/* shift-up */
  14. . "goto_bottom_of_window"    "^[[b" setkey      %/* shift-down */
  15. #endif
  16.