Function: majutsu-squash--patch-source-revset

majutsu-squash--patch-source-revset is a natively compiled function defined in majutsu-squash.el.

Signature

(majutsu-squash--patch-source-revset &optional BUFFER)

Documentation

Return a source revset when BUFFER is a safe squash patch-selection buffer.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-squash.el
;;; Patch selection safety

(defun majutsu-squash--patch-source-revset (&optional buffer)
  "Return a source revset when BUFFER is a safe squash patch-selection buffer."
  (with-current-buffer (or buffer (current-buffer))
    (when (derived-mode-p 'majutsu-diff-mode)
      (let* ((range majutsu-buffer-diff-range)
             (from (transient-arg-value "--from=" range))
             (to (transient-arg-value "--to=" range))
             (revisions (seq-keep (lambda (arg)
                                    (transient-arg-value "--revisions=" (list arg)))
                                  range)))
        (cond
         ((or from to) nil)
         ((null range) "@")
         ((= (length revisions) 1) (car revisions)))))))