;;; Source file: /usr/local/lib/jade/3.2/lisp/fill-mode.jl
;;; Compiled by jsh@orcrist on Sun Oct 16 20:21:10 1994
;;; Jade 3.2

(provide (quote fill-mode))

(defvar fill-column 71 87852)

(defvar fill-mode-p nil)

(make-variable-buffer-local (quote fill-mode-p))

(defun fill-mode nil 87909 (interactive) (jade-byte-code "ü IF H
H
û '
HJF H	" [fill-mode-p remove-minor-mode fill-mode "Fill" unbind-keys minor-mode-keymap "SPC" add-minor-mode bind-keys fill-mode-spc] 4))

(defun fill-mode-on nil (interactive) (jade-byte-code "ÿ HI" [fill-mode-p fill-mode] 1))

(defun fill-mode-spc nil (interactive) (jade-byte-code "	dþ hD3h
H	ÿ 
F#H	
HD
	
6	`þ F
EHaþ gD6HH		EEH	" [pos-col cursor-pos fill-column pos set-pos-col word-start forward-word -1 insert "
" left-char 1 copy-pos end get-char 32 delete-area major-mode indented-text-mode make-mark old-pos goto-line-start text-mode-indent-tab goto-char mark-pos " "] 4))

(defun set-fill-column (&optional column) 88075 (interactive) (jade-byte-code "pü 	û 		F$HJh" [column pos-col char-to-glyph-pos cursor-pos fill-column format "Fill column set to %d."] 4))
