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

[chunyang at macports.org]

Revision: 138723
          https://trac.macports.org/changeset/138723
Author:   chunyang at macports.org
Date:     2015-07-17 00:39:58 -0700 (Fri, 17 Jul 2015)
Log Message:
-----------
users/chunyang: helm-ls-svn.el: Fix problem with latest helm

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-07-17 05:35:29 UTC (rev 138722)
+++ users/chunyang/helm-ls-svn.el/helm-ls-svn.el	2015-07-17 07:39:58 UTC (rev 138723)
@@ -4,7 +4,7 @@
 
 ;; Author: Chunyang Xu <chunyang at macports.org>
 ;; Created: Wed Jun 10 20:58:26 CST 2015
-;; Version: 0.2.2
+;; Version: 0.2.3
 ;; URL: https://svn.macports.org/repository/macports/users/chunyang/helm-ls-svn.el/helm-ls-svn.el
 ;; Package-Requires: ((emacs "24.1") (helm "1.7.0") (cl-lib "0.5"))
 ;; Keywords: helm svn
@@ -95,6 +95,7 @@
 (require 'vc)
 (require 'vc-svn)
 (require 'helm-files)
+(require 'helm-types)
 
 ;; Define the sources.
 (defvar helm-source-ls-svn-status nil)
@@ -157,7 +158,7 @@
   ;;                    (helm-ls-svn-root-dir) branch)))
   (format "%s (%s)" name (helm-ls-svn-root-dir)))
 
-(defun helm-ls-svn-collect-data()
+(defun helm-ls-svn-collect-data ()
   (let ((root (helm-ls-svn-root-dir)))
     (with-current-buffer (helm-candidate-buffer 'global)
       (let ((default-directory root))
@@ -279,11 +280,10 @@
    (data :initform 'helm-ls-svn-collect-data)
    (keymap :initform helm-ls-svn-map)
    (help-message :initform helm-generic-file-help-message)
-   (mode-line :initform helm-generic-file-mode-line-string)
    (candidate-transformer :initform '(helm-ls-svn-transformer
                                       helm-ls-svn-sort-fn))
    (candidate-number-limit :initform 9999)
-   (action :initform (helm-actions-from-type-file))))
+   (action :initform helm-type-file-actions)))
 
 (defclass helm-ls-svn-status-source (helm-source-in-buffer)
   ((header-name :initform 'helm-ls-svn-header-name)
@@ -313,7 +313,7 @@
        (user-error "Not under a svn repository"))
   (unless helm-source-ls-svn-buffers
     (setq helm-source-ls-svn-buffers
-          (helm-make-source "Buffers in project" 'helm-source-buffers
+          (helm-make-source "Buffers in svn project" 'helm-source-buffers
             :header-name #'helm-ls-svn-header-name
             :buffer-list (lambda () (helm-browse-project-get-buffers
                                      (helm-ls-svn-root-dir))))))
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20150717/69814cae/attachment-0001.html>