emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/agitate acaa1868d0 30/67: Move log-view section further


From: ELPA Syncer
Subject: [elpa] externals/agitate acaa1868d0 30/67: Move log-view section further down
Date: Wed, 28 Sep 2022 16:57:27 -0400 (EDT)

branch: externals/agitate
commit acaa1868d04d9cbc04e34cf52b03247aa4e877d5
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Move log-view section further down
---
 agitate.el | 40 ++++++++++++++++++++--------------------
 1 file changed, 20 insertions(+), 20 deletions(-)

diff --git a/agitate.el b/agitate.el
index 352b7ec592..cc4d1ed9ab 100644
--- a/agitate.el
+++ b/agitate.el
@@ -174,26 +174,6 @@ Add this function to the `diff-mode-hook'."
     (when (derived-mode-p 'diff-mode)
       (outline-minor-mode 1))))
 
-;;;; Commands for log-view (listings of commits)
-
-;;;###autoload
-(defun agitate-log-view-kill-revision ()
-  "Append to `kill-ring' log-view revision at or around point.
-
-When the log-view is in the short format (one compact line per
-revision), the revision is the one on the current line.  If the
-revision is expanded with `log-view-expanded-log-entry-function'
-and point is somewhere inside the expanded text, the revision is
-still the same.
-
-When the log-view is in the long format (detailed view where each
-revision spans several lines), the revision is the one pertinent
-to the text at point."
-  (interactive)
-  (when-let ((revision (cadr (log-view-current-entry (point) t))))
-    (kill-new (format "%s" revision))
-    (message "Copied: %s" revision)))
-
 ;;;; Commands for log-edit (commit messages)
 
 (defun agitate--log-edit-extract-file (with-file-extension)
@@ -235,6 +215,26 @@ When called interactively, prompt for EMOJI-COMMIT among 
the
      'agitate--log-edit-emoji-commit-history)))
   (insert emoji-commit))
 
+;;;; Commands for log-view (listings of commits)
+
+;;;###autoload
+(defun agitate-log-view-kill-revision ()
+  "Append to `kill-ring' log-view revision at or around point.
+
+When the log-view is in the short format (one compact line per
+revision), the revision is the one on the current line.  If the
+revision is expanded with `log-view-expanded-log-entry-function'
+and point is somewhere inside the expanded text, the revision is
+still the same.
+
+When the log-view is in the long format (detailed view where each
+revision spans several lines), the revision is the one pertinent
+to the text at point."
+  (interactive)
+  (when-let ((revision (cadr (log-view-current-entry (point) t))))
+    (kill-new (format "%s" revision))
+    (message "Copied: %s" revision)))
+
 ;;;; Commands for vc-git (Git backend for the Version Control framework)
 
 ;;;###autoload



reply via email to

[Prev in Thread] Current Thread [Next in Thread]