(defvar discuss-acl-mode-map nil "\ Keymap used by the acl mode of the discuss subsystem") (defvar discuss-acl-filename nil "\ Filename used to store the ACL information.") (defun discuss-acl-mode nil "\ Major mode for looking at the ACL (Access Control List) of a meeting under the discuss subsystem. All normal editing commands are turned off. Instead, these commands are available: \\[describe-mode] List available commands. \\[scroll-up] Scroll to next screen of this transaction. \\[scroll-down] Scroll to previous screen of this transaction. \\[discuss-acl-quit] Quit looking at the ACL" (interactive) (byte-code "ÅˆÆ ˆÇ‰ˆÈ‰ˆÉ !ˆÄ‰ˆÊË!‡" [major-mode mode-name discuss-acl-mode-map buffer-read-only t nil kill-all-local-variables discuss-acl-mode "Discuss (acl)" use-local-map run-hooks discuss-acl-hooks] 4)) (defun discuss-list-acl nil "\ Display the ACL of the meeting" (interactive) (byte-code "ˆ… Ã!…Ä!ˆÅÆÇ \"!‰ˆÈÆÉ #ÊË#‡" [discuss-acl-filename discuss-current-meeting nil file-exists-p delete-file make-temp-name format "/tmp/discuss-acl-%s" discuss-send-cmd "(pacl %s %s) " discuss-end-list-acl discuss-read-form] 9)) (defun discuss-end-list-acl nil (byte-code "ÆÇ!ˆÈÉ!‰ˆÂÊ!)ˆË ˆÄÌ !)‡" [discuss-acl-buf pop-up-windows t buffer-read-only nil discuss-acl-filename message "done list acl" get-buffer-create "*discuss-acl*" pop-to-buffer discuss-acl-mode insert-file-contents] 6)) (defun discuss-acl-quit nil (interactive) (byte-code "Áˆ… Å!…Æ!ˆÁ‰ˆ …Ç !ˆÈ ˆ …&É !…,Ê !ˆÁ‰‡" [discuss-acl-filename nil discuss-current-meeting discuss-cur-mtg-buf discuss-acl-buf file-exists-p delete-file switch-to-buffer delete-other-windows buffer-name kill-buffer] 8)) (if discuss-acl-mode-map nil (setq discuss-acl-mode-map (make-keymap)) (suppress-keymap discuss-acl-mode-map) (define-key discuss-acl-mode-map "?" (quote describe-mode)) (define-key discuss-acl-mode-map " " (quote scroll-up)) (define-key discuss-acl-mode-map "" (quote scroll-down)) (define-key discuss-acl-mode-map "q" (quote discuss-acl-quit)))