Debugger entered--Lisp error: (error "magit-section-children accessing a non-magit-section")
signal(error ("magit-section-children accessing a non-magit-section"))
error("%s accessing a non-%s" magit-section-children magit-section)
(or (and (vectorp (progn (or (and (vectorp section10977) (>= (length section10977) 12) (memq (aref section10977 0) cl-struct-magit-section-tags)) (error "%s accessing a non-%s" (quote magit-section-parent) (quote magit-section))) (aref section10977 10))) (>= (length (progn (or (and (vectorp section10977) (>= ... 12) (memq ... cl-struct-magit-section-tags)) (error "%s accessing a non-%s" (quote magit-section-parent) (quote magit-section))) (aref section10977 10))) 12) (memq (aref (progn (or (and (vectorp section10977) (>= ... 12) (memq ... cl-struct-magit-section-tags)) (error "%s accessing a non-%s" (quote magit-section-parent) (quote magit-section))) (aref section10977 10)) 0) cl-struct-magit-section-tags)) (error "%s accessing a non-%s" (quote magit-section-children) (quote magit-section)))
(progn (or (and (vectorp (progn (or (and (vectorp section10977) (>= ... 12) (memq ... cl-struct-magit-section-tags)) (error "%s accessing a non-%s" (quote magit-section-parent) (quote magit-section))) (aref section10977 10))) (>= (length (progn (or (and ... ... ...) (error "%s accessing a non-%s" ... ...)) (aref section10977 10))) 12) (memq (aref (progn (or (and ... ... ...) (error "%s accessing a non-%s" ... ...)) (aref section10977 10)) 0) cl-struct-magit-section-tags)) (error "%s accessing a non-%s" (quote magit-section-children) (quote magit-section))) (let* ((v (progn (or (and (vectorp section10977) (>= ... 12) (memq ... cl-struct-magit-section-tags)) (error "%s accessing a non-%s" (quote magit-section-parent) (quote magit-section))) (aref section10977 10)))) (aset v 11 (nconc (progn (or (and (vectorp ...) (>= ... 12) (memq ... cl-struct-magit-section-tags)) (error "%s accessing a non-%s" (quote magit-section-children) (quote magit-section))) (aref (progn (or ... ...) (aref section10977 10)) 11)) (list section10977)))))
(if (eq section10977 magit-root-section) (magit-section-set-hidden section10977 nil) (progn (or (and (vectorp (progn (or (and ... ... ...) (error "%s accessing a non-%s" ... ...)) (aref section10977 10))) (>= (length (progn (or ... ...) (aref section10977 10))) 12) (memq (aref (progn (or ... ...) (aref section10977 10)) 0) cl-struct-magit-section-tags)) (error "%s accessing a non-%s" (quote magit-section-children) (quote magit-section))) (let* ((v (progn (or (and ... ... ...) (error "%s accessing a non-%s" ... ...)) (aref section10977 10)))) (aset v 11 (nconc (progn (or (and ... ... ...) (error "%s accessing a non-%s" ... ...)) (aref (progn ... ...) 11)) (list section10977))))))
(catch (quote cancel-section) (run-hooks (quote magit-status-sections-hook)) (magit-insert-child-count section10977) (set-marker-insertion-type (progn (or (and (vectorp section10977) (>= (length section10977) 12) (memq (aref section10977 0) cl-struct-magit-section-tags)) (error "%s accessing a non-%s" (quote magit-section-start) (quote magit-section))) (aref section10977 3)) t) (let* ((end (progn (or (and (vectorp section10977) (>= ... 12) (memq ... cl-struct-magit-section-tags)) (error "%s accessing a non-%s" (quote magit-section-end) (quote magit-section))) (let* ((v section10977)) (aset v 5 (point-marker))))) (map (intern (format "magit-%s-section-map" (progn (or ... ...) (aref section10977 1))))) (map (and (boundp map) (symbol-value map)))) (save-excursion (goto-char (progn (or (and (vectorp section10977) (>= ... 12) (memq ... cl-struct-magit-section-tags)) (error "%s accessing a non-%s" (quote magit-section-start) (quote magit-section))) (aref section10977 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) section10977) (if map (progn ...))) (goto-char next))))) (if (eq section10977 magit-root-section) (magit-section-set-hidden section10977 nil) (progn (or (and (vectorp (progn (or ... ...) (aref section10977 10))) (>= (length (progn ... ...)) 12) (memq (aref (progn ... ...) 0) cl-struct-magit-section-tags)) (error "%s accessing a non-%s" (quote magit-section-children) (quote magit-section))) (let* ((v (progn (or ... ...) (aref section10977 10)))) (aset v 11 (nconc (progn (or ... ...) (aref ... 11)) (list section10977)))))))
(let ((magit-insert-section--current section10977) (magit-insert-section--parent section10977) (magit-insert-section--oldroot (or magit-insert-section--oldroot (if magit-insert-section--parent nil (prog1 magit-root-section (setq magit-root-section section10977)))))) (catch (quote cancel-section) (run-hooks (quote magit-status-sections-hook)) (magit-insert-child-count section10977) (set-marker-insertion-type (progn (or (and (vectorp section10977) (>= (length section10977) 12) (memq (aref section10977 0) cl-struct-magit-section-tags)) (error "%s accessing a non-%s" (quote magit-section-start) (quote magit-section))) (aref section10977 3)) t) (let* ((end (progn (or (and ... ... ...) (error "%s accessing a non-%s" ... ...)) (let* (...) (aset v 5 ...)))) (map (intern (format "magit-%s-section-map" (progn ... ...)))) (map (and (boundp map) (symbol-value map)))) (save-excursion (goto-char (progn (or (and ... ... ...) (error "%s accessing a non-%s" ... ...)) (aref section10977 3))) (while (< (point) end) (let ((next ...)) (if (get-text-property ... ...) nil (put-text-property ... next ... section10977) (if map ...)) (goto-char next))))) (if (eq section10977 magit-root-section) (magit-section-set-hidden section10977 nil) (progn (or (and (vectorp (progn ... ...)) (>= (length ...) 12) (memq (aref ... 0) cl-struct-magit-section-tags)) (error "%s accessing a non-%s" (quote magit-section-children) (quote magit-section))) (let* ((v (progn ... ...))) (aset v 11 (nconc (progn ... ...) (list section10977))))))) section10977)
(let* ((section10977 (progn (vector (quote cl-struct-magit-section) (quote status) nil (point-marker) nil nil nil nil nil nil magit-insert-section--parent nil)))) (progn (or (and (vectorp section10977) (>= (length section10977) 12) (memq (aref section10977 0) cl-struct-magit-section-tags)) (error "%s accessing a non-%s" (quote magit-section-hidden) (quote magit-section))) (let* ((v section10977)) (aset v 6 (let ((it (and magit-insert-section--oldroot ...))) (if it (progn (or ... ...) (aref it 6)) nil))))) (let ((magit-insert-section--current section10977) (magit-insert-section--parent section10977) (magit-insert-section--oldroot (or magit-insert-section--oldroot (if magit-insert-section--parent nil (prog1 magit-root-section (setq magit-root-section section10977)))))) (catch (quote cancel-section) (run-hooks (quote magit-status-sections-hook)) (magit-insert-child-count section10977) (set-marker-insertion-type (progn (or (and (vectorp section10977) (>= ... 12) (memq ... cl-struct-magit-section-tags)) (error "%s accessing a non-%s" (quote magit-section-start) (quote magit-section))) (aref section10977 3)) t) (let* ((end (progn (or ... ...) (let* ... ...))) (map (intern (format "magit-%s-section-map" ...))) (map (and (boundp map) (symbol-value map)))) (save-excursion (goto-char (progn (or ... ...) (aref section10977 3))) (while (< (point) end) (let (...) (if ... nil ... ...) (goto-char next))))) (if (eq section10977 magit-root-section) (magit-section-set-hidden section10977 nil) (progn (or (and (vectorp ...) (>= ... 12) (memq ... cl-struct-magit-section-tags)) (error "%s accessing a non-%s" (quote magit-section-children) (quote magit-section))) (let* ((v ...)) (aset v 11 (nconc ... ...)))))) section10977))
magit-refresh-status()
apply(magit-refresh-status nil)
(save-excursion (apply magit-refresh-function magit-refresh-args))
(let ((inhibit-read-only t)) (erase-buffer) (save-excursion (apply magit-refresh-function magit-refresh-args)))
(progn (let ((inhibit-read-only t)) (erase-buffer) (save-excursion (apply magit-refresh-function magit-refresh-args))))
(if magit-refresh-function (progn (let ((inhibit-read-only t)) (erase-buffer) (save-excursion (apply magit-refresh-function magit-refresh-args)))))
(let ((section (magit-current-section)) ident line char other) (if section (progn (setq ident (magit-section-ident section) line (count-lines (progn (or (and ... ... ...) (error "%s accessing a non-%s" ... ...)) (aref section 3)) (point)) char (- (point) (line-beginning-position))))) (if magit-refresh-function (progn (let ((inhibit-read-only t)) (erase-buffer) (save-excursion (apply magit-refresh-function magit-refresh-args))))) (if section (progn (let ((it (magit-find-section ident))) (if it (let ((start ...)) (goto-char start) (if (> ... 1) (progn ... ...))) (goto-char (let (...) (if it ... ...))))))) (run-hooks (quote magit-refresh-buffer-hook)) (magit-highlight-section))
magit-refresh-buffer()
magit-mode-init("/home/silex/work/magit/" magit-status-mode magit-refresh-status)
apply(magit-mode-init "/home/silex/work/magit/" (magit-status-mode magit-refresh-status))
(save-current-buffer (set-buffer buf-symb10976) (apply (function magit-mode-init) toplevel10974 init-args10975))
(if toplevel10974 (save-current-buffer (set-buffer buf-symb10976) (apply (function magit-mode-init) toplevel10974 init-args10975)) (user-error "Not inside a Git repository"))
(let* ((mode-symb10973 (function magit-status-mode)) (toplevel10974 (magit-get-top-dir)) (init-args10975 (list mode-symb10973 (function magit-refresh-status))) (buf-symb10976 (magit-mode-display-buffer magit-status-buffer-name-format mode-symb10973 (or switch-function magit-status-buffer-switch-function)))) (if toplevel10974 (save-current-buffer (set-buffer buf-symb10976) (apply (function magit-mode-init) toplevel10974 init-args10975)) (user-error "Not inside a Git repository")))
(progn (let* ((mode-symb10973 (function magit-status-mode)) (toplevel10974 (magit-get-top-dir)) (init-args10975 (list mode-symb10973 (function magit-refresh-status))) (buf-symb10976 (magit-mode-display-buffer magit-status-buffer-name-format mode-symb10973 (or switch-function magit-status-buffer-switch-function)))) (if toplevel10974 (save-current-buffer (set-buffer buf-symb10976) (apply (function magit-mode-init) toplevel10974 init-args10975)) (user-error "Not inside a Git repository"))))
(if default-directory (progn (let* ((mode-symb10973 (function magit-status-mode)) (toplevel10974 (magit-get-top-dir)) (init-args10975 (list mode-symb10973 (function magit-refresh-status))) (buf-symb10976 (magit-mode-display-buffer magit-status-buffer-name-format mode-symb10973 (or switch-function magit-status-buffer-switch-function)))) (if toplevel10974 (save-current-buffer (set-buffer buf-symb10976) (apply (function magit-mode-init) toplevel10974 init-args10975)) (user-error "Not inside a Git repository")))))
(let ((default-directory (or (magit-get-top-dir dir) (and (yes-or-no-p (format "No repository in %s. Create one? " dir)) (progn (magit-init dir) (magit-get-top-dir dir)))))) (if default-directory (progn (let* ((mode-symb10973 (function magit-status-mode)) (toplevel10974 (magit-get-top-dir)) (init-args10975 (list mode-symb10973 (function magit-refresh-status))) (buf-symb10976 (magit-mode-display-buffer magit-status-buffer-name-format mode-symb10973 (or switch-function magit-status-buffer-switch-function)))) (if toplevel10974 (save-current-buffer (set-buffer buf-symb10976) (apply (function magit-mode-init) toplevel10974 init-args10975)) (user-error "Not inside a Git repository"))))))
ad-Orig-magit-status("/home/silex/work/magit/" nil)
magit-status("/home/silex/work/magit/")
ad-Orig-call-interactively(magit-status nil nil)
call-interactively(magit-status nil nil)