home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / may94 / util / edit / jade.lha / Jade / lisp / edit.jlc < prev    next >
Text File  |  1994-04-20  |  4KB  |  69 lines
  1.  
  2. (defvar word-regexp "[a-zA-Z0-9]" 58288)
  3.  
  4. (defvar word-not-regexp "[^a-zA-Z0-9]|$" 58344)
  5.  
  6. (defvar paragraph-regexp "^ *$" 58409)
  7.  
  8. (set-buffer-variable (quote word-regexp))
  9.  
  10. (set-buffer-variable (quote word-not-regexp))
  11.  
  12. (set-buffer-variable (quote paragraph-regexp))
  13.  
  14. (defvar auto-mark (make-mark) 58480)
  15.  
  16. (defun forward-word (&optional number pos) 58548 (lisp-code "ÿ€‡F Hÿ€F\"Hfü€âcþ€Ý\tF\"H†‡\nþ€¼ˆ‰\nF\"ÿ€¼Š‹\tHˆ‡\nF\"ÿ€ÍŠ‹\tHŒ‰\n\"hF Hû€—Hû¥Jü¤cþŸ†‡\nþ…Œ‰\nF\"ÿ…Š\tHŒ‡\nF\"ÿ–Š\tHiF Hû€æHû¥I" [number 1 pos cursor-pos 0 prev-char looking-at word-not-regexp find-prev-regexp word-regexp error "Start of buffer" find-next-regexp "End of buffer"] 3))
  17.  
  18. (defun backward-word (&optional number pos) 58708 (lisp-code "ü€ŠWû€‹\n" [forward-word number -1 pos] 3))
  19.  
  20. (defun word-start (&optional pos) (lisp-code "\nþ€™\nÿ€’†\tH‡ˆ\n" [looking-at word-regexp pos find-prev-regexp word-not-regexp error "Start of buffer" find-next-regexp find-last-end-pos] 3))
  21.  
  22. (defun in-word-p (&optional pos) 58778 (lisp-code "\nþ€ˆJ" [looking-at word-regexp pos] 3))
  23.  
  24. (defun mark-word (&optional pos) 58831 (lisp-code "Hü€Œû€Ž\tH\t\t" [block-kill block-start pos cursor-pos block-end forward-word] 3))
  25.  
  26. (defun next-paragraph (&optional pos buf) 58872 (lisp-code "ü€\tû€\t† ÿ€™‡" [find-next-regexp paragraph-regexp next-char pos dup-pos cursor-pos buf file-end] 5))
  27.  
  28. (defun prev-paragraph (&optional pos buf) 58961 (lisp-code "ü€\tû€\t† ÿ€™‡" [find-prev-regexp paragraph-regexp prev-char pos dup-pos cursor-pos buf file-start] 5))
  29.  
  30. (defun mark-paragraph nil 59038 (lisp-code "HD2\tH\t\tE" [block-kill next-paragraph par block-end block-start prev-paragraph] 3))
  31.  
  32. (defun copy-block (&aux rc) 59101 (lisp-code "þ€ü€û€† F&‡HˆH‡" [blockp funcall rect-blocks-p copy-rect copy-area block-start block-end rc block-kill] 4))
  33.  
  34. (defun cut-block (&aux rc) 59208 (lisp-code "þ€ü€û€† F&‡HˆH‡" [blockp funcall rect-blocks-p cut-rect cut-area block-start block-end rc block-kill] 4))
  35.  
  36. (defun delete-block nil 59285 (lisp-code "þ€šü€û€† H‡" [blockp funcall rect-blocks-p delete-rect delete-area block-start block-end block-kill] 4))
  37.  
  38. (defun insert-block (&optional pos) 59364 (lisp-code "þ€§ü€—\n†\nû€£‡ˆ\n†\nH‰" [blockp rect-blocks-p insert-rect copy-rect block-start block-end pos insert copy-area block-kill] 4))
  39.  
  40. (defun toggle-rect-blocks nil (lisp-code "I]\n" [set-rect-blocks rect-blocks-p] 3))
  41.  
  42. (defvar search-regexp nil)
  43.  
  44. (defvar replace-regexp nil)
  45.  
  46. (defun search-forward (&optional unask) (lisp-code "ÿ€Š\nF#Hþ€›H†‡\n\t" [unask prompt "Find forwards: " search-regexp set-auto-mark goto find-next-regexp next-char] 4))
  47.  
  48. (defun search-backward (&optional unask) (lisp-code "ÿ€Š\nF#Hþ€›H†‡\n\t" [unask prompt "Find backwards: " search-regexp set-auto-mark goto find-prev-regexp prev-char] 4))
  49.  
  50. (defun simple-replace (&optional unask) (lisp-code "]þ€‹\nF#Hþ€”\nþ€¡H†‡\t\t" [unask prompt "Replace with: " replace-regexp search-regexp set-auto-mark goto find-next-regexp] 3))
  51.  
  52. (defun upcase-area (start end &optional buf) 59477 (lisp-code " " [translate-area start end upcase-table buf] 5))
  53.  
  54. (defun downcase-area (start end &optional buf) 59589 (lisp-code " " [translate-area start end downcase-table buf] 5))
  55.  
  56. (defun upcase-block nil 59703 (lisp-code "þ€Ž\nH" [blockp upcase-area block-start block-end block-kill] 3))
  57.  
  58. (defun downcase-block nil 59781 (lisp-code "þ€Ž\nH" [blockp downcase-area block-start block-end block-kill] 3))
  59.  
  60. (defun upcase-word nil 59861 (lisp-code "D1\nH\tE" [forward-word pos upcase-area cursor-pos goto] 3))
  61.  
  62. (defun downcase-word nil 59919 (lisp-code "D1\nH\tE" [forward-word pos downcase-area cursor-pos goto] 3))
  63.  
  64. (defun mark-region nil 59979 (lisp-code "H\tI²aþ€½HD4\tdü€©†\t\tH‡\tû€¼Jü€»†\tH‡\t\tû€¼IE" [block-kill mark-file auto-mark cursor-pos curs mark-pos block-start block-end] 3))
  65.  
  66. (defun abort-recursive-edit (&optional ret-val) 60071 (lisp-code "t" [exit ret-val] 2))
  67.  
  68. (defun top-level nil 60160 (lisp-code "It" [top-level] 2))
  69.