;;; Source file: /usr/local/lib/jade/3.2/lisp/edit.jl ;;; Compiled by jsh@orcrist on Sun Oct 16 20:21:10 1994 ;;; Jade 3.2 (defvar word-regexp "[a-zA-Z0-9]" 88175) (defvar word-not-regexp "[^a-zA-Z0-9]|$" 88231) (defvar paragraph-regexp "^[ ]*$" 88296) (make-variable-buffer-local (quote word-regexp)) (make-variable-buffer-local (quote word-not-regexp)) (make-variable-buffer-local (quote paragraph-regexp)) (defvar auto-mark (make-mark) 88367) (defun forward-word (&optional number pos move) 88435 (interactive "p t") (jade-byte-code "ÿF HÿF\"Hfüacþ^ F\"H þ=  F\"ÿ=  H F\"ÿN  H   \"hF Hûû¢Jü¡cþž þ„   F\"ÿ„  H  F\"ÿ•  HiF Hûeû¢IHþ¬ H" [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" move goto-char] 3)) (defun backward-word (&optional number pos move) 88629 (interactive "p t") (jade-byte-code "ü Wû  " [forward-word number -1 pos move] 4)) (defun kill-word (count) 88673 (interactive "p") (jade-byte-code " " [kill-area cursor-pos forward-word count] 4)) (defun backward-kill-word (count) 88719 (interactive "p") (jade-byte-code "W  " [kill-area forward-word count cursor-pos] 3)) (defun word-start (&optional pos) 88767 (jade-byte-code " þ ÿ H " [looking-at word-regexp pos find-prev-regexp word-not-regexp error "Start of buffer" find-next-regexp match-end] 3)) (defun in-word-p (&optional pos) 88817 (jade-byte-code " þJ" [looking-at word-regexp pos] 3)) (defun mark-word (count &optional pos) 88852 (interactive "p") (jade-byte-code "II Hÿ  " [set-rect-blocks mark-block pos cursor-pos forward-word count] 5)) (defun transpose-words (count) 88880 (interactive "p") (jade-byte-code " " [transpose-items forward-word backward-word count] 4)) (defun forward-paragraph (&optional pos buf move) 88939 (interactive " t") (jade-byte-code "ü û  ÿF$H þ'  H" [find-next-regexp paragraph-regexp next-char 1 pos copy-pos cursor-pos buf buffer-end move goto-char] 6)) (defun backward-paragraph (&optional pos buf move) 89050 (interactive " t") (jade-byte-code "ü û  ÿF$H þ'  H" [find-prev-regexp paragraph-regexp prev-char 1 pos copy-pos cursor-pos buf buffer-start move goto-char] 6)) (defun mark-paragraph nil 89144 (interactive) (jade-byte-code "D1II H  E" [forward-paragraph par set-rect-blocks mark-block backward-paragraph] 3)) (defun copy-block (&aux rc) 89190 (jade-byte-code "þüû F&HH" [blockp funcall rect-blocks-p copy-rect copy-area block-start block-end rc block-kill] 4)) (defun cut-block (&aux rc) 89284 (jade-byte-code "þüû F&HH" [blockp funcall rect-blocks-p cut-rect cut-area block-start block-end rc block-kill] 4)) (defun delete-block nil 89371 (interactive) (jade-byte-code "þüû H" [blockp funcall rect-blocks-p delete-rect delete-area block-start block-end block-kill] 4)) (defun insert-block (&optional pos) 89435 (interactive) (jade-byte-code "þ'ü  û#  H " [blockp rect-blocks-p insert-rect copy-rect block-start block-end pos insert copy-area block-kill] 4)) (defun toggle-rect-blocks nil 89527 (interactive) (jade-byte-code "I] " [set-rect-blocks rect-blocks-p] 3)) (defun kill-block nil 89650 (interactive) (jade-byte-code " " [kill-string cut-block] 2)) (defun copy-block-as-kill nil 89689 (interactive) (jade-byte-code " " [kill-string copy-block] 2)) (defun mark-block (start end) 89775 (jade-byte-code "ü HûH H " [blockp block-kill refresh-all block-start start block-end end] 2)) (defun mark-whole-buffer nil 89892 (interactive) (jade-byte-code "II H " [set-rect-blocks mark-block buffer-start buffer-end] 3)) (defun upcase-area (start end &optional buffer) 89941 (interactive "-m M") (jade-byte-code " " [translate-area start end upcase-table buffer] 5)) (defun downcase-area (start end &optional buffer) 90012 (interactive "-m M") (jade-byte-code " " [translate-area start end downcase-table buffer] 5)) (defun upcase-word (count) 90083 (interactive "p") (jade-byte-code "D 2 H E" [forward-word count pos upcase-area cursor-pos goto-char] 3)) (defun capitalize-word nil 90138 (interactive) (jade-byte-code "ÿ  H HHþ#  " [in-word-p goto-char find-next-regexp word-regexp translate-area cursor-pos next-char upcase-table goto-next-char downcase-word 1] 4)) (defun downcase-word (count) 90239 (interactive "p") (jade-byte-code "D 2 H E" [forward-word count pos downcase-area cursor-pos goto-char] 3)) (defun mark-region nil 90283 (interactive) (jade-byte-code "H I²aþ2D4 dü\"  û1Jü0 û1IE" [block-kill mark-file auto-mark cursor-pos curs mark-pos mark-block] 4)) (defun kill-string (string) 90362 (jade-byte-code "aü û HF&H" [write-clip 0 last-command kill concat killed-string string this-command] 5)) (defun killed-string (&optional depth) 90465 (jade-byte-code "lÿbü û " [depth 0 read-clip error "No string at specified depth in kill storage"] 3)) (defun kill-area (start end) 90598 (interactive "-m M") (jade-byte-code " " [kill-string cut-area start end] 4)) (defun copy-area-as-kill (start end) 90662 (interactive "-m M") (jade-byte-code " " [kill-string copy-area start end] 4)) (defun kill-line (&optional arg) 90749 (interactive "P") (jade-byte-code "D I345lü(eü  û#F#ûN dü; F#ûNJüM# F$ûNIH  E" [prefix-numeric-argument arg cursor-pos end start count line-end line-start next-line 0 kill-area] 3)) (defun kill-whole-line (count) 90913 (interactive "p") (jade-byte-code " " [kill-area line-start next-line count] 5)) (defun backward-kill-line nil 90949 (interactive) (jade-byte-code " küû " [kill-area pos-col cursor-pos prev-char line-start] 3)) (defun yank (&optional dont-yank-block) 90996 (interactive "P") (jade-byte-code "lþüû " [insert dont-yank-block blockp copy-block killed-string] 2)) (defun yank-rectangle (&optional dont-yank-block) 91160 (interactive "P") (jade-byte-code "lþüû " [insert-rect dont-yank-block blockp copy-block killed-string] 2)) (defun yank-to-mouse nil 91235 (interactive) (jade-byte-code " H" [goto-char mouse-pos yank] 2)) (defun transpose-items (forward-item backward-item count) 91358 (jade-byte-code "DIIII0123dþI #   !     F\"H HiF$Hû HfþŠ #   !  \"   F H HhF$HûJE" [end2 end1 start2 start1 count 0 funcall backward-item 1 forward-item copy-pos transpose-1] 5)) (defun transpose-1 nil (jade-byte-code "DII01fü1 ! F H H  H  ûS ! F H  H  H E" [text2 text1 start2 start1 cut-area end1 copy-area end2 insert delete-area goto-char] 4)) (defun abort-recursive-edit (&optional ret-val) 91665 (interactive) (jade-byte-code "t" [exit ret-val] 2)) (defun top-level nil 91732 (interactive) (jade-byte-code "It" [top-level] 2)) (defvar overwrite-mode-p nil 91759) (make-variable-buffer-local (quote overwrite-mode-p)) (defun overwrite-mode nil 91799 (interactive) (jade-byte-code "üIF H H û% HJF H " [overwrite-mode-p remove-minor-mode overwrite-mode "Overwrite" remove-hook unbound-key-hook overwrite-insert add-minor-mode add-hook] 3)) (defun overwrite-insert (&optional str) (jade-byte-code "ÿF HþTF\"H H " [str current-event-string len delete-area cursor-pos right-char insert] 4)) (defun backspace-char (count) 91831 (interactive "p") (jade-byte-code "D 2dü'dü û$H û- E" [prev-char count start cursor-pos line-end goto-char goto-line-end delete-area] 3)) (defun delete-char (count) 91961 (interactive "p") (jade-byte-code " " [delete-area cursor-pos next-char count] 4)) (defun tab-with-spaces nil 92000 (interactive) (jade-byte-code " J " [indent-to pos-col next-tab] 3)) (defun just-spaces (count) 92076 (interactive "p") (jade-byte-code "ˆþ4D 4þ3 Hþ  þ3    H   EH kÿE  " [get-char (32 9) find-prev-regexp "[^ ]|^" pos next-char 1 looking-at "[ ]+" delete-area match-start match-end goto-char count insert make-string 32] 4)) (defun no-spaces nil 92135 (interactive) (jade-byte-code " " [just-spaces 0] 2)) (defun open-line (count) 92195 (interactive "p") (jade-byte-code "D1 H E" [cursor-pos opos insert make-string count 10 goto-char] 4)) (defun transpose-chars (count) 92289 (interactive "p") (jade-byte-code " " [transpose-items next-char prev-char count] 4))