ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org-attach-git: Silence byte-compiler 

* lisp/org-attach-git.el (org-attach-git-commit): Rename argument to
silence byte-compiler.
This commit is contained in:
Kyle Meyer 2019-09-08 11:41:53 -04:00
parent 930a1bcfc5
commit 8919181c12
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/org-attach-git.el
View File

@ -80,12 +80,12 @@ Signals an error if the file content is not available and it was not retrieved."
(message "Running git annex get \"%s\"." path-relative) (message "Running git annex get \"%s\"." path-relative)
(call-process "git" nil nil nil "annex" "get" path-relative))))) (call-process "git" nil nil nil "annex" "get" path-relative)))))
(defun org-attach-git-commit (&optional attach-dir) (defun org-attach-git-commit (&optional _)
"Commit changes to git if `org-attach-id-dir' is properly initialized. "Commit changes to git if `org-attach-id-dir' is properly initialized.
This checks for the existence of a \".git\" directory in that directory. This checks for the existence of a \".git\" directory in that directory.
Takes one optional argument ATTACH-DIR for the sake of being Takes an unused optional argument for the sake of being compatible
compatible with hook `org-attach-after-change-hook'." with hook `org-attach-after-change-hook'."
(let* ((dir (expand-file-name org-attach-id-dir)) (let* ((dir (expand-file-name org-attach-id-dir))
(git-dir (vc-git-root dir)) (git-dir (vc-git-root dir))
(use-annex (org-attach-git-use-annex)) (use-annex (org-attach-git-use-annex))