
(defvar discuss-ls-filename nil)

(defun discuss-ls (arg) "\
Display txn headers of the meeting.  If no ARG, lists from current trn to
last trn.
If ARG is positive, list last ARG transactions.
If ARG is negative, prompt for range to display." (interactive "P") (byte-code "ÈˆÉÊ\"ˆ
Ë8… Ì!… Í!ˆÎÏÐÑ \"!‰ˆ…W <…6 @‰ˆÒWƒP Ó @A@‰)‚W ZT‰ˆÔÏÕ	Ò&Ö×#*‡" [discuss-current-meeting start discuss-current-transaction finish discuss-current-meeting-info discuss-ls-filename arg range nil message "Listing meeting %s..." 4 file-exists-p delete-file make-temp-name format "/tmp/discuss-ls-%s" user-login-name 0 discuss-ls-get-params discuss-send-cmd "(ls %s %d %d %d %s)
" discuss-end-list-mtg discuss-read-form] 15))

(defun discuss-ls-get-params nil (byte-code "ÀÁÂ!!ÀÁÃ!!D‡" [string-to-int read-string "Beginning of range: " "End of range: "] 6))

(defun discuss-end-list-mtg nil (byte-code "ÊË\"ˆÌ pÍŽÎÏ!Ä
ƒ Ð
!‚. ÑÏ!‰ˆÐ
!ˆÄ‰ˆÄ‰ˆ
‰ˆÈÒ ˆÓ	!)*)*‡" [discuss-current-meeting win buf pop-up-windows t buffer-read-only truncate-lines discuss-ls-buf nil discuss-ls-filename message "Listing meeting %s... done." selected-window ((byte-code "Â!ˆ	q‡" [win buf select-window] 2)) get-buffer "*discuss-ls*" pop-to-buffer get-buffer-create erase-buffer insert-file-contents] 9))