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

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

[elpa] master 50d4dbc: * packages/gited/gited.el (gited-pull): Delete un


From: Tino Calancha
Subject: [elpa] master 50d4dbc: * packages/gited/gited.el (gited-pull): Delete unused variable
Date: Mon, 9 Apr 2018 22:32:34 -0400 (EDT)

branch: master
commit 50d4dbcbf6441d2991f19b9e8a90e0cb7eff6fcf
Author: Tino Calancha <address@hidden>
Commit: Tino Calancha <address@hidden>

    * packages/gited/gited.el (gited-pull): Delete unused variable
---
 packages/gited/gited.el | 31 +++++++++++++++----------------
 1 file changed, 15 insertions(+), 16 deletions(-)

diff --git a/packages/gited/gited.el b/packages/gited/gited.el
index dd804e0..b00cfca 100644
--- a/packages/gited/gited.el
+++ b/packages/gited/gited.el
@@ -10,9 +10,9 @@
 ;; Compatibility: GNU Emacs: 24.4
 ;; Version: 0.4.3
 ;; Package-Requires: ((emacs "24.4") (cl-lib "0.5"))
-;; Last-Updated: Mon Apr 09 21:35:06 JST 2018
+;; Last-Updated: Tue Apr 10 11:31:19 JST 2018
 ;;           By: calancha
-;;     Update #: 686
+;;     Update #: 687
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
@@ -2072,20 +2072,19 @@ show similar info as that command."
 (defun gited-pull ()
   "Pull from current remote repository."
   (interactive)
-  (let ((branch gited-current-branch))
-    (if (not (or gited-expert
-                 (y-or-n-p (format "Pull from remote repository '%s'? "
-                                   gited-current-remote-rep))))
-        (message "OK, pull canceled")
-      (let ((buf (gited--output-buffer))
-            (cmd (format "%s pull %s"
-                         vc-git-program
-                         gited-current-remote-rep))
-            (inhibit-read-only t))
-        (setq gited-output-buffer buf
-              gited-op-string cmd)
-        (with-current-buffer buf (erase-buffer))
-        (gited-async-operation cmd 'remote-op-p)))))
+  (if (not (or gited-expert
+               (y-or-n-p (format "Pull from remote repository '%s'? "
+                                 gited-current-remote-rep))))
+      (message "OK, pull canceled")
+    (let ((buf (gited--output-buffer))
+          (cmd (format "%s pull %s"
+                       vc-git-program
+                       gited-current-remote-rep))
+          (inhibit-read-only t))
+      (setq gited-output-buffer buf
+            gited-op-string cmd)
+      (with-current-buffer buf (erase-buffer))
+      (gited-async-operation cmd 'remote-op-p))))
 
 (defun gited-push (&optional force-with-lease)
   "Run git push in current branch.



reply via email to

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