 ;;; helm-etags+.el --- Another Etags helm.el interface
 
 ;; Created: 2011-02-23
-;; Last Updated: 纪秀峰 2013-11-25 23:42:03 
-;; Version: 0.1.7
+;; Last Updated: 纪秀峰 2014-03-08 13:26:18
+;; Version: 0.2.1
 ;; Author: 纪秀峰(Joseph) <jixiuf@gmail.com>
 ;; Copyright (C) 2011~2012, 纪秀峰(Joseph), all rights reserved.
 ;; URL       :https://github.com/jixiuf/helm-etags-plus

    (if (memq tags-case-fold-search '(nil t))
        tags-case-fold-search
      case-fold-search)))

(defun helm-etags+-find-tags-file ()
  "recursively searches each parent directory for a file named 'TAGS' and returns the

            (setq tag-line (replace-regexp-in-string  "\t" (make-string tab-width ? ) tag-line))
            (end-of-line)
            ;;(setq src-file-name (etags-file-of-tag))
            (setq src-file-name   (helm-etags+-file-truename (etags-file-of-tag)))
            (let ((display)(real (list  src-file-name tag-info full-tagname))
                  (src-location-display (file-name-nondirectory src-file-name)))
              (cond
               ((equal helm-etags+-use-short-file-name nil)
                (let ((tag-table-parent (helm-etags+-file-truename (file-name-directory (buffer-file-name tag-table-buffer))))
                      (src-file-parent (file-name-directory src-file-name)))
                  (when (string-match  (regexp-quote tag-table-parent) src-file-name)
                    (if (equal 'filename-after-dir helm-etags+-filename-location)
