diff options
| -rw-r--r-- | init.el | 1 | ||||
| -rw-r--r-- | lisp/km-magit.el | 13 |
2 files changed, 14 insertions, 0 deletions
@@ -1069,6 +1069,7 @@ ("f" . km/magit-reset-file) ("i" . km/magit-insert-staged-file) ("n" . km/magit-shorten-hash-at-point) + ("o" . km/magit-log-occurrence) ("p" . km/magit-pin-file) ("r" . km/magit-find-recently-changed-file) ("t" . km/magit-describe) diff --git a/lisp/km-magit.el b/lisp/km-magit.el index 4bad322..19cae74 100644 --- a/lisp/km-magit.el +++ b/lisp/km-magit.el @@ -654,6 +654,19 @@ argument. Interactively, this can be accessed using the command (magit-log (list range) args files) (call-interactively #'magit-log)))) +;;;###autoload +(defun km/magit-log-occurrence (beg end) + "Run `git log -S<content (BEG..END)> HEAD'." + (interactive "r") + (magit-mode-setup-internal + #'magit-log-mode + (list (list "HEAD") + (cons (format "-S%s" (buffer-substring-no-properties beg end)) + (cl-delete "-S" (car (magit-log-arguments)) + :test 'string-prefix-p)) + nil)) + (magit-log-goto-same-commit)) + (defun km/magit-cherry-dwim () (interactive) (-let [(head . upstream) |