branch: elpa/git-commit commit e35f2b9be7d08ca1b94380a7d0093557d7667ac5 Author: Jonas Bernoulli <jo...@bernoul.li> Commit: Jonas Bernoulli <jo...@bernoul.li>
magit-blame.el: Move internal variables to beginning of file --- lisp/magit-blame.el | 34 +++++++++++++++++----------------- 1 file changed, 17 insertions(+), 17 deletions(-) diff --git a/lisp/magit-blame.el b/lisp/magit-blame.el index d26765b551..d27f84ff85 100644 --- a/lisp/magit-blame.el +++ b/lisp/magit-blame.el @@ -223,6 +223,20 @@ Also see option `magit-blame-styles'." "Face used for dates when blaming." :group 'magit-faces) +;;; Variables + +(defvar-local magit-blame-buffer-read-only nil) +(defvar-local magit-blame-cache nil) +(defvar-local magit-blame-disabled-modes nil) +(defvar-local magit-blame-process nil) +(defvar-local magit-blame-recursive-p nil) +(defvar-local magit-blame-type nil) +(defvar-local magit-blame-separator nil) +(defvar-local magit-blame-previous-chunk nil) + +(defvar-local magit-blame--make-margin-overlays nil) +(defvar-local magit-blame--style nil) + ;;; Chunks (defclass magit-blame-chunk () @@ -304,23 +318,6 @@ in `magit-blame-read-only-mode-map' instead.") "Keymap for `magit-blame-read-only-mode'.") ;;; Modes -;;;; Variables - -(defvar-local magit-blame-buffer-read-only nil) -(defvar-local magit-blame-cache nil) -(defvar-local magit-blame-disabled-modes nil) -(defvar-local magit-blame-process nil) -(defvar-local magit-blame-recursive-p nil) -(defvar-local magit-blame-type nil) -(defvar-local magit-blame-separator nil) -(defvar-local magit-blame-previous-chunk nil) - -(defvar-local magit-blame--make-margin-overlays nil) -(defvar-local magit-blame--style nil) - -(defsubst magit-blame--style-get (key) - (cdr (assoc key (cdr magit-blame--style)))) - ;;;; Base Mode (define-minor-mode magit-blame-mode @@ -538,6 +535,9 @@ modes is toggled, then this mode also gets toggled automatically. ;;; Display +(defsubst magit-blame--style-get (key) + (cdr (assoc key (cdr magit-blame--style)))) + (defun magit-blame--make-overlays (buf chunk revinfo) (with-current-buffer buf (save-excursion