(defvar word-regexp "[a-zA-Z0-9]" 58288)

(defvar word-not-regexp "[^a-zA-Z0-9]|$" 58344)

(defvar paragraph-regexp "^ *$" 58409)

(set-buffer-variable (quote word-regexp))

(set-buffer-variable (quote word-not-regexp))

(set-buffer-variable (quote paragraph-regexp))

(defvar auto-mark (make-mark) 58480)

(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))

(defun backward-word (&optional number pos) 58708 (lisp-code "ü€ŠWû€‹\n" [forward-word number -1 pos] 3))

(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))

(defun in-word-p (&optional pos) 58778 (lisp-code "\nþ€ˆJ" [looking-at word-regexp pos] 3))

(defun mark-word (&optional pos) 58831 (lisp-code "Hü€Œû€Ž\tH\t\t" [block-kill block-start pos cursor-pos block-end forward-word] 3))

(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))

(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))

(defun mark-paragraph nil 59038 (lisp-code "HD2\tH\t\tE" [block-kill next-paragraph par block-end block-start prev-paragraph] 3))

(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))

(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))

(defun delete-block nil 59285 (lisp-code "þ€šü€�û€�†H‡" [blockp funcall rect-blocks-p delete-rect delete-area block-start block-end block-kill] 4))

(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))

(defun toggle-rect-blocks nil (lisp-code "I]\n" [set-rect-blocks rect-blocks-p] 3))

(defvar search-regexp nil)

(defvar replace-regexp nil)

(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))

(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))

(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))

(defun upcase-area (start end &optional buf) 59477 (lisp-code "" [translate-area start end upcase-table buf] 5))

(defun downcase-area (start end &optional buf) 59589 (lisp-code "" [translate-area start end downcase-table buf] 5))

(defun upcase-block nil 59703 (lisp-code "þ€Ž\nH" [blockp upcase-area block-start block-end block-kill] 3))

(defun downcase-block nil 59781 (lisp-code "þ€Ž\nH" [blockp downcase-area block-start block-end block-kill] 3))

(defun upcase-word nil 59861 (lisp-code "D1\nH\tE" [forward-word pos upcase-area cursor-pos goto] 3))

(defun downcase-word nil 59919 (lisp-code "D1\nH\tE" [forward-word pos downcase-area cursor-pos goto] 3))

(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))

(defun abort-recursive-edit (&optional ret-val) 60071 (lisp-code "t" [exit ret-val] 2))

(defun top-level nil 60160 (lisp-code "It" [top-level] 2))