Fresh Fish 5/FreshFish_July-August1994.bin/bbs/util/jade-3.0.lha/Jade/lisp/buffers.jlc

Text File | 1994-04-20 | 7.4 KB | 83 lines

(defvar auto-save-p t 62790)

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

(defvar make-backup-files t 62876)

(defvar backup-by-copying nil 62936)

(defvar amiga-use-file-req-p t 63016)

(setq default-buffer (current-buffer))

(defvar buffer-list (cons default-buffer nil) 63114)

(set-window-variable (quote buffer-list))

(defvar standard-output default-buffer 63185)

(defvar standard-input default-buffer 63237)

(defvar buffer-file-modtime 0 63289)

(set-buffer-variable (quote buffer-file-modtime))

(defun goto-buffer (buf) 63357 (lisp-code "qü€\tF û€ ³ÿ€ Jü€Ÿ\tHû€ IH†\nKF&†HI°" [buf get-buffer title "error: bad arg to goto-buffer" return delq buffer-list] 4))

(defun open-file (name &aux buf) 63550 (lisp-code "\tF\"ÿ˜\t\tF\"þ˜†\nH±‡ˆÿ€½‰\nHŠ\tü€¸‹\tû€½Œ\tHŽI\nHþ€ÎF&‘H’\t&“”F&•H–\tþ€ìŒ—\tH˜HŠ\tþ€ù™\t]þšJ\nH›IKF&œH‡\nHž\tG±HH" [get-file-buffer name buf make-buffer base-name add-buffer buffer-list eval-hook read-file-hook set-file-name file-exists-p read-buffer title "New file" set-buffer-modified auto-save-p default-auto-save-interval auto-save-interval file-modtime buffer-file-modtime current-time last-save-time auto-save-file-newer-p "warning: auto-saved file is newer" beep file-writeable-p set-buffer-read-only global-keymap keymap-path open-file-hook init-mode] 5))

(defun find-file (&optional name) 64142 (lisp-code "ÿ€žþ€‹ü€’û€“†‡ˆ\tF Hþ€ª‰Š\t\t" [name funcall amiga-p amiga-use-file-req-p file-req prompt-for-file "Find file: " path-name file-name goto-buffer open-file] 5))

(defun find-file-read-only (&optional name) 64356 (lisp-code "ÿ€žþ€‹ü€’û€“†‡ˆ\tF Hþ€¼D‰\t6ŠŠþ€»‹ŠJ\nHŒŠ\tE" [name funcall amiga-p amiga-use-file-req-p file-req prompt-for-file "Find file read-only:" path-name file-name open-file buf set-buffer-read-only goto-buffer] 5))

(defun open-alternate-file (name &optional buf) 64465 (lisp-code "qþ€–lþ€ŽI²F!H\tH\t" [name buf kill-buffer open-file] 2))

(defun find-alternate-file (&optional name) 64617 (lisp-code "ÿ€žþ€‹ü€’û€“†‡ˆ\tF Hþ€ª‰Š\t\t" [name funcall amiga-p amiga-use-file-req-p file-req prompt-for-file "Find alternate file: " path-name file-name goto-buffer open-alternate-file] 5))

(defun write-file (buf &optional name) 64770 (lisp-code "qÿ€Š\tF Hÿ€áþ€›†\tþ€ÛD‡ˆ\n6‰Šü€µ‹‰\nû€ÚŒ\tþ€Ã\tŽbþ€Ú‰\tþ€Ó‰\tH‘‰\nEH’\n" [name file-name buf eval-hook write-file-hook make-backup-files file-regular-p concat 126 backup-name backup-by-copying copy-file file-owner-p file-nlinks 1 file-exists-p delete-file rename-file write-buffer] 4))

(defun save-file (&optional buf &aux name) 64898 (lisp-code "³ÿ€‰I²F H±]ü€˜\tû€æF%H†\t‡dþ€­ˆ‰\t]þ€´ŠI\tH‹\tþ€æŒI\nH&Ž&F&‘H†\tF&‡H’H“J”G±H" [buf buffer-modified-p title "no changes need to be saved!" file-name name file-modtime buffer-file-modtime ask-yes-or-no "File on disk has changed since it was loaded, save anyway" return write-file set-buffer-modified current-time last-save-time buffer-changes last-save-changes last-user-save-changes delete-auto-save-file format "Saved file %S."] 5))

(defun save-file-as (&optional name buf &aux old-name) 65142 (lisp-code "ÿ€¥þ€Šü€™†\tJû€£‡ˆ†\t\nF H‰³ÿ€±I²F&‰H‰±†F&ŠH‹‰\nHŒ‰\t\nHŽ‰\tþ…‰I\nH&‘’&“’F&”H•\tF&–H—˜Š\t\tH™JšG±H" [name amiga-p amiga-use-file-req-p file-req "Write file:" path-name file-name prompt-for-file "Write file: " buf old-name set-file-name set-buffer-name base-name 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-file make-auto-save-name format "Saved file %S."] 5))

(defun insert-file (&optional name buf) 65383 (lisp-code "ÿ€žþ€‹ü€’û€“†‡ˆ\tF H‰³ÿ€ªI²F&‰H‰±Š‹\t\tG±H" [name funcall amiga-p amiga-use-file-req-p file-req prompt-for-file "Insert file: " path-name file-name buf insert read-file] 5))

(defun open-buffer (name &aux buf) 65539 (lisp-code "\tF\"ÿ€“\tF\"þ€“\tH" [get-buffer name buf make-buffer add-buffer] 2))

(defun kill-buffer (&optional buf) 65667 (lisp-code "ÿ€”\tF ÿ€”†H‡`þ€ I²F H³ÿ€µqü€´ˆ\tF û€µIHþ€¾‰\tþ€ÖŠ\tH‹\tÿ€ÖŒ\tH\t" [buf prompt-for-buffer concat "Buffer to kill (default: " buffer-name 41 return "" get-buffer check-changes remove-buffer buffer-special-p kill-mode destroy-buffer] 5))

(defun rotate-buffers-forward (&aux head end) 66013 (lisp-code "L!TiQF\"HIKOHMF HLI°" [buffer-list head end] 3))

(defun check-changes (&optional buf) 66178 (lisp-code "\t]ÿ€’†\t\t\n\t" [buffer-modified-p buf ask-yes-or-no format-string "OK to lose change(s) to buffer %s" base-name buffer-name] 6))

(defun goto-mark (mark) 66355 (lisp-code "\tþ€©D\t3\t5qþ€š†\tF#H‡Hˆ\tH‰\tE" [markp mark mark-file file mark-pos pos open-file set-auto-mark goto-buffer goto] 2))

(defun set-auto-mark nil 66545 (lisp-code "I²H\t" [set-mark auto-mark cursor-pos title "Set auto-mark."] 4))

(defun swap-cursor-and-auto-mark nil 66634 (lisp-code "D\t2\t\t5†Hqþ€š‡\tF\"HI°Hˆ\tE" [mark-file auto-mark a-m-file dup-pos mark-pos a-m-pos set-auto-mark open-file goto] 3))

(defun split-line-indent nil 66799 (lisp-code "D\n3Hü€–†\tû€š‡\tE" [next-line 1 indent-pos old-indent-pos split-line empty-line-p goto set-indent-pos] 3))

(defun make-auto-save-name (name) 66938 (lisp-code "\t\t" [concat path-name name 35 base-name] 5))

(defun auto-save-function (buf) 67057 (lisp-code "J\tHHH±†‡\nÿ€¢ˆ‰Š\t\tü€­J‹\nû€´JŒ\nHIG±H" [format "Auto-saving %S..." buffer-name buf refresh-all flush-output eval-hook auto-save-hook write-buffer make-auto-save-name file-name "done." "*error* can't auto-save."] 5))

(defun delete-auto-save-file (&optional buf) 67333 (lisp-code "D\t\t3\tþ€\tE" [make-auto-save-name file-name buf a-name file-exists-p delete-file] 3))

(defun auto-save-file-newer-p (name) 67471 (lisp-code "D\t2\t\tdE" [make-auto-save-name name recover-name file-modtime] 3))

(defun recover-file (&optional buf) 67609 (lisp-code "D\t\t3ÿ€I²F\"H\tþ€™\tþ€Á±†\tH‡I\nHˆF&‰HŠ‹Œ\t\tG±HHE" [make-auto-save-name file-name buf recover-name file-exists-p check-changes read-buffer set-buffer-modified current-time last-save-time title concat "using " " as "] 8))

(defun revert-buffer (&optional buf) 67802 (lisp-code "ÿ€ˆI²F H\t\tþ€”\tü€\tû€È†\tþ€È±‡ˆ\tÿ€¸‰\t\tHŠI\nH‹F&ŒG±H" [buf auto-save-file-newer-p file-name ask-yes-or-no "auto-saved file is newer, use it?" recover-file check-changes eval-hook read-file-hook read-buffer set-buffer-modified current-time last-save-time] 5))

(defun switch-to-buffer nil 67927 (lisp-code "DP\t3†‡\t6ˆˆþ€¨‰ˆŠ`ü€¥û€§ˆ\tE" [buffer-name 1 buffer-list def prompt-for-buffer concat "Switch to Buffer: (default: " 41 buf goto-buffer ""] 5))

(defun goto-line nil 68016 (lisp-code "HI\t\t\n\t" [set-auto-mark goto pos read-from-string prompt "Line: "] 6))

(defun file-newer-than-file-p (file1 file2) (lisp-code "\t\td" [file-modtime file1 file2] 3))

(defun save-some-buffers nil 68080 (lisp-code "D1I2I3nþ€ÆLF\"H\tþ€›\t]þ€½†‡ˆ‰\t\n\tü€ºŠ\tÿ€·JF#û€½JF#HMF!Hû€‡H]E" [buffer-list bufs buf unsaved-files-p buffer-modified-p buffer-special-p ask-y-or-n concat "Save buffer " buffer-name save-file] 5))

(defun save-and-quit nil 68193 (lisp-code "ÿ€ˆ\tþ€Žt" [save-some-buffers ask-yes-or-no "Unsaved buffers exist: quit anyway?" quit 0] 2))