File tree Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Original file line number Diff line number Diff line change 43
43
(let* ((patch-files (with-temp-buffer
44
44
(let ((lsdiff (current-buffer )))
45
45
(when (eq 0 (with-current-buffer buffer
46
- (call-process-region (point-min ) (point-max )
46
+ (call-process-region (point-min ) (point-max )
47
47
" lsdiff" nil lsdiff nil )))
48
- (split-string (buffer-string ))))))
48
+ (split-string (buffer-string ))))))
49
49
(f patch-files) visiting-buffers)
50
50
(while (car f)
51
51
(let ((buf (find-buffer-visiting (car f))))
64
64
(write-region (point-min ) (point-max ) patch))
65
65
(with-current-buffer output-buffer
66
66
(erase-buffer )
67
- (let* ((default-directory , directory )
67
+ (let* ((default-directory , directory )
68
68
(status (apply 'process-file commit-patch-program patch
69
69
output-buffer nil
70
70
(append `(" -m" , comment )
You can’t perform that action at this time.
0 commit comments