
(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… Ê!… Ë!ˆÌÍÎÏ \"!‰ˆ…L <…- @‰ˆÐWƒF Ñ @A@‰)‚L 
ZT‰ˆÒÍÓ
Ð&ÔÕ#*‡" [start discuss-current-transaction finish discuss-current-meeting-info discuss-ls-filename arg range discuss-current-meeting nil 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] 14))

(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 "ÇÈ!ˆÉ ÊË!… ÌË!ˆÍË!‰ˆÃÎ	!)ˆÅÏ!)ˆÐ!)‡" [retwin discuss-ls-buf pop-up-windows t buffer-read-only nil discuss-ls-filename message "done list mtg" selected-window get-buffer "*discuss-ls*" kill-buffer get-buffer-create pop-to-buffer insert-file-contents select-window] 9))