/[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.15 by kaz, Sun Jun 23 20:54:50 2002 UTC revision 1.16 by kaz, Sat Aug 17 18:58:50 2002 UTC
# Line 194  interpreter. This requires escaping of a Line 194  interpreter. This requires escaping of a
194                                     fixed-trail-args))))                                     fixed-trail-args))))
195        (execute-program fixed-args))))        (execute-program fixed-args))))
196    
197  (defun edit-file (name)  (defun invoke-editor-on (name)
198    (let ((editor (or *editor* (env-lookup "EDITOR" "vi"))))    (let ((editor (or *editor* (env-lookup "EDITOR" "vi"))))
199      (execute-program `(,editor ,name))))      (execute-program `(,editor ,name))))

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

  ViewVC Help
Powered by ViewVC 1.1.5