-
Notifications
You must be signed in to change notification settings - Fork 63
Closed
Labels
bugdescribes a defect in supported/advertised functionalitydescribes a defect in supported/advertised functionalityhelp wanteda solution is unknown; brainstorming neededa solution is unknown; brainstorming needed
Description
So, on a Github wiki, I get the following error from magithub:
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
string-match("\\`\\([[:space:][:alpha:]]+\\)\\(?:: \\([^ ]+\\)\\)?\\'" nil nil)
s-match("\\`\\([[:space:][:alpha:]]+\\)\\(?:: \\([^ ]+\\)\\)?\\'" nil)
magithub-ci-status--parse-2\.2\.8(nil)
magithub-ci-status--internal()
eval((magithub-ci-status--internal))
magithub-cache--table(#s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data (:issues ((22861 41784 406392 812000)) ...)) :ci-status (magithub-ci-status--internal))
magithub-cache("git@github.com:flossfriends/channel.wiki.git" :ci-status (magithub-ci-status--internal))
magithub-ci-status()
magithub-insert-ci-status-header()
magithub-maybe-insert-ci-status-header()
funcall(magithub-maybe-insert-ci-status-header)
mapc(funcall (magit-insert-upstream-branch-header magit-insert-push-branch-header magit-insert-tags-header magithub-maybe-insert-ci-status-header))
(if (= (point) (point-min)) (magit-cancel-section) (magit-insert-heading) (remove-hook (quote magit-insert-section-hook) (quote magit-insert-remaining-headers)) (mapc (function funcall) magit-insert-headers-hook) (insert "\n"))
magit-insert-remaining-headers()
run-hooks(magit-insert-section-hook)
(catch (quote cancel-section) (insert (format "%-10s" "Head: ")) (if magit-status-show-hashes-in-headers (progn (insert (propertize commit (quote face) (quote magit-hash)) 32))) (insert (propertize branch (quote face) (quote magit-branch-local))) (insert 32 summary 10) (run-hooks (quote magit-insert-section-hook)) (magit-insert-child-count section83) (set-marker-insertion-type (progn nil (or (progn nil (and (vectorp section83) (>= (length section83) 14) (memq (aref section83 0) cl-struct-magit-section-tags) t)) (signal (quote wrong-type-argument) (list (quote magit-section) section83))) (aref section83 3)) t) (let* ((end (progn nil (or (progn nil (and ... ... ... t)) (signal (quote wrong-type-argument) (list ... section83))) (let* ((v section83)) (aset v 5 (point-marker))))) (map (intern (format "magit-%s-section-map" (progn nil (or ... ...) (aref section83 1))))) (map (and (boundp map) (symbol-value map)))) (save-excursion (goto-char (progn nil (or (progn nil (and ... ... ... t)) (signal (quote wrong-type-argument) (list ... section83))) (aref section83 3))) (while (< (point) end) (let ((next (or ... end))) (if (get-text-property (point) (quote magit-section)) nil (put-text-property (point) next (quote magit-section) section83) (if map (progn ...))) (goto-char next))))) (if (eq section83 magit-root-section) (magit-section-show section83) (progn nil (or (progn nil (and (vectorp (progn nil ... ...)) (>= (length ...) 14) (memq (aref ... 0) cl-struct-magit-section-tags) t)) (signal (quote wrong-type-argument) (list (quote magit-section) (progn nil (or ... ...) (aref section83 12))))) (let* ((v (progn nil (or ... ...) (aref section83 12)))) (aset v 13 (nconc (progn nil (or ... ...) (aref ... 13)) (list section83)))))))
(let ((magit-insert-section--current section83) (magit-insert-section--parent section83) (magit-insert-section--oldroot (or magit-insert-section--oldroot (if magit-insert-section--parent nil (prog1 magit-root-section (setq magit-root-section section83)))))) (catch (quote cancel-section) (insert (format "%-10s" "Head: ")) (if magit-status-show-hashes-in-headers (progn (insert (propertize commit (quote face) (quote magit-hash)) 32))) (insert (propertize branch (quote face) (quote magit-branch-local))) (insert 32 summary 10) (run-hooks (quote magit-insert-section-hook)) (magit-insert-child-count section83) (set-marker-insertion-type (progn nil (or (progn nil (and (vectorp section83) (>= ... 14) (memq ... cl-struct-magit-section-tags) t)) (signal (quote wrong-type-argument) (list (quote magit-section) section83))) (aref section83 3)) t) (let* ((end (progn nil (or (progn nil ...) (signal ... ...)) (let* (...) (aset v 5 ...)))) (map (intern (format "magit-%s-section-map" (progn nil ... ...)))) (map (and (boundp map) (symbol-value map)))) (save-excursion (goto-char (progn nil (or (progn nil ...) (signal ... ...)) (aref section83 3))) (while (< (point) end) (let ((next ...)) (if (get-text-property ... ...) nil (put-text-property ... next ... section83) (if map ...)) (goto-char next))))) (if (eq section83 magit-root-section) (magit-section-show section83) (progn nil (or (progn nil (and (vectorp ...) (>= ... 14) (memq ... cl-struct-magit-section-tags) t)) (signal (quote wrong-type-argument) (list (quote magit-section) (progn nil ... ...)))) (let* ((v (progn nil ... ...))) (aset v 13 (nconc (progn nil ... ...) (list section83))))))) section83)
(let* ((section83 (progn "Constructor for objects of type `magit-section'." nil (vector (quote cl-struct-magit-section) (quote branch) branch (point-marker) nil nil nil nil nil nil nil nil magit-insert-section--parent nil)))) (progn nil (or (progn nil (and (vectorp section83) (>= (length section83) 14) (memq (aref section83 0) cl-struct-magit-section-tags) t)) (signal (quote wrong-type-argument) (list (quote magit-section) section83))) (let* ((v section83)) (aset v 6 (let ((value (run-hook-with-args-until-success ... section83))) (if value (eq value (quote hide)) (let (...) (if it ... nil))))))) (let ((magit-insert-section--current section83) (magit-insert-section--parent section83) (magit-insert-section--oldroot (or magit-insert-section--oldroot (if magit-insert-section--parent nil (prog1 magit-root-section (setq magit-root-section section83)))))) (catch (quote cancel-section) (insert (format "%-10s" "Head: ")) (if magit-status-show-hashes-in-headers (progn (insert (propertize commit (quote face) (quote magit-hash)) 32))) (insert (propertize branch (quote face) (quote magit-branch-local))) (insert 32 summary 10) (run-hooks (quote magit-insert-section-hook)) (magit-insert-child-count section83) (set-marker-insertion-type (progn nil (or (progn nil (and ... ... ... t)) (signal (quote wrong-type-argument) (list ... section83))) (aref section83 3)) t) (let* ((end (progn nil (or ... ...) (let* ... ...))) (map (intern (format "magit-%s-section-map" ...))) (map (and (boundp map) (symbol-value map)))) (save-excursion (goto-char (progn nil (or ... ...) (aref section83 3))) (while (< (point) end) (let (...) (if ... nil ... ...) (goto-char next))))) (if (eq section83 magit-root-section) (magit-section-show section83) (progn nil (or (progn nil (and ... ... ... t)) (signal (quote wrong-type-argument) (list ... ...))) (let* ((v ...)) (aset v 13 (nconc ... ...)))))) section83))
(if branch (let* ((section83 (progn "Constructor for objects of type `magit-section'." nil (vector (quote cl-struct-magit-section) (quote branch) branch (point-marker) nil nil nil nil nil nil nil nil magit-insert-section--parent nil)))) (progn nil (or (progn nil (and (vectorp section83) (>= (length section83) 14) (memq (aref section83 0) cl-struct-magit-section-tags) t)) (signal (quote wrong-type-argument) (list (quote magit-section) section83))) (let* ((v section83)) (aset v 6 (let ((value ...)) (if value (eq value ...) (let ... ...)))))) (let ((magit-insert-section--current section83) (magit-insert-section--parent section83) (magit-insert-section--oldroot (or magit-insert-section--oldroot (if magit-insert-section--parent nil (prog1 magit-root-section ...))))) (catch (quote cancel-section) (insert (format "%-10s" "Head: ")) (if magit-status-show-hashes-in-headers (progn (insert (propertize commit ... ...) 32))) (insert (propertize branch (quote face) (quote magit-branch-local))) (insert 32 summary 10) (run-hooks (quote magit-insert-section-hook)) (magit-insert-child-count section83) (set-marker-insertion-type (progn nil (or (progn nil ...) (signal ... ...)) (aref section83 3)) t) (let* ((end (progn nil ... ...)) (map (intern ...)) (map (and ... ...))) (save-excursion (goto-char (progn nil ... ...)) (while (< ... end) (let ... ... ...)))) (if (eq section83 magit-root-section) (magit-section-show section83) (progn nil (or (progn nil ...) (signal ... ...)) (let* (...) (aset v 13 ...))))) section83)) (let* ((section84 (progn "Constructor for objects of type `magit-section'." nil (vector (quote cl-struct-magit-section) (quote commit) commit (point-marker) nil nil nil nil nil nil nil nil magit-insert-section--parent nil)))) (progn nil (or (progn nil (and (vectorp section84) (>= (length section84) 14) (memq (aref section84 0) cl-struct-magit-section-tags) t)) (signal (quote wrong-type-argument) (list (quote magit-section) section84))) (let* ((v section84)) (aset v 6 (let ((value ...)) (if value (eq value ...) (let ... ...)))))) (let ((magit-insert-section--current section84) (magit-insert-section--parent section84) (magit-insert-section--oldroot (or magit-insert-section--oldroot (if magit-insert-section--parent nil (prog1 magit-root-section ...))))) (catch (quote cancel-section) (insert (format "%-10s" "Head: ")) (insert (propertize commit (quote face) (quote magit-hash))) (insert 32 summary 10) (run-hooks (quote magit-insert-section-hook)) (magit-insert-child-count section84) (set-marker-insertion-type (progn nil (or (progn nil ...) (signal ... ...)) (aref section84 3)) t) (let* ((end (progn nil ... ...)) (map (intern ...)) (map (and ... ...))) (save-excursion (goto-char (progn nil ... ...)) (while (< ... end) (let ... ... ...)))) (if (eq section84 magit-root-section) (magit-section-show section84) (progn nil (or (progn nil ...) (signal ... ...)) (let* (...) (aset v 13 ...))))) section84)))
(let ((commit (match-string 1 string82)) (summary (match-string 2 string82))) (if branch (let* ((section83 (progn "Constructor for objects of type `magit-section'." nil (vector (quote cl-struct-magit-section) (quote branch) branch (point-marker) nil nil nil nil nil nil nil nil magit-insert-section--parent nil)))) (progn nil (or (progn nil (and (vectorp section83) (>= ... 14) (memq ... cl-struct-magit-section-tags) t)) (signal (quote wrong-type-argument) (list (quote magit-section) section83))) (let* ((v section83)) (aset v 6 (let (...) (if value ... ...))))) (let ((magit-insert-section--current section83) (magit-insert-section--parent section83) (magit-insert-section--oldroot (or magit-insert-section--oldroot (if magit-insert-section--parent nil ...)))) (catch (quote cancel-section) (insert (format "%-10s" "Head: ")) (if magit-status-show-hashes-in-headers (progn (insert ... 32))) (insert (propertize branch (quote face) (quote magit-branch-local))) (insert 32 summary 10) (run-hooks (quote magit-insert-section-hook)) (magit-insert-child-count section83) (set-marker-insertion-type (progn nil (or ... ...) (aref section83 3)) t) (let* ((end ...) (map ...) (map ...)) (save-excursion (goto-char ...) (while ... ...))) (if (eq section83 magit-root-section) (magit-section-show section83) (progn nil (or ... ...) (let* ... ...)))) section83)) (let* ((section84 (progn "Constructor for objects of type `magit-section'." nil (vector (quote cl-struct-magit-section) (quote commit) commit (point-marker) nil nil nil nil nil nil nil nil magit-insert-section--parent nil)))) (progn nil (or (progn nil (and (vectorp section84) (>= ... 14) (memq ... cl-struct-magit-section-tags) t)) (signal (quote wrong-type-argument) (list (quote magit-section) section84))) (let* ((v section84)) (aset v 6 (let (...) (if value ... ...))))) (let ((magit-insert-section--current section84) (magit-insert-section--parent section84) (magit-insert-section--oldroot (or magit-insert-section--oldroot (if magit-insert-section--parent nil ...)))) (catch (quote cancel-section) (insert (format "%-10s" "Head: ")) (insert (propertize commit (quote face) (quote magit-hash))) (insert 32 summary 10) (run-hooks (quote magit-insert-section-hook)) (magit-insert-child-count section84) (set-marker-insertion-type (progn nil (or ... ...) (aref section84 3)) t) (let* ((end ...) (map ...) (map ...)) (save-excursion (goto-char ...) (while ... ...))) (if (eq section84 magit-root-section) (magit-section-show section84) (progn nil (or ... ...) (let* ... ...)))) section84))))
(let ((string82 output)) (let ((commit (match-string 1 string82)) (summary (match-string 2 string82))) (if branch (let* ((section83 (progn "Constructor for objects of type `magit-section'." nil (vector ... ... branch ... nil nil nil nil nil nil nil nil magit-insert-section--parent nil)))) (progn nil (or (progn nil (and ... ... ... t)) (signal (quote wrong-type-argument) (list ... section83))) (let* ((v section83)) (aset v 6 (let ... ...)))) (let ((magit-insert-section--current section83) (magit-insert-section--parent section83) (magit-insert-section--oldroot (or magit-insert-section--oldroot ...))) (catch (quote cancel-section) (insert (format "%-10s" "Head: ")) (if magit-status-show-hashes-in-headers (progn ...)) (insert (propertize branch ... ...)) (insert 32 summary 10) (run-hooks (quote magit-insert-section-hook)) (magit-insert-child-count section83) (set-marker-insertion-type (progn nil ... ...) t) (let* (... ... ...) (save-excursion ... ...)) (if (eq section83 magit-root-section) (magit-section-show section83) (progn nil ... ...))) section83)) (let* ((section84 (progn "Constructor for objects of type `magit-section'." nil (vector ... ... commit ... nil nil nil nil nil nil nil nil magit-insert-section--parent nil)))) (progn nil (or (progn nil (and ... ... ... t)) (signal (quote wrong-type-argument) (list ... section84))) (let* ((v section84)) (aset v 6 (let ... ...)))) (let ((magit-insert-section--current section84) (magit-insert-section--parent section84) (magit-insert-section--oldroot (or magit-insert-section--oldroot ...))) (catch (quote cancel-section) (insert (format "%-10s" "Head: ")) (insert (propertize commit ... ...)) (insert 32 summary 10) (run-hooks (quote magit-insert-section-hook)) (magit-insert-child-count section84) (set-marker-insertion-type (progn nil ... ...) t) (let* (... ... ...) (save-excursion ... ...)) (if (eq section84 magit-root-section) (magit-section-show section84) (progn nil ... ...))) section84)))))
(let ((output (magit-rev-format "%h %s" (or branch "HEAD")))) (string-match "^\\([^ ]+\\) \\(.*\\)" output) (let ((string82 output)) (let ((commit (match-string 1 string82)) (summary (match-string 2 string82))) (if branch (let* ((section83 (progn "Constructor for objects of type `magit-section'." nil ...))) (progn nil (or (progn nil ...) (signal ... ...)) (let* (...) (aset v 6 ...))) (let ((magit-insert-section--current section83) (magit-insert-section--parent section83) (magit-insert-section--oldroot ...)) (catch (quote cancel-section) (insert ...) (if magit-status-show-hashes-in-headers ...) (insert ...) (insert 32 summary 10) (run-hooks ...) (magit-insert-child-count section83) (set-marker-insertion-type ... t) (let* ... ...) (if ... ... ...)) section83)) (let* ((section84 (progn "Constructor for objects of type `magit-section'." nil ...))) (progn nil (or (progn nil ...) (signal ... ...)) (let* (...) (aset v 6 ...))) (let ((magit-insert-section--current section84) (magit-insert-section--parent section84) (magit-insert-section--oldroot ...)) (catch (quote cancel-section) (insert ...) (insert ...) (insert 32 summary 10) (run-hooks ...) (magit-insert-child-count section84) (set-marker-insertion-type ... t) (let* ... ...) (if ... ... ...)) section84))))))
(progn (if --cl-rest-- (signal (quote wrong-number-of-arguments) (list (quote magit-insert-head-branch-header) (+ 1 (length --cl-rest--))))) (let ((output (magit-rev-format "%h %s" (or branch "HEAD")))) (string-match "^\\([^ ]+\\) \\(.*\\)" output) (let ((string82 output)) (let ((commit (match-string 1 string82)) (summary (match-string 2 string82))) (if branch (let* ((section83 ...)) (progn nil (or ... ...) (let* ... ...)) (let (... ... ...) (catch ... ... ... ... ... ... ... ... ... ...) section83)) (let* ((section84 ...)) (progn nil (or ... ...) (let* ... ...)) (let (... ... ...) (catch ... ... ... ... ... ... ... ... ...) section84)))))))
(let* ((branch (if --cl-rest-- (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--)))) (magit-get-current-branch)))) (progn (if --cl-rest-- (signal (quote wrong-number-of-arguments) (list (quote magit-insert-head-branch-header) (+ 1 (length --cl-rest--))))) (let ((output (magit-rev-format "%h %s" (or branch "HEAD")))) (string-match "^\\([^ ]+\\) \\(.*\\)" output) (let ((string82 output)) (let ((commit (match-string 1 string82)) (summary (match-string 2 string82))) (if branch (let* (...) (progn nil ... ...) (let ... ... section83)) (let* (...) (progn nil ... ...) (let ... ... section84))))))))
magit-insert-head-branch-header()
funcall(magit-insert-head-branch-header)
(while (and (setq wrapper (car-safe (prog1 magit-insert-headers-hook (setq magit-insert-headers-hook (cdr magit-insert-headers-hook))))) (= (point) (point-min))) (funcall wrapper))
(let ((magit-insert-section-hook (cons (quote magit-insert-remaining-headers) (if (listp magit-insert-section-hook) magit-insert-section-hook (list magit-insert-section-hook)))) (magit-insert-headers-hook hooks) wrapper) (while (and (setq wrapper (car-safe (prog1 magit-insert-headers-hook (setq magit-insert-headers-hook (cdr magit-insert-headers-hook))))) (= (point) (point-min))) (funcall wrapper)))
magit-insert-headers((magit-insert-error-header magit-insert-diff-filter-header magit-insert-head-branch-header magit-insert-upstream-branch-header magit-insert-push-branch-header magit-insert-tags-header magithub-maybe-insert-ci-status-header))
(if (magit-rev-verify "HEAD") (magit-insert-headers magit-status-headers-hook) (insert "In the beginning there was darkness\n\n"))
magit-insert-status-headers()
run-hooks(magit-status-sections-hook)
(if (-all-p (function functionp) magit-status-sections-hook) (run-hooks (quote magit-status-sections-hook)) (message "`magit-status-sections-hook' contains entries that are no longer valid.\nUsing standard value instead. Please re-configure") (sit-for 5) (let ((magit-status-sections-hook-1 (eval (car (get (quote magit-status-sections-hook) (quote standard-value)))))) (run-hooks (quote magit-status-sections-hook-1))))
(catch (quote cancel-section) (if (-all-p (function functionp) magit-status-sections-hook) (run-hooks (quote magit-status-sections-hook)) (message "`magit-status-sections-hook' contains entries that are no longer valid.\nUsing standard value instead. Please re-configure") (sit-for 5) (let ((magit-status-sections-hook-1 (eval (car (get ... ...))))) (run-hooks (quote magit-status-sections-hook-1)))) (run-hooks (quote magit-insert-section-hook)) (magit-insert-child-count section79) (set-marker-insertion-type (progn nil (or (progn nil (and (vectorp section79) (>= (length section79) 14) (memq (aref section79 0) cl-struct-magit-section-tags) t)) (signal (quote wrong-type-argument) (list (quote magit-section) section79))) (aref section79 3)) t) (let* ((end (progn nil (or (progn nil (and ... ... ... t)) (signal (quote wrong-type-argument) (list ... section79))) (let* ((v section79)) (aset v 5 (point-marker))))) (map (intern (format "magit-%s-section-map" (progn nil (or ... ...) (aref section79 1))))) (map (and (boundp map) (symbol-value map)))) (save-excursion (goto-char (progn nil (or (progn nil (and ... ... ... t)) (signal (quote wrong-type-argument) (list ... section79))) (aref section79 3))) (while (< (point) end) (let ((next (or ... end))) (if (get-text-property (point) (quote magit-section)) nil (put-text-property (point) next (quote magit-section) section79) (if map (progn ...))) (goto-char next))))) (if (eq section79 magit-root-section) (magit-section-show section79) (progn nil (or (progn nil (and (vectorp (progn nil ... ...)) (>= (length ...) 14) (memq (aref ... 0) cl-struct-magit-section-tags) t)) (signal (quote wrong-type-argument) (list (quote magit-section) (progn nil (or ... ...) (aref section79 12))))) (let* ((v (progn nil (or ... ...) (aref section79 12)))) (aset v 13 (nconc (progn nil (or ... ...) (aref ... 13)) (list section79)))))))
(let ((magit-insert-section--current section79) (magit-insert-section--parent section79) (magit-insert-section--oldroot (or magit-insert-section--oldroot (if magit-insert-section--parent nil (prog1 magit-root-section (setq magit-root-section section79)))))) (catch (quote cancel-section) (if (-all-p (function functionp) magit-status-sections-hook) (run-hooks (quote magit-status-sections-hook)) (message "`magit-status-sections-hook' contains entries that are no longer valid.\nUsing standard value instead. Please re-configure") (sit-for 5) (let ((magit-status-sections-hook-1 (eval (car ...)))) (run-hooks (quote magit-status-sections-hook-1)))) (run-hooks (quote magit-insert-section-hook)) (magit-insert-child-count section79) (set-marker-insertion-type (progn nil (or (progn nil (and (vectorp section79) (>= ... 14) (memq ... cl-struct-magit-section-tags) t)) (signal (quote wrong-type-argument) (list (quote magit-section) section79))) (aref section79 3)) t) (let* ((end (progn nil (or (progn nil ...) (signal ... ...)) (let* (...) (aset v 5 ...)))) (map (intern (format "magit-%s-section-map" (progn nil ... ...)))) (map (and (boundp map) (symbol-value map)))) (save-excursion (goto-char (progn nil (or (progn nil ...) (signal ... ...)) (aref section79 3))) (while (< (point) end) (let ((next ...)) (if (get-text-property ... ...) nil (put-text-property ... next ... section79) (if map ...)) (goto-char next))))) (if (eq section79 magit-root-section) (magit-section-show section79) (progn nil (or (progn nil (and (vectorp ...) (>= ... 14) (memq ... cl-struct-magit-section-tags) t)) (signal (quote wrong-type-argument) (list (quote magit-section) (progn nil ... ...)))) (let* ((v (progn nil ... ...))) (aset v 13 (nconc (progn nil ... ...) (list section79))))))) section79)
(let* ((section79 (progn "Constructor for objects of type `magit-section'." nil (vector (quote cl-struct-magit-section) (quote status) nil (point-marker) nil nil nil nil nil nil nil nil magit-insert-section--parent nil)))) (progn nil (or (progn nil (and (vectorp section79) (>= (length section79) 14) (memq (aref section79 0) cl-struct-magit-section-tags) t)) (signal (quote wrong-type-argument) (list (quote magit-section) section79))) (let* ((v section79)) (aset v 6 (let ((value (run-hook-with-args-until-success ... section79))) (if value (eq value (quote hide)) (let (...) (if it ... nil))))))) (let ((magit-insert-section--current section79) (magit-insert-section--parent section79) (magit-insert-section--oldroot (or magit-insert-section--oldroot (if magit-insert-section--parent nil (prog1 magit-root-section (setq magit-root-section section79)))))) (catch (quote cancel-section) (if (-all-p (function functionp) magit-status-sections-hook) (run-hooks (quote magit-status-sections-hook)) (message "`magit-status-sections-hook' contains entries that are no longer valid.\nUsing standard value instead. Please re-configure") (sit-for 5) (let ((magit-status-sections-hook-1 (eval ...))) (run-hooks (quote magit-status-sections-hook-1)))) (run-hooks (quote magit-insert-section-hook)) (magit-insert-child-count section79) (set-marker-insertion-type (progn nil (or (progn nil (and ... ... ... t)) (signal (quote wrong-type-argument) (list ... section79))) (aref section79 3)) t) (let* ((end (progn nil (or ... ...) (let* ... ...))) (map (intern (format "magit-%s-section-map" ...))) (map (and (boundp map) (symbol-value map)))) (save-excursion (goto-char (progn nil (or ... ...) (aref section79 3))) (while (< (point) end) (let (...) (if ... nil ... ...) (goto-char next))))) (if (eq section79 magit-root-section) (magit-section-show section79) (progn nil (or (progn nil (and ... ... ... t)) (signal (quote wrong-type-argument) (list ... ...))) (let* ((v ...)) (aset v 13 (nconc ... ...)))))) section79))
magit-status-refresh-buffer()
apply(magit-status-refresh-buffer nil)
(save-excursion (apply refresh magit-refresh-args))
(let ((inhibit-read-only t)) (erase-buffer) (save-excursion (apply refresh magit-refresh-args)))
(let* ((buffer (current-buffer)) (windows (apply (quote append) (mapcar (function (lambda (it) (let ... ...))) (or (get-buffer-window-list buffer nil t) (list (selected-window))))))) (deactivate-mark) (setq magit-section-highlight-overlays nil) (setq magit-section-highlighted-section nil) (setq magit-section-highlighted-sections nil) (setq magit-section-unhighlight-sections nil) (let ((inhibit-read-only t)) (erase-buffer) (save-excursion (apply refresh magit-refresh-args))) (let ((--dolist-tail-- windows)) (while --dolist-tail-- (let ((window (car --dolist-tail--))) (let ((save-selected-window--state (internal--before-with-selected-window ...))) (save-current-buffer (unwind-protect (progn ... ...) (internal--after-with-selected-window save-selected-window--state)))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (run-hooks (quote magit-refresh-buffer-hook)) (magit-section-update-highlight) (set-buffer-modified-p nil))
(progn (if magit-refresh-verbose (progn (message "Refreshing buffer `%s'..." (buffer-name)))) (let* ((buffer (current-buffer)) (windows (apply (quote append) (mapcar (function (lambda ... ...)) (or (get-buffer-window-list buffer nil t) (list ...)))))) (deactivate-mark) (setq magit-section-highlight-overlays nil) (setq magit-section-highlighted-section nil) (setq magit-section-highlighted-sections nil) (setq magit-section-unhighlight-sections nil) (let ((inhibit-read-only t)) (erase-buffer) (save-excursion (apply refresh magit-refresh-args))) (let ((--dolist-tail-- windows)) (while --dolist-tail-- (let ((window (car --dolist-tail--))) (let ((save-selected-window--state ...)) (save-current-buffer (unwind-protect ... ...))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (run-hooks (quote magit-refresh-buffer-hook)) (magit-section-update-highlight) (set-buffer-modified-p nil)) (if magit-refresh-verbose (progn (message "Refreshing buffer `%s'...done (%.3fs)" (buffer-name) (float-time (time-subtract (current-time) magit-refresh-start-time))))))
(if (functionp refresh) (progn (if magit-refresh-verbose (progn (message "Refreshing buffer `%s'..." (buffer-name)))) (let* ((buffer (current-buffer)) (windows (apply (quote append) (mapcar (function ...) (or ... ...))))) (deactivate-mark) (setq magit-section-highlight-overlays nil) (setq magit-section-highlighted-section nil) (setq magit-section-highlighted-sections nil) (setq magit-section-unhighlight-sections nil) (let ((inhibit-read-only t)) (erase-buffer) (save-excursion (apply refresh magit-refresh-args))) (let ((--dolist-tail-- windows)) (while --dolist-tail-- (let ((window ...)) (let (...) (save-current-buffer ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (run-hooks (quote magit-refresh-buffer-hook)) (magit-section-update-highlight) (set-buffer-modified-p nil)) (if magit-refresh-verbose (progn (message "Refreshing buffer `%s'...done (%.3fs)" (buffer-name) (float-time (time-subtract (current-time) magit-refresh-start-time)))))))
(let ((refresh (intern (format "%s-refresh-buffer" (substring (symbol-name major-mode) 0 -5)))) (magit--refresh-cache (or magit--refresh-cache (list (cons 0 0))))) (if (functionp refresh) (progn (if magit-refresh-verbose (progn (message "Refreshing buffer `%s'..." (buffer-name)))) (let* ((buffer (current-buffer)) (windows (apply (quote append) (mapcar ... ...)))) (deactivate-mark) (setq magit-section-highlight-overlays nil) (setq magit-section-highlighted-section nil) (setq magit-section-highlighted-sections nil) (setq magit-section-unhighlight-sections nil) (let ((inhibit-read-only t)) (erase-buffer) (save-excursion (apply refresh magit-refresh-args))) (let ((--dolist-tail-- windows)) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...)))) (run-hooks (quote magit-refresh-buffer-hook)) (magit-section-update-highlight) (set-buffer-modified-p nil)) (if magit-refresh-verbose (progn (message "Refreshing buffer `%s'...done (%.3fs)" (buffer-name) (float-time (time-subtract ... magit-refresh-start-time))))))))
magit-refresh-buffer()
(progn (magit-refresh-buffer))
(if (derived-mode-p (quote magit-mode)) (progn (magit-refresh-buffer)))
(let ((start (current-time)) (magit--refresh-cache (list (cons 0 0)))) (if magit-refresh-verbose (progn (message "Refreshing magit..."))) (magit-run-hook-with-benchmark (quote magit-pre-refresh-hook)) (if (derived-mode-p (quote magit-mode)) (progn (magit-refresh-buffer))) (let ((it (and magit-refresh-status-buffer (not (derived-mode-p (quote magit-status-mode))) (magit-mode-get-buffer (quote magit-status-mode))))) (if it (progn (save-current-buffer (set-buffer it) (magit-refresh-buffer))))) (magit-auto-revert-buffers) (magit-run-hook-with-benchmark (quote magit-post-refresh-hook)) (if magit-refresh-verbose (progn (message "Refreshing magit...done (%.3fs, cached %s/%s)" (float-time (time-subtract (current-time) start)) (car (car magit--refresh-cache)) (+ (car (car magit--refresh-cache)) (cdr (car magit--refresh-cache)))))))
(if inhibit-magit-refresh nil (let ((start (current-time)) (magit--refresh-cache (list (cons 0 0)))) (if magit-refresh-verbose (progn (message "Refreshing magit..."))) (magit-run-hook-with-benchmark (quote magit-pre-refresh-hook)) (if (derived-mode-p (quote magit-mode)) (progn (magit-refresh-buffer))) (let ((it (and magit-refresh-status-buffer (not (derived-mode-p ...)) (magit-mode-get-buffer (quote magit-status-mode))))) (if it (progn (save-current-buffer (set-buffer it) (magit-refresh-buffer))))) (magit-auto-revert-buffers) (magit-run-hook-with-benchmark (quote magit-post-refresh-hook)) (if magit-refresh-verbose (progn (message "Refreshing magit...done (%.3fs, cached %s/%s)" (float-time (time-subtract (current-time) start)) (car (car magit--refresh-cache)) (+ (car (car magit--refresh-cache)) (cdr (car magit--refresh-cache))))))))
magit-refresh()
funcall-interactively(magit-refresh)
call-interactively(magit-refresh nil nil)
command-execute(magit-refresh)
Further investigation reveals that hub ci-status
fails with a 404
error on such wiki repositories. I think the simplest fix will be to add something accepting failure on that call. I'll take a look at a possible implementation in a bit.
Metadata
Metadata
Assignees
Labels
bugdescribes a defect in supported/advertised functionalitydescribes a defect in supported/advertised functionalityhelp wanteda solution is unknown; brainstorming neededa solution is unknown; brainstorming needed