[137554] users/chunyang/helm-ls-svn.el/helm-ls-svn.el

[chunyang at macports.org]

Revision: 137554
          https://trac.macports.org/changeset/137554
Author:   chunyang at macports.org
Date:     2015-06-14 07:28:48 -0700 (Sun, 14 Jun 2015)
Log Message:
-----------
users/chunyang: helm-ls-svn.el: Don't use helm-ls-svn-branch to improve performance


Use branch name is cool but for now it's slow and will be called again and again.

Modified Paths:
--------------
    users/chunyang/helm-ls-svn.el/helm-ls-svn.el

Modified: users/chunyang/helm-ls-svn.el/helm-ls-svn.el
===================================================================
--- users/chunyang/helm-ls-svn.el/helm-ls-svn.el	2015-06-14 13:51:28 UTC (rev 137553)
+++ users/chunyang/helm-ls-svn.el/helm-ls-svn.el	2015-06-14 14:28:48 UTC (rev 137554)
@@ -63,7 +63,6 @@
 ;;
 ;; - Helm-find-files integration.
 ;; - Find out a suitable way to search in svn project.
-;; - Improve performance.
 
 ;;; Code:
 
@@ -106,10 +105,12 @@
    "svn info | grep '^URL:' | egrep -o '(tags|branches)/[^/]+|trunk' | egrep -o '[^/]+$' | tr -d '\n'"))
 
 (defun helm-ls-svn-header-name (name)
-  (let ((branch (helm-ls-svn-branch)))
-    (format "%s (%s)"
-            name (if (string= branch "")
-                     (helm-ls-svn-root-dir) branch))))
+  ;; Don't call `helm-ls-svn-branch'' because it's very slow
+  ;; (let ((branch (helm-ls-svn-branch)))
+  ;;   (format "%s (%s)"
+  ;;           name (if (string= branch "")
+  ;;                    (helm-ls-svn-root-dir) branch)))
+  (format "%s (%s)" name (helm-ls-svn-root-dir)))
 
 (defun helm-ls-svn-collect-data()
   (let ((root (helm-ls-svn-root-dir)))
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20150614/2736202b/attachment.html>