branch: externals/diff-hl
commit 053c577f733ca50f20025694f0b12a856103aa4e
Author: Jimmy Yuen Ho Wong <[email protected]>
Commit: Jimmy Yuen Ho Wong <[email protected]>
fix spelling
---
diff-hl-inline-popup.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/diff-hl-inline-popup.el b/diff-hl-inline-popup.el
index 01c8b99c30..0af92bc80b 100644
--- a/diff-hl-inline-popup.el
+++ b/diff-hl-inline-popup.el
@@ -29,7 +29,7 @@
(defvar diff-hl-show-hunk-inline--current-popup nil "The overlay of the
current inline popup.")
(defvar diff-hl-show-hunk-inline--current-lines nil "A list of the lines to
show in the popup.")
(defvar diff-hl-show-hunk-inline--current-index nil "First line showed in
popup.")
-(defvar diff-hl-show-hunk-inline--invokinkg-command nil "Command that invoked
the popup.")
+(defvar diff-hl-show-hunk-inline--invoking-command nil "Command that invoked
the popup.")
(defvar diff-hl-show-hunk-inline--current-footer nil "String to be displayed
in the footer.")
(defvar diff-hl-show-hunk-inline--current-header nil "String to be displayed
in the header.")
(defvar diff-hl-show-hunk-inline--height nil "Height of the popup.")
@@ -41,7 +41,7 @@
(make-variable-buffer-local 'diff-hl-show-hunk-inline--current-index)
(make-variable-buffer-local 'diff-hl-show-hunk-inline--current-header)
(make-variable-buffer-local 'diff-hl-show-hunk-inline--current-footer)
-(make-variable-buffer-local 'diff-hl-show-hunk-inline--invokinkg-command)
+(make-variable-buffer-local 'diff-hl-show-hunk-inline--invoking-command)
(make-variable-buffer-local 'diff-hl-show-hunk-inline--current-custom-keymap)
(make-variable-buffer-local 'diff-hl-show-hunk-inline--height)
(make-variable-buffer-local 'diff-hl-show-hunk-inline--close-hook)
@@ -205,7 +205,7 @@ to scroll in the popup")
;;
https://emacs.stackexchange.com/questions/653/how-can-i-find-out-in-which-keymap-a-key-is-bound
(let ((keys (where-is-internal command (list
diff-hl-show-hunk-inline--current-custom-keymap
diff-hl-show-hunk-inline-transient-mode-map ) t))
- (invoking (eq command diff-hl-show-hunk-inline--invokinkg-command)))
+ (invoking (eq command diff-hl-show-hunk-inline--invoking-command)))
(or keys invoking)))
(defun diff-hl-show-hunk-inline--post-command-hook ()
@@ -263,12 +263,12 @@ is closed."
(mapcar (lambda (s) (replace-regexp-in-string "\n" " " s)) lines))
(setq diff-hl-show-hunk-inline--current-header header)
(setq diff-hl-show-hunk-inline--current-footer footer)
- (setq diff-hl-show-hunk-inline--invokinkg-command this-command)
+ (setq diff-hl-show-hunk-inline--invoking-command this-command)
(setq diff-hl-show-hunk-inline--current-custom-keymap keymap)
(setq diff-hl-show-hunk-inline--close-hook close-hook)
(setq diff-hl-show-hunk-inline--height
(diff-hl-show-hunk-inline--compute-content-height height))
(setq diff-hl-show-hunk-inline--height (min
diff-hl-show-hunk-inline--height
- (length
diff-hl-show-hunk-inline--current-lines)))
+ (length
diff-hl-show-hunk-inline--current-lines)))
;; (diff-hl-show-hunk-inline--ensure-enough-lines point
diff-hl-show-hunk-inline--height)
(diff-hl-show-hunk-inline-transient-mode 1)
(diff-hl-show-hunk-inline-scroll-to 0)
