Compare commits

...

2 Commits

Author SHA1 Message Date
TEC a68eb8ded2
Add missing requires 2023-07-05 22:37:18 +08:00
TEC 5455b2e237
Fix bug where no commit selected, but expected 2023-07-05 22:37:15 +08:00
1 changed files with 9 additions and 4 deletions

View File

@ -19,6 +19,10 @@
;;
;;; Code:
(eval-when-compile
(require 'cl-lib)
(require 'eieio))
(defclass orgdiff--transient-lisp-variable-formatted (transient-variable)
((reader :initform #'transient-lisp-variable--reader)
(always-read :initform t)
@ -155,10 +159,11 @@
(if (memq major-mode '(magit-status-mode magit-log-mode))
;; If in a magit buffer, set git revisions from state
(setq orgdiff-git-revisions
(substring-no-properties
(or (--when-let (magit-region-values '(commit branch) t)
(concat (car (last it)) ".." (car it)))
(magit-branch-or-commit-at-point))))
(let* ((commits (magit-region-values '(commit branch) t))
(range (if commits
(concat (car (last commits)) ".." (car commits))
(magit-branch-or-commit-at-point))))
(and range (substring-no-properties range))))
;; Otherwise, just verify that the refs are valid
(unless (or (null orgdiff-git-revisions)
(cl-every #'magit-rev-verify-commit