mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-23 07:18:53 +00:00
Code

Fix git cleanup of deleted files

Browse Source
This commit is contained in:
Carsten Dominik 2010-04-02 09:42:14 +02:00
parent e6cf75c1f4
commit 562fa025f8
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

@ -1,5 +1,7 @@
2010-04-02 Carsten Dominik <carsten.dominik@gmail.com>
* org-attach.el (org-attach-commit): Split on newlines.
* org.el (org-export-latex-default-packages-alist): Use list
instead of cons for the entries.

4
lisp/org-attach.el
View File

@ -245,12 +245,12 @@ This checks for the existence of a \".git\" directory in that directory."
(with-temp-buffer
(cd dir)
(shell-command "git add .")
(shell-command "git ls-files --deleted -z" t)
(shell-command "git ls-files --deleted" t)
(mapc '(lambda (file)
(unless (string= file "")
(shell-command
(concat "git rm \"" file "\""))))
(split-string (buffer-string) ""))
(split-string (buffer-string) "\n"))
(shell-command "git commit -m 'Synchronized attachments'")))))
(defun org-attach-tag (&optional off)