/[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.2.2 by kaz, Thu Oct 17 15:28:17 2002 UTC revision 1.18.2.3 by kaz, Sat Nov 16 20:02:58 2002 UTC
# Line 192  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 *mcvs-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.2.2  
changed lines
  Added in v.1.18.2.3

  ViewVC Help
Powered by ViewVC 1.1.5