[ create a new paste ] login | about

Link: http://codepad.org/T3BoM4Up    [ raw code | fork ]

Plain Text, pasted on Jul 24:
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)


Create a new paste based on this one


Comments: