emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/rt-liberation 1995685 04/68: * rt-liberation-rest.el: f


From: Yoni Rabkin
Subject: [elpa] externals/rt-liberation 1995685 04/68: * rt-liberation-rest.el: fix undefined variable
Date: Wed, 16 Dec 2020 12:11:04 -0500 (EST)

branch: externals/rt-liberation
commit 1995685feded34f0c70a8b6916fe593249602332
Author: Yoni Rabkin <yoni@rabkins.net>
Commit: Yoni Rabkin <yoni@rabkins.net>

    * rt-liberation-rest.el: fix undefined variable
---
 rt-liberation-rest.el | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/rt-liberation-rest.el b/rt-liberation-rest.el
index d9df8d9..9b18974 100644
--- a/rt-liberation-rest.el
+++ b/rt-liberation-rest.el
@@ -20,9 +20,7 @@
 ;; License along with this program; if not, write to the Free
 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
 ;; MA 02111-1307, USA.
-;;
-;; Note: Licensed under GPLv2+ and not GPLv3+ in order to be
-;; compatible with the license of RT.
+
 
 ;;; History:
 ;;
@@ -56,6 +54,9 @@
 (defvar rt-liber-rest-verbose-p t
   "If non-nil, be verbose about what's happening.")
 
+(defvar rt-liber-rest-response-buffer nil
+  "Buffer for manipulating server responses.")
+
 
 (defun rt-liber-rest-write-debug (str)
   "Write to debug buffer."
@@ -242,7 +243,7 @@
 
 (defun rt-liber-rest-handle-response (buffer)
   "Handle the response provided in BUFFER."
-  (with-current-buffer response-buffer
+  (with-current-buffer rt-liber-rest-response-buffer
     (rt-liber-rest-write-debug (buffer-string))))
 
 (defun rt-liber-rest-edit-runner (ticket-id field value)
@@ -256,8 +257,8 @@
     (rt-liber-rest-write-debug (concat request-data "\n"))
     (let ((url-request-method "POST")
          (url-request-data request-data)
-         response-buffer)
-      (setq response-buffer
+         rt-liber-rest-response-buffer)
+      (setq rt-liber-rest-response-buffer
            (url-retrieve-synchronously
             (rt-liber-rest-command-edit-string
              rt-liber-rest-scheme
@@ -265,7 +266,7 @@
              ticket-id
              rt-liber-rest-username
              rt-liber-rest-password)))
-      (rt-liber-rest-handle-response response-buffer)))
+      (rt-liber-rest-handle-response rt-liber-rest-response-buffer)))
   (message "edit command ended at %s" (current-time-string)))
 
 (defun rt-liber-rest-command-set (id field status)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]