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

(defvar auto-save-p t 96405)

(defvar default-auto-save-interval 120 96445)

(defvar make-backup-files t 96491)

(defvar backup-by-copying nil 96551)

(defvar else-backup-by-copying t 96631)

(defvar default-buffer (current-buffer) 96784)

(setq buffer-list (cons default-buffer nil))

(defvar standard-output default-buffer 96805)

(defvar standard-input default-buffer 96857)

(defvar buffer-file-modtime 0 96909)

(make-variable-buffer-local (quote buffer-file-modtime))

(defvar mildly-special-buffer nil 96977)

(make-variable-buffer-local (quote mildly-special-buffer))

(make-variable-buffer-local (quote kill-buffer-hook))

(defvar enable-local-variables t 97087)

(defvar enable-local-eval (quote maybe) 97238)

(defvar local-variable-lines 20 97333)

(defun goto-buffer (buffer) 97446 (interactive "BSwitch to buffer") (jade-byte-code "qþ 
	F H³ÿ *}H‹KF$HI°" [buffer open-buffer bad-arg 1 buffer-list] 3))

(defun open-file (name) 97721 (jade-byte-code "D	2ÿ š		F\"þ š
H±ÿ F	
H
	ü A	H	F&û F	HHI
Hþ [F&H&IF&H	þ v	HH
	þ ƒ	]þ ‹J
H
H	G±HHE" [get-file-buffer name buf make-buffer file-name-nondirectory add-buffer buffer-list eval-hook read-file-hook set-buffer-file-name file-exists-p read-buffer file-modtime buffer-file-modtime message "New file" fix-local-variables set-buffer-modified auto-save-p default-auto-save-interval auto-save-interval current-time last-save-time buffer-undo-list auto-save-file-newer-p "Warning: Auto-saved file is newer" beep file-writable-p set-buffer-read-only open-file-hook init-mode] 5))

(defun fix-local-variables nil (jade-byte-code "ÿ I~HDX
1	fþ 
H
þ+D	
		
			
	II666F!H
þ*!		
&		
F&H`þ ™`ü ¡I~û&`ü ÅJaÿ ºI	þ ÂF&û&`ü ðþ äJaÿ äI	þ í 	Uû&Jü%JaÿI!	þ\"\"	F&H#	H 	FAû&IHû _EE" [enable-local-variables pos 0 buffer-length local-variable-lines pos-line set-pos-line find-next-regexp "^(.*)Local Variables:(.*)$" concat 94 regexp-quote copy-area match-start 1 match-end "([^:]+):(.*)" 2 36 value name re "End" "" "mode" y-or-n-p format "Use major mode %s?" mode-name "eval" enable-local-eval "Eval `%s'?" read-from-string "Set %s to %s?" intern make-local-variable] 9))

(defun find-file (name) 98290 (interactive "FFind file: ") (jade-byte-code "		" [goto-buffer open-file name] 3))

(defun find-file-read-only (name) 98470 (interactive "FFind file read-only:") (jade-byte-code "D	2þ J
H	E" [open-file name buf set-buffer-read-only goto-buffer] 3))

(defun find-alternate-file (name) 98545 (interactive "FFind alternate file:") (jade-byte-code "I²	H		" [kill-buffer goto-buffer open-file name] 3))

(defun backup-file (file-name) 98654 (jade-byte-code "þ 	þ MD
5ü 
û L	þ +		
bü B	þ 9	H
û Lþ L
E" [make-backup-files file-regular-p name concat 126 backup-name backup-by-copying copy-file file-owner-p file-nlinks 1 file-exists-p delete-file rename-file else-backup-by-copying] 3))

(defun write-file (buffer &optional name) 98771 (jade-byte-code "qÿ 
	F Hÿ ;D	þ 	6	H	
þ :þ 8

HJE" [name buffer-file-name buffer eval-hook write-file-hook file-exists-p file-modes modes backup-file write-buffer set-file-modes] 4))

(defun save-file (&optional buffer &aux name) 98861 (interactive) (jade-byte-code "³ÿ 	I²F H±]ü 	û fD5	dþ ,		]þ 1I~H
	þ eI
H&&&	F&HHJ
EG±H" [buffer buffer-modified-p message "No changes need to be saved!" buffer-file-name name file-modtime buffer-file-modtime yes-or-no-p "File on disk has changed since it was loaded, save anyway" write-file set-buffer-modified current-time last-save-time buffer-changes last-save-changes last-user-save-changes delete-auto-save-file concat "Wrote file `" 39] 6))

(defun save-file-as (name &optional buffer) 99084 (interactive "FWrite file:") (jade-byte-code "³ÿ 	I²F H±
H	
H	þ FI
H&	&
	&	F&HHJG±H" [buffer set-buffer-file-name name set-buffer-name file-name-nondirectory write-file set-buffer-modified current-time last-save-time buffer-changes last-save-changes last-user-save-changes file-modtime buffer-file-modtime delete-auto-save-file format "Saved file `%s'."] 5))

(defun insert-file (name &optional buffer) 99279 (interactive "FInsert file:") (jade-byte-code "³ÿ 	I²F H±
ÿ 		G±H" [buffer eval-hook insert-file-hook name insert read-file] 4))

(defun open-buffer (name) 99373 (jade-byte-code "D	2ÿ 	F\"þ 	HE" [get-buffer name buf make-buffer add-buffer] 2))

(defun kill-buffer (buffer) 99482 (interactive "bBuffer to kill:") (jade-byte-code "³ÿ qü 	F û IHþ 	þ D
H	þ 1±G±Hlÿ =	H	H		HJ" [buffer get-buffer check-changes eval-hook kill-buffer-hook buffer-special-p mildly-special-buffer kill-mode destroy-buffer remove-buffer] 3))

(defun bury-buffer (&optional buffer all-windows) 99805 (interactive) (jade-byte-code "ÿ I²F HDü û IK4þ OL¶DŽ6‹IK
F%HLI°HTTcþ B		EG¶HHMF$Hû E" [buffer all-windows window-list current-window list buffer-list old-list nconc error "buffer-list changed length!"] 5))

(defun switch-to-buffer nil 100061 (interactive) (jade-byte-code "DPÿ 	I²2	I6		E" [1 buffer-list default prompt-for-buffer concat "Switch to buffer (default: " buffer-name "):" buffer goto-buffer] 5))

(defun rotate-buffers-forward nil 100120 (interactive) (jade-byte-code "DLTiQ12IKOHMF HLI°E" [buffer-list end head] 3))

(defun check-changes (&optional buffer) 100260 (jade-byte-code "	]ÿ I			" [buffer-modified-p buffer yes-or-no-p format "OK to lose change(s) to buffer `%s'" file-name-nondirectory buffer-name] 7))

(defun goto-mark (mark) 100412 (jade-byte-code "´þ 'D		34qþ 	F$HH	H	E" [mark mark-file mark-pos pos file open-file set-auto-mark goto-buffer goto-char] 3))

(defun set-auto-mark nil 100585 (interactive) (jade-byte-code "I²H	" [set-mark auto-mark cursor-pos message "Set auto-mark."] 4))

(defun swap-cursor-and-auto-mark nil 100658 (interactive) (jade-byte-code "D			45Hqþ 	F%HI°H	E" [mark-file auto-mark copy-pos mark-pos a-m-pos a-m-file set-auto-mark open-file goto-char] 4))

(defun split-line-indent nil 100795 (interactive) (jade-byte-code "D
3Hü 	û 	E" [next-line 1 indent-pos old-indent-pos split-line empty-line-p goto-glyph set-indent-pos] 3))

(defun make-auto-save-name (name) 100914 (jade-byte-code "		" [concat file-name-directory name 35 file-name-nondirectory] 5))

(defun auto-save-function (buffer) 100996 (jade-byte-code "J	HHH±
ÿ \"	
		ü -J
û 5
HIG±H" [format "Auto-saving `%s'..." buffer-name buffer refresh-all flush-output eval-hook auto-save-hook write-buffer make-auto-save-name buffer-file-name "done." error "Can't auto-save"] 5))

(defun delete-auto-save-file (&optional buffer) 101244 (interactive) (jade-byte-code "D		3	þ 	E" [make-auto-save-name buffer-file-name buffer a-name file-exists-p delete-file] 3))

(defun auto-save-file-newer-p (name) 101349 (jade-byte-code "D	2		dE" [make-auto-save-name name recover-name file-modtime] 3))

(defun recover-file (&optional buffer) 101442 (interactive) (jade-byte-code "D		3ÿ I²F\"H	þ 	þ A±	HJ
HF&	H
		G±HHE" [make-auto-save-name buffer-file-name buffer recover-name file-exists-p check-changes read-buffer set-buffer-modified current-time last-save-time message concat "Using " " as "] 8))

(defun revert-buffer (&optional buffer) 101611 (interactive) (jade-byte-code "ÿ I²F H		þ 	ü 	û H	þ H±	ÿ 8			H
I
HF&G±H" [buffer auto-save-file-newer-p buffer-file-name yes-or-no-p "auto-saved file is newer; recover-file instead?" recover-file check-changes eval-hook read-file-hook read-buffer set-buffer-modified current-time last-save-time] 5))

(defun goto-line (line) 101711 (interactive "NLine: ") (jade-byte-code "HIi
	" [set-auto-mark goto-char pos line] 4))

(defun file-newer-than-file-p (file1 file2) 101754 (jade-byte-code "		d" [file-modtime file1 file2] 3))

(defun save-some-buffers nil 101812 (interactive) (jade-byte-code "DII123nþ FLF\"H	þ 	]þ =		
	ü :
	ÿ 7JF!û =JF!HMF#Hû H]E" [buffer-list unsaved-files-p buf bufs buffer-modified-p buffer-special-p y-or-n-p concat "Save buffer " buffer-name save-file] 5))

(defun save-and-quit nil 101905 (interactive) (jade-byte-code "ÿ 	þ t" [save-some-buffers yes-or-no-p "Unsaved buffers exist; quit anyway?" quit 0] 2))

(defun auto-save-mode (&optional disable) 102001 (interactive "P") (jade-byte-code "cÿ ü F H	û F H	" [auto-save-interval 0 disable message "Auto-save is now disabled in this buffer." default-auto-save-interval "Auto-save is now enabled for this buffer."] 2))
