Hello,
Something is broken.
If you add two stashes and try to view the second one, it throws an
error.
,----
| Debugger entered--Lisp error: (wrong-type-argument stringp nil)
| string-match("^\\(.*\\<HEAD\\)\\([~^].*\\|$\\)" nil)
| (if (string-match "^\\(.*\\<HEAD\\)\\([~^].*\\|$\\)" name) (progn (let ...
... ...)))
| (when (string-match "^\\(.*\\<HEAD\\)\\([~^].*\\|$\\)" name) (let (... ...)
(setq name ...) (when ... ...)))
| (let ((name ...)) (when (string-match "^\\(.*\\<HEAD\\)\\([~^].*\\|$\\)"
name) (let ... ... ...)) (setq rev (or name rev)) (when (string-match
"^\\(?:tags\\|remotes\\)/\\(.*\\)" rev) (let ... ...)) rev)
| (progn (let (...) (when ... ...) (setq rev ...) (when ... ...) rev))
| (if rev (progn (let ... ... ... ... rev)))
| (when rev (let (...) (when ... ...) (setq rev ...) (when ... ...) rev))
| magit-name-rev("st...@{1}^2^")
| (if (string= rev ".") "mark" (magit-name-rev rev))
| magit-rev-describe("st...@{1}^2^")
| (format "%s from %s to %s" things (magit-rev-describe (car range))
(magit-rev-describe (cdr range)))
| (if (cdr range) (format "%s from %s to %s" things (magit-rev-describe ...)
(magit-rev-describe ...)) (format "%s at %s" things (magit-rev-describe ...)))
| (if (stringp range) (format "%s in %s" things range) (if (cdr range)
(format "%s from %s to %s" things ... ...) (format "%s at %s" things ...)))
| magit-rev-range-describe(("st...@{1}^2^" . "st...@{1}") "Changes")
| (magit-git-section (quote diffbuf) (magit-rev-range-describe range
"Changes") (quote magit-wash-diffs) "diff" (magit-diff-U-arg) args)
| (let ((magit-old-top-section magit-top-section)) (setq magit-top-section
nil) (magit-git-section (quote diffbuf) (magit-rev-range-describe range
"Changes") (quote magit-wash-diffs) "diff" (magit-diff-U-arg) args) (when (null
magit-top-section) (magit-with-section ... nil ...)) (magit-propertize-section
magit-top-section) (magit-section-set-hidden magit-top-section
(magit-section-hidden magit-top-section)))
| (let ((inhibit-read-only t)) (erase-buffer) (let (...) (setq
magit-top-section nil) (magit-git-section ... ... ... "diff" ... args) (when
... ...) (magit-propertize-section magit-top-section) (magit-section-set-hidden
magit-top-section ...)))
| (magit-create-buffer-sections (magit-git-section (quote diffbuf)
(magit-rev-range-describe range "Changes") (quote magit-wash-diffs) "diff"
(magit-diff-U-arg) args))
| magit-refresh-diff-buffer(("st...@{1}^2^" . "st...@{1}")
"st...@{1}^2^..stash@{1}")
| apply(magit-refresh-diff-buffer (("st...@{1}^2^" . "st...@{1}")
"st...@{1}^2^..stash@{1}"))
| (if magit-refresh-function (apply magit-refresh-function
magit-refresh-args))
| (let* ((old-line ...) (old-section ...) (old-path ...) (section-line ...))
(if magit-refresh-function (apply magit-refresh-function magit-refresh-args))
(magit-refresh-marked-commits-in-buffer) (let (...) (cond ... ...) (dolist ...
...) (magit-highlight-section)))
| (save-current-buffer (set-buffer (or buffer ...)) (let* (... ... ... ...)
(if magit-refresh-function ...) (magit-refresh-marked-commits-in-buffer) (let
... ... ... ...)))
| (with-current-buffer (or buffer (current-buffer)) (let* (... ... ... ...)
(if magit-refresh-function ...) (magit-refresh-marked-commits-in-buffer) (let
... ... ... ...)))
| magit-refresh-buffer()
| magit-mode-init("/Users/phd/PhDthesis/" diff magit-refresh-diff-buffer
("st...@{1}^2^" . "st...@{1}") "st...@{1}^2^..stash@{1}")
| (let* ((range ...) (args ...)) (magit-mode-init dir (quote diff) (function
magit-refresh-diff-buffer) range args) (magit-stash-mode t))
| (save-current-buffer (set-buffer buf) (set-buffer buf) (goto-char
(point-min)) (let* (... ...) (magit-mode-init dir ... ... range args)
(magit-stash-mode t)))
| (with-current-buffer buf (set-buffer buf) (goto-char (point-min)) (let*
(... ...) (magit-mode-init dir ... ... range args) (magit-stash-mode t)))
| (cond ((and ... ...) (let ... ...)) (t (setq magit-currently-shown-stash
stash-id) (display-buffer buf) (with-current-buffer buf ... ... ...)))
| (let ((dir default-directory) (buf ...) (stash-id ...)) (cond (... ...) (t
... ... ...)))
| magit-show-stash("st...@{1}" scroll-up)
| (cond ((magit-prefix-p ... *context*) (magit-show-commit info ...))
((magit-prefix-p ... *context*) (magit-show-stash info ...)) (t (scroll-up))
((magit-dynamic-clauses *extra* *context*) t))
| (let* ((item ...) (info ...) (*type* ...) (*context* ...) (*extra* ...))
(cond (... ...) (... ...) (t ...) (... t)))
| (magit-section-case (item info) ((commit) (magit-show-commit info ...))
((stash) (magit-show-stash info ...)) (t (scroll-up)))
| (lambda nil (magit-section-case (item info) (... ...) (... ...) (t ...)))()
| funcall((lambda nil (magit-section-case (item info) (... ...) (... ...) (t
...))))
| (unwind-protect (funcall func) (when magit-refresh-needing-buffers
(magit-revert-buffers dir) (dolist ... ...)))
| (let* ((dir default-directory) (status-buffer ...)
(magit-refresh-needing-buffers nil) (magit-refresh-pending t)) (unwind-protect
(funcall func) (when magit-refresh-needing-buffers ... ...)))
| (if magit-refresh-pending (funcall func) (let* (... ... ... ...)
(unwind-protect ... ...)))
| magit-refresh-wrapper((lambda nil (magit-section-case (item info) (... ...)
(... ...) (t ...))))
| (magit-with-refresh (magit-section-case (item info) (... ...) (... ...) (t
...)))
| (magit-section-action (item info) ((commit) (magit-show-commit info ...))
((stash) (magit-show-stash info ...)) (t (scroll-up)))
| magit-show-item-or-scroll-up()
| call-interactively(magit-show-item-or-scroll-up nil nil)
`----
Leo
