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

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

[elpa] master 3fa2b54 25/42: Prefer using /dev/shm for temporary files


From: Dmitry Gutov
Subject: [elpa] master 3fa2b54 25/42: Prefer using /dev/shm for temporary files
Date: Wed, 09 Sep 2015 19:03:39 +0000

branch: master
commit 3fa2b547a75fdaf7166cdd1fe71920d3aaf0364d
Author: PythonNut <address@hidden>
Commit: PythonNut <address@hidden>

    Prefer using /dev/shm for temporary files
---
 diff-hl-flydiff.el |   17 +++++++++--------
 1 files changed, 9 insertions(+), 8 deletions(-)

diff --git a/diff-hl-flydiff.el b/diff-hl-flydiff.el
index d3b5c01..0b7781e 100644
--- a/diff-hl-flydiff.el
+++ b/diff-hl-flydiff.el
@@ -109,14 +109,15 @@ This requires the external program `diff' to be in your 
`exec-path'."
   (interactive)
   (vc-ensure-vc-buffer)
   (with-current-buffer (get-buffer (current-buffer))
-    (let ((rev (diff-hl-flydiff-create-revision
-                 buffer-file-name
-                 (vc-working-revision buffer-file-name
-                   (vc-responsible-backend buffer-file-name))))
-           (temporary-file-directory
-             (if (file-directory-p "/dev/shm/")
-               "/dev/shm/"
-               temporary-file-directory)))
+    (let* ((file buffer-file-name)
+            (temporary-file-directory
+              (if (file-directory-p "/dev/shm/")
+                "/dev/shm/"
+                temporary-file-directory))
+            (rev (diff-hl-flydiff-create-revision
+                   file
+                   (vc-working-revision file
+                     (vc-responsible-backend file)))))
       (diff-no-select rev (current-buffer) "-U 0" 'noasync
         (get-buffer-create " *diff-hl-diff*")))))
 



reply via email to

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