aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJonas Bernoulli <jonas@bernoul.li>2015-08-23 14:20:46 +0200
committerJonas Bernoulli <jonas@bernoul.li>2015-08-23 14:20:46 +0200
commitafba3f95da679e871a91e46d61586a19d5191cde (patch)
tree8d23212a3500b8c4e07484760aadf94f3d9c4bdd
parent754cbd3e7716c104c474a0f9b9870fc9e9e0d627 (diff)
define remaining hook variables using defvar
Re #2198.
-rw-r--r--lisp/magit-mode.el4
-rw-r--r--lisp/magit-process.el4
-rw-r--r--lisp/with-editor.el2
3 files changed, 10 insertions, 0 deletions
diff --git a/lisp/magit-mode.el b/lisp/magit-mode.el
index a85ff83..3f2b459 100644
--- a/lisp/magit-mode.el
+++ b/lisp/magit-mode.el
@@ -389,6 +389,8 @@ The value is usually set using `magit-mode-setup'.")
The value is usually set using `magit-mode-setup'.")
(put 'magit-refresh-args 'permanent-local t)
+(defvar magit-mode-setup-hook nil)
+
;; Kludge. We use this instead of adding a new, optional argument to
;; `magit-setup-mode' in order to avoid breaking third-party packages.
;; See #2054 and #2060.
@@ -544,6 +546,8 @@ With a prefix argument, the user can pick an arbitrary name."
(defvar inhibit-magit-refresh nil)
+(defvar magit-pre-refresh-hook nil)
+
(defun magit-refresh ()
"Refresh some buffers belonging to the current repository.
diff --git a/lisp/magit-process.el b/lisp/magit-process.el
index 58659bd..cdaa8fa 100644
--- a/lisp/magit-process.el
+++ b/lisp/magit-process.el
@@ -214,6 +214,8 @@ variable `magit-process-buffer-name-format'."
(let ((inhibit-magit-revert t))
(magit-run-git args)))
+(defvar magit-pre-call-git-hook nil)
+
(defun magit-call-git (&rest args)
"Call Git synchronously in a separate process.
@@ -351,6 +353,8 @@ See `magit-start-process' and `with-editor' for more information."
(set-process-sentinel magit-this-process #'magit-sequencer-process-sentinel)
magit-this-process)
+(defvar magit-pre-start-git-hook nil)
+
(defun magit-start-git (input &rest args)
"Start Git, prepare for refresh, and return the process object.
diff --git a/lisp/with-editor.el b/lisp/with-editor.el
index d326afc..70c77f7 100644
--- a/lisp/with-editor.el
+++ b/lisp/with-editor.el
@@ -447,6 +447,8 @@ which may or may not insert the text into the PROCESS' buffer."
(with-editor-process-filter proc str t))
filter)))
+(defvar with-editor-filter-visit-hook nil)
+
(defun with-editor-output-filter (string)
(save-match-data
(if (string-match "^WITH-EDITOR: \\([0-9]+\\) OPEN \\(.+?\\)\r?$" string)