From 98f8675d40bedba97f74b019383b81cfa73f6d35 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Wed, 22 Mar 2017 22:08:24 -0400 Subject: magit-copy-functions: Mark arguments as unused --- lisp/km-magit.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/km-magit.el b/lisp/km-magit.el index 8eb67f6..a068eac 100644 --- a/lisp/km-magit.el +++ b/lisp/km-magit.el @@ -448,7 +448,7 @@ COMMIT." commit "--"))) (user-error "%s does not exist" commit))) -(defun km/magit-copy-commit-summary-from-header (&optional arg) +(defun km/magit-copy-commit-summary-from-header (&optional _) (magit-section-when headers (km/magit-copy-commit-summary (car magit-refresh-args)))) @@ -459,7 +459,7 @@ COMMIT." (mapconcat #'identity it (if arg (read-string "Separator: ") ", "))))) -(defun km/magit-copy-commit-message (&optional arg) +(defun km/magit-copy-commit-message (&optional _) (magit-section-when message (kill-new (replace-regexp-in-string "^ " "" @@ -476,7 +476,7 @@ COMMIT." (replace-regexp-in-string "^[ \\+\\-]" "" text) text)))))) -(defun km/magit-copy-hunk (&optional arg) +(defun km/magit-copy-hunk (&optional _) (magit-section-when hunk (let ((start (save-excursion (goto-char (magit-section-start it)) (1+ (point-at-eol))))) -- cgit v1.2.3