;;; Source file: /usr/local/lib/jade/3.2/lisp/text-mode.jl ;;; Compiled by jsh@orcrist on Sun Oct 16 20:20:50 1994 ;;; Jade 3.2 (provide (quote text-mode)) (defvar fill-column 71) (defvar text-mode-keymap (make-keylist)) (bind-keys text-mode-keymap "Meta-s" (quote center-line) "Meta-S" (quote center-paragraph)) (defvar text-mode-indent-keymap (make-keylist)) (bind-keys text-mode-indent-keymap "TAB" (quote text-mode-indent-tab)) (defun text-mode-init nil (jade-byte-code "!#F%" [text-mode-kill major-mode-kill "[a-zA-Z0-9_-]" word-regexp "[^a-zA-Z0-9_-]|$" word-not-regexp] 2)) (defun text-mode nil 74529 (interactive) (jade-byte-code "þ I² H#%KF&HH  " [major-mode-kill funcall "Text" mode-name text-mode major-mode text-mode-keymap keymap-path text-mode-init eval-hook text-mode-hook] 3)) (defun indented-text-mode nil 74563 (interactive) (jade-byte-code "þ I² H#%KKF&H H  H  " [major-mode-kill funcall "Indented Text" mode-name indented-text-mode major-mode text-mode-indent-keymap text-mode-keymap keymap-path text-mode-init eval-hook text-mode-hook indented-text-mode-hook] 3)) (defun text-mode-kill nil (jade-byte-code "I ‹‹#I$IF%HJ" [mode-name text-mode-keymap text-mode-indent-keymap keymap-path major-mode major-mode-kill] 3)) (defun text-mode-indent-tab nil (interactive) (jade-byte-code "D 4lÿ  dü\" û€D  6     H F$H H `üW û  F$H   H üy û EE" [find-prev-regexp "^.+$" prev-line 1 pos pos-col cursor-pos line-length insert " " char-to-glyph-pos gcurs set-pos-line pos-line glyph-to-char-pos find-next-regexp "[ ]+|$" match-end line-end empty-line-p set-indent-pos indent-to] 4)) (defun center-line (&optional pos) 74672 (interactive) (jade-byte-code " HD 4 6  X6   gÿP  dü7   ûPJüO  XZ H  ûPIE" [regexp-match-line " *$" pos indent-pos spos char-to-glyph-pos match-start epos pos-col len 0 fill-column set-indent-pos line-start set-pos-col 2] 4)) (defun center-paragraph (&optional pos) 74696 (interactive) (jade-byte-code "D 2 4fþ H Hû E" [forward-paragraph pos epos backward-paragraph spos center-line next-line 1] 3))