/[meta-cvs]/meta-cvs/F-FFF16CA4956A36F19290AC9E1EBAFFD8
ViewVC logotype

Diff of /meta-cvs/F-FFF16CA4956A36F19290AC9E1EBAFFD8

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.49.2.8 by kaz, Thu Jan 30 11:04:43 2003 UTC revision 1.49.2.9 by kaz, Thu Feb 13 07:20:49 2003 UTC
# Line 26  Line 26 
26  (defvar *displaced-path-length* nil)  (defvar *displaced-path-length* nil)
27    
28  (defun mcvs-locate ()  (defun mcvs-locate ()
29    (let ((current-dir (split-fields (getcwd) *path-sep*)))    (let ((current-dir (split-fields (getcwd) *path-sep*))
30            (escape-levels *nesting-escape-option*))
31      (dotimes (i (length current-dir) nil)      (dotimes (i (length current-dir) nil)
32        (let* ((path-components (butlast current-dir i))        (let* ((path-components (butlast current-dir i))
33               (path-string (reduce #'path-cat path-components)))               (path-string (reduce #'path-cat path-components)))
34          (when (ignore-errors (stat (path-cat path-string *mcvs-dir*)))          (when (and (ignore-errors (stat (path-cat path-string *mcvs-dir*)))
35                       (zerop (prog1 escape-levels (decf escape-levels))))
36              (when (> *nesting-escape-option* 0)
37                (chatter-info "using sandbox ~a~%" path-string))
38            (chdir path-string)            (chdir path-string)
39            (return (if (zerop i)            (return (if (zerop i)
40                      "."                      "."

Legend:
Removed from v.1.49.2.8  
changed lines
  Added in v.1.49.2.9

  ViewVC Help
Powered by ViewVC 1.1.5