From 1aa19e9dc6386624c76d44f00d53be1a6ba8d57a Mon Sep 17 00:00:00 2001 From: Yoni Rabkin Date: Thu, 27 Feb 2014 14:18:24 -0500 Subject: Fix compilation errors. --- rt-liberation.el | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) (limited to 'rt-liberation.el') diff --git a/rt-liberation.el b/rt-liberation.el index 995a767..f67c8ec 100644 --- a/rt-liberation.el +++ b/rt-liberation.el @@ -187,6 +187,15 @@ Careful! This might create a sizable buffer.") (defvar rt-liber-debug-log-buffer-name "*rt-liber debug log*" "Name of debug log buffer.") +(defvar rt-liber-ticket-local nil + "Buffer local storage for a ticket. + +This variable is made buffer local for the ticket history") + +(defvar rt-liber-assoc-browser nil + "Browser associated with a ticket history. + +This variable is made buffer local for the ticket history") ;;; -------------------------------------------------------- ;;; Debug log @@ -585,8 +594,6 @@ AFTER date after predicate." 'rt-liber-refresh-ticket-history) (set (make-local-variable 'buffer-stale-function) (lambda (&optional noconfirm) 'slow)) - (set (make-local-variable 'auto-revert-interval) - (* 15 60)) ;; 15 minutes (when rt-liber-jump-to-latest (rt-liber-jump-to-latest-correspondence)) (run-hooks 'rt-liber-viewer-hook)) @@ -854,6 +861,7 @@ If POINT is nil then called on (point)." (recenter-top-bottom)) (error "ticket #%s not found" id)))) + ;;; -------------------------------------------------------- ;;; Ticket browser sorting ;;; -------------------------------------------------------- @@ -1048,8 +1056,6 @@ string then that will be the name of the new buffer." 'rt-liber-browser-refresh) (set (make-local-variable 'buffer-stale-function) (lambda (&optional noconfirm) 'slow)) - (set (make-local-variable 'auto-revert-interval) - (* 15 60)) ;; 15 minutes (run-hooks 'rt-liber-browser-hook)) (defun rt-liber-setup-browser-name (new) @@ -1311,6 +1317,7 @@ If FIELD already exists, update to VALUE." (rt-liber-refresh-ticket-history))) (error "no ticket currently in view")))) + (provide 'rt-liberation) ;;; rt-liberation.el ends here. -- cgit v1.2.3