JSON Readtable error

[dabrahams]

This is after `'-p'

  signal(json-readtable-error nil)
  json-read()
  (let ((json-object-type (quote plist))) (json-read))
  (let* ((data (let ((json-object-type (quote plist))) (json-read))) (err (plist-get data :error))) (when err (error "GitHub error: %s" err)) (kill-buffer) data)
  (if (not magithub-parse-response) (current-buffer) (search-forward "\n\n" nil t) (let* ((data (let ((json-object-type (quote plist))) (json-read))) (err (plist-get data :error))) (when err (error "GitHub error: %s" err)) (kill-buffer) data))
  (save-current-buffer (set-buffer (url-retrieve-synchronously (magit-request-url path))) (goto-char (point-min)) (if (not magithub-parse-response) (current-buffer) (search-forward "\n\n" nil t) (let* ((data (let ((json-object-type ...)) (json-read))) (err (plist-get data :error))) (when err (error "GitHub error: %s" err)) (kill-buffer) data)))
  (with-current-buffer (url-retrieve-synchronously (magit-request-url path)) (goto-char (point-min)) (if (not magithub-parse-response) (current-buffer) (search-forward "\n\n" nil t) (let* ((data (let ((json-object-type ...)) (json-read))) (err (plist-get data :error))) (when err (error "GitHub error: %s" err)) (kill-buffer) data)))
  (let ((url-request-data (magithub-make-query-string magithub-request-data))) (with-current-buffer (url-retrieve-synchronously (magit-request-url path)) (goto-char (point-min)) (if (not magithub-parse-response) (current-buffer) (search-forward "\n\n" nil t) (let* ((data (let (...) (json-read))) (err (plist-get data :error))) (when err (error "GitHub error: %s" err)) (kill-buffer) data))))
  (let* ((G154526 (magithub-auth-info)) (magithub-request-data (append (list (cons "login" (car G154526)) (cons "token" (cdr G154526))) magithub-request-data))) (let ((url-request-data (magithub-make-query-string magithub-request-data))) (with-current-buffer (url-retrieve-synchronously (magit-request-url path)) (goto-char (point-min)) (if (not magithub-parse-response) (current-buffer) (search-forward "\n\n" nil t) (let* ((data (let ... ...)) (err (plist-get data :error))) (when err (error "GitHub error: %s" err)) (kill-buffer) data)))))
  (magithub-with-auth (let ((url-request-data (magithub-make-query-string magithub-request-data))) (with-current-buffer (url-retrieve-synchronously (magit-request-url path)) (goto-char (point-min)) (if (not magithub-parse-response) (current-buffer) (search-forward "\n\n" nil t) (let* ((data (let ... ...)) (err (plist-get data :error))) (when err (error "GitHub error: %s" err)) (kill-buffer) data)))))
  magithub-retrieve-synchronously(("repos" "show" "dabrahams" "org-mode.git"))
  (plist-get (magithub-retrieve-synchronously (list "repos" "show" username repo)) :repository)
  (let* ((url-request-method "GET") (obj (plist-get (magithub-retrieve-synchronously (list "repos" "show" username repo)) :repository))) (puthash (cons username repo) obj magithub--repo-obj-cache) obj)
  (or cached (let* ((url-request-method "GET") (obj (plist-get (magithub-retrieve-synchronously (list "repos" "show" username repo)) :repository))) (puthash (cons username repo) obj magithub--repo-obj-cache) obj))
  (let ((cached (gethash (cons username repo) magithub--repo-obj-cache))) (or cached (let* ((url-request-method "GET") (obj (plist-get (magithub-retrieve-synchronously (list "repos" "show" username repo)) :repository))) (puthash (cons username repo) obj magithub--repo-obj-cache) obj)))
  magithub-cached-repo-obj(nil nil)
  (plist-get (magithub-cached-repo-obj username repo) :parent)
  (let ((parent (plist-get (magithub-cached-repo-obj username repo) :parent))) (if (not parent) (magithub-repo-collaborators username repo) (destructuring-bind (parent-owner . parent-repo) (magithub-parse-repo parent) (magithub-repo-collaborators parent-owner parent-repo))))
  magithub-repo-parent-collaborators()
  (let ((collabs (magithub-repo-parent-collaborators)) (network (magithub-repo-network))) (magithub--remove-if (lambda (s) (string= s "")) (completing-read-multiple "Send pull request to: " (mapcar (lambda (repo) (plist-get repo :owner)) (magithub-repo-network)) nil nil (concat (mapconcat (quote identity) collabs crm-separator) (if (= (length collabs) (length network)) "" crm-separator)))))
  magithub-read-pull-request-recipients()
  (list (magithub-read-pull-request-recipients))
  call-interactively(magithub-pull-request nil nil)

[nex3]

The pull request API has changed dramatically since I first wrote this, so it'll basically take a full rewrite (of that component) to fix it.