[nongnu] elpa/pcmpl-args c124d44bf4 09/33: Use cache for git completions

[ELPA Syncer]

branch: elpa/pcmpl-args
commit c124d44bf4a7ab1f7752c7ba7eca8b68fa7a9fc1
Author: Alex Kost <alezost@gmail.com>
Commit: Troy Hinckley <t.macman@gmail.com>

    Use cache for git completions
---
 pcmpl-args.el | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/pcmpl-args.el b/pcmpl-args.el
index 719ebae358..918a36aaca 100644
--- a/pcmpl-args.el
+++ b/pcmpl-args.el
@@ -3135,14 +3135,15 @@ options found in its man page."
          cmds `(metadata (category . git-command)))))))
 
 (defun pcmpl-args-git-extract-argspecs-from-help (cmd)
-  (ignore-errors (kill-buffer " *pcmpl-args-output*"))
-  (with-current-buffer (get-buffer-create " *pcmpl-args-output*")
-    (erase-buffer)
-    (let ((process-environment process-environment))
-      (push "MANWIDTH=10000" process-environment)
-      (pcmpl-args-process-file "git" "help" "--man" "--" cmd)
-      (goto-char (point-min))
-      (pcmpl-args-extract-argspecs-from-buffer))))
+  (pcmpl-args-cached (cons 'git-commands cmd) t
+    (ignore-errors (kill-buffer " *pcmpl-args-output*"))
+    (with-current-buffer (get-buffer-create " *pcmpl-args-output*")
+      (erase-buffer)
+      (let ((process-environment process-environment))
+        (push "MANWIDTH=10000" process-environment)
+        (pcmpl-args-process-file "git" "help" "--man" "--" cmd)
+        (goto-char (point-min))
+        (pcmpl-args-extract-argspecs-from-buffer)))))
 
 (defun pcmpl-args-git-refs ()
   (pcmpl-args-process-lines "git" "rev-parse" "--abbrev-ref" "--all"))