emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/git-commit 6e55344 2/6: git-commit: Silence byte-compiler


From: ELPA Syncer
Subject: [nongnu] elpa/git-commit 6e55344 2/6: git-commit: Silence byte-compiler
Date: Mon, 4 Oct 2021 16:57:42 -0400 (EDT)

branch: elpa/git-commit
commit 6e553440b4ddc5b3d22207937da2c71ac5c80191
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    git-commit: Silence byte-compiler
---
 lisp/git-commit.el | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/lisp/git-commit.el b/lisp/git-commit.el
index 9bd14fa..4c0716f 100644
--- a/lisp/git-commit.el
+++ b/lisp/git-commit.el
@@ -116,6 +116,7 @@
 (require 'subr-x)
 
 (require 'magit-git nil t)
+(require 'magit-mode nil t)
 (require 'magit-utils nil t)
 
 (require 'log-edit)
@@ -309,7 +310,9 @@ already using it, then you probably shouldn't start doing 
so."
 (defcustom git-commit-use-local-message-ring nil
   "Whether to use a local message ring instead of the global one.
 This can be set globally, in which case every repository gets its
-own commit message ring, or locally for a single repository."
+own commit message ring, or locally for a single repository.  If
+Magit isn't available, then setting this to a non-nil value has
+no effect."
   :group 'git-commit
   :safe 'booleanp
   :type 'boolean)
@@ -714,13 +717,15 @@ With a numeric prefix ARG, go forward ARG comments."
     (when-let ((index (ring-member log-edit-comment-ring message)))
       (ring-remove log-edit-comment-ring index))
     (ring-insert log-edit-comment-ring message)
-    (when git-commit-use-local-message-ring
+    (when (and git-commit-use-local-message-ring
+               (fboundp 'magit-repository-local-set))
       (magit-repository-local-set 'log-edit-comment-ring
                                   log-edit-comment-ring))))
 
 (defun git-commit-prepare-message-ring ()
   (make-local-variable 'log-edit-comment-ring-index)
-  (when git-commit-use-local-message-ring
+  (when (and git-commit-use-local-message-ring
+             (fboundp 'magit-repository-local-get))
     (setq-local log-edit-comment-ring
                 (magit-repository-local-get
                  'log-edit-comment-ring



reply via email to

[Prev in Thread] Current Thread [Next in Thread]