/[meta-cvs]/meta-cvs/F-123D61C8FE941733281D2B08C15CD438
ViewVC logotype

Diff of /meta-cvs/F-123D61C8FE941733281D2B08C15CD438

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

revision 1.18 by kaz, Mon Oct 7 02:25:29 2002 UTC revision 1.18.2.3 by kaz, Sat Nov 16 20:02:58 2002 UTC
# Line 10  Line 10 
10    (defconstant *this-dir* ".")    (defconstant *this-dir* ".")
11    (defconstant *path-sep* "/"))    (defconstant *path-sep* "/"))
12    
13  (defvar *editor* nil)  (defvar *mcvs-editor* nil)
14    
15    (defconstant *argument-limit* (* 64 1024))
16    
17  (defun canonicalize-path (path)  (defun canonicalize-path (path)
18  "Simplifies a POSIX path by eliminating . components, splicing out as many ..  "Simplifies a POSIX path by eliminating . components, splicing out as many ..
# Line 190  interpreter. This requires escaping of a Line 192  interpreter. This requires escaping of a
192        (execute-program fixed-args))))        (execute-program fixed-args))))
193    
194  (defun invoke-editor-on (name)  (defun invoke-editor-on (name)
195    (let ((editor (or *editor* (env-lookup "EDITOR" "vi"))))    (let ((editor (or *mcvs-editor*
196                        (env-lookup "CVSEDITOR")
197                        (env-lookup "VISUAL")
198                        (env-lookup "EDITOR" "vi"))))
199      (execute-program `(,editor ,name))))      (execute-program `(,editor ,name))))

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.18.2.3

  ViewVC Help
Powered by ViewVC 1.1.5