Re: How to enable file status icons for Git?
Houman Dunnil <[email protected]>
| Newsgroups | gmane.emacs.code-browser |
|---|---|
| Message-ID | <[email protected]> |
Found the bug... It was because of eq function, changed it equal and
it works great now!
(defun ecb-vc-dir-managed-by-GIT (directory)
(let* ((cannon (file-truename directory))
(gitdir (concat cannon "/.git/")))
(cond ((equal cannon "/") 'nil)
((and (ecb-file-exists-p gitdir)
(locate-library "vc-git"))
'git)
(t
(ecb-vc-dir-managed-by-GIT (concat cannon "/../"))))))
On Mon, Apr 6, 2009 at 4:53 PM, Houman Dunnil <[email protected]> wrote:
> On Mon, Apr 6, 2009 at 3:46 PM, <[email protected]> wrote:
>> Well, let me recapitulate:
>>
>> If you have a directory-tree <top-most-directory> version-managed by Git then only <top-most-directory> has a subdir .git but all other subdirs containing git-managed sourc-files not, right?
>
> Correct.
>
> One step further...
>
> With the following method it works great for all files a Git
> directory, but I cannot browse directories in ECB that are not under
> Git control. It says "Lisp nesting exceeds `max-lisp-eval-depth'". Any
> clue?
>
> (defun ecb-vc-dir-managed-by-GIT (directory)
> (if (eq directory "/")
> nil
> (cond ((and (ecb-file-exists-p (concat directory "/.git/"))
> (locate-library "vc-git"))
> 'GIT)
> (t
> (ecb-vc-dir-managed-by-GIT (concat directory "/../"))))))
>
------------------------------------------------------------------------------
_______________________________________________
Ecb-list mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/ecb-list