[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/diff-hl 6c34a01 04/10: Minor touches
From: |
ELPA Syncer |
Subject: |
[elpa] externals/diff-hl 6c34a01 04/10: Minor touches |
Date: |
Mon, 22 Feb 2021 22:57:14 -0500 (EST) |
branch: externals/diff-hl
commit 6c34a01036584bb794381815c910cdbabae8cbd8
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: Dmitry Gutov <dgutov@yandex.ru>
Minor touches
---
diff-hl-flydiff.el | 4 ++--
diff-hl-posframe.gif | Bin 0 -> 15696491 bytes
diff-hl-show-hunk.el | 10 +++++-----
diff-hl.el | 9 +++++----
4 files changed, 12 insertions(+), 11 deletions(-)
diff --git a/diff-hl-flydiff.el b/diff-hl-flydiff.el
index 3b8670f..f82e426 100644
--- a/diff-hl-flydiff.el
+++ b/diff-hl-flydiff.el
@@ -40,11 +40,11 @@
(defvar diff-hl-flydiff-timer nil)
(make-variable-buffer-local 'diff-hl-flydiff-modified-tick)
-(defun diff-hl-flydiff-buffer-with-head (file &optional _backend)
+(defun diff-hl-flydiff-buffer-with-head (file &optional backend)
"View the differences between FILE and its associated file in HEAD revision.
This requires the external program `diff' to be in your
`exec-path'."
- (diff-hl-diff-buffer-with-head file " *diff-hl-diff*"))
+ (diff-hl-diff-buffer-with-head file " *diff-hl-diff*" backend))
(defun diff-hl-flydiff-update ()
(unless (or
diff --git a/diff-hl-posframe.gif b/diff-hl-posframe.gif
new file mode 100644
index 0000000..fbab0d2
Binary files /dev/null and b/diff-hl-posframe.gif differ
diff --git a/diff-hl-show-hunk.el b/diff-hl-show-hunk.el
index bb9bf8c..8935044 100644
--- a/diff-hl-show-hunk.el
+++ b/diff-hl-show-hunk.el
@@ -141,10 +141,10 @@ corresponding to the clicked line in the original buffer."
(member command '(ignore diff-hl-show-hunk handle-switch-frame
diff-hl-show-hunk--click)))
(defun diff-hl-show-hunk--compute-diffs ()
- "Compute diffs using funcions of diff-hl.
-Then put the differences in *diff-hl-show-hunk-diff-buffer*
-buffer, and set the point in that buffer to the corresponding
-line of the original buffer."
+ "Compute diffs using functions of diff-hl.
+Then put the differences inside a special buffer and set the
+point in that buffer to the corresponding line of the original
+buffer."
(defvar vc-sentinel-movepoint)
(let* ((buffer (or (buffer-base-buffer) (current-buffer)))
(line (line-number-at-pos))
@@ -244,7 +244,7 @@ Returns a list with the buffer and the line number of the
clicked line."
"Implementation to show the hunk in a inline popup.
BUFFER is a buffer with the hunk."
(diff-hl-inline-popup-hide)
- (setq diff-hl-show-hunk--hide-function #'inline-popup-hide)
+ (setq diff-hl-show-hunk--hide-function #'diff-hl-inline-popup-hide)
(let* ((lines (split-string (with-current-buffer buffer (buffer-string))
"[\n\r]+" ))
(smart-lines diff-hl-show-hunk-inline-popup-smart-lines)
(original-lines-number (cl-count-if (lambda (s) (string-prefix-p "-"
s)) lines))
diff --git a/diff-hl.el b/diff-hl.el
index 17e6381..d05e91e 100644
--- a/diff-hl.el
+++ b/diff-hl.el
@@ -761,12 +761,13 @@ the user should be returned."
(delete-file filename))))))))
filename))
-(defun diff-hl-working-revision (file)
+(defun diff-hl-working-revision (file &optional backend)
"Like vc-working-revision, but always up-to-date"
(vc-file-setprop file 'vc-working-revision
- (vc-call-backend (vc-backend file) 'working-revision file)))
+ (vc-call-backend (or backend (vc-backend file))
+ 'working-revision file)))
-(defun diff-hl-diff-buffer-with-head (file &optional dest-buffer)
+(defun diff-hl-diff-buffer-with-head (file &optional dest-buffer backend)
"Compute the differences between FILE and its associated file
in head revision. The diffs are computed in the buffer
DEST-BUFFER. This requires the external program `diff' to be in
@@ -781,7 +782,7 @@ your `exec-path'."
(rev (diff-hl-create-revision
file
(or diff-hl-reference-revision
- (diff-hl-working-revision file)))))
+ (diff-hl-working-revision file backend)))))
;; FIXME: When against staging, do it differently!
(diff-no-select rev (current-buffer) "-U 0 --strip-trailing-cr" 'noasync
(get-buffer-create dest-buffer))
- [elpa] externals/diff-hl updated (4c46b3b -> ba1e50c), ELPA Syncer, 2021/02/22
- [elpa] externals/diff-hl 39b8455 06/10: Fold diff-hl-show-hunk-mode into the "main" mode, ELPA Syncer, 2021/02/22
- [elpa] externals/diff-hl 6c34a01 04/10: Minor touches,
ELPA Syncer <=
- [elpa] externals/diff-hl 4460d1c 03/10: Use lexical-binding in two remaining filesg, ELPA Syncer, 2021/02/22
- [elpa] externals/diff-hl ba1e50c 10/10: Remove excessive redisplays, they caused blinking, ELPA Syncer, 2021/02/22
- [elpa] externals/diff-hl 414ccac 07/10: More reflowing of code, ELPA Syncer, 2021/02/22
- [elpa] externals/diff-hl 3aa5a7e 08/10: Make sure the "underlying face" does not affect the popup's display, ELPA Syncer, 2021/02/22
- [elpa] externals/diff-hl 679f557 01/10: New feature: diff-hl-show-hunk, ELPA Syncer, 2021/02/22
- [elpa] externals/diff-hl ba905d8 02/10: Drop compatibility with Emacs < 25, ELPA Syncer, 2021/02/22
- [elpa] externals/diff-hl 033e880 05/10: Remove the gif, ELPA Syncer, 2021/02/22
- [elpa] externals/diff-hl 5c65ada 09/10: Fix one warning, ELPA Syncer, 2021/02/22