Mercurial > dotfiles

comparison .elisp/textmate.el @ 134:fe9d358b9fe8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
textmate.el: Fix an infinite recursion bug when not using a supported VCS
author Augie Fackler <durin42@gmail.com>
date Tue, 18 Aug 2009 10:15:09 -0500
parents 26450200777a
children e30655eb7050
comparison
equal deleted inserted replaced
133:5b0b8ad2cb2c 134:fe9d358b9fe8
309 (cond 309 (cond
310 ((null textmate-use-file-cache) (textmate-project-files root)) 310 ((null textmate-use-file-cache) (textmate-project-files root))
311 ((equal (textmate-project-root) (car *textmate-project-files*)) 311 ((equal (textmate-project-root) (car *textmate-project-files*))
312 (cdr *textmate-project-files*)) 312 (cdr *textmate-project-files*))
313 (t (cdr (setq *textmate-project-files* 313 (t (cdr (setq *textmate-project-files*
314 `(,root . ,(textmate-project-files root))))))) 314 `(,root . ,(textmate-project-files-find root)))))))
315 315
316 (defun textmate-project-root () 316 (defun textmate-project-root ()
317 (when (or 317 (when (or
318 (null *textmate-project-root*) 318 (null *textmate-project-root*)
319 (not (string-match *textmate-project-root* default-directory))) 319 (not (string-match *textmate-project-root* default-directory)))