Function: magit-rebase--perl-editor

magit-rebase--perl-editor is a byte-compiled function defined in magit-sequence.el.

Signature

(magit-rebase--perl-editor ACTION SINCE)

Source Code

;; Defined in ~/.emacs.d/elpa/magit-20260411.1452/magit-sequence.el
(defun magit-rebase--perl-editor (action since)
  (let ((commit (magit-rev-abbrev (magit-rebase--target-commit since))))
    (format "%s -i -p -e '++$x if not $x and s/^pick %s/%s %s/'"
            magit-perl-executable
            commit
            (cl-case action
              (edit   "edit")
              (remove "noop\n# pick")
              (reword "reword")
              (t      (error "Unknown action: %s" action)))
            commit)))