/[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.5 by kaz, Tue Apr 1 06:37:46 2003 UTC revision 1.18.2.6 by kaz, Mon Apr 7 01:24:31 2003 UTC
# Line 176  interpreter. This requires escaping of a Line 176  interpreter. This requires escaping of a
176                               :initial-value 0))                               :initial-value 0))
177           (size fixed-size))           (size fixed-size))
178      (if extra-args      (if extra-args
179        (let (chopped-arg)        (let ((chopped-arg ())
180                (combined-status t))
181          (dolist (arg extra-args)          (dolist (arg extra-args)
182            (push arg chopped-arg)            (push arg chopped-arg)
183            (when (> (incf size (1+ (length arg))) *argument-limit*)            (when (> (incf size (1+ (length arg))) *argument-limit*)
184              (when (not (execute-program (append fixed-args              (setf combined-status
185                      (and combined-status
186                           (execute-program (append fixed-args
187                                                  (nreverse chopped-arg)                                                  (nreverse chopped-arg)
188                                                  fixed-trail-args)))                                                  fixed-trail-args))))
               (return-from execute-program-xargs nil))  
189              (setf chopped-arg nil)              (setf chopped-arg nil)
190              (setf size fixed-size)))              (setf size fixed-size)))
191          (when chopped-arg          (when chopped-arg
192            (execute-program (append fixed-args (nreverse chopped-arg)            (execute-program (append fixed-args (nreverse chopped-arg)
193                                     fixed-trail-args))))                                     fixed-trail-args)))
194            combined-status)
195        (execute-program fixed-args))))        (execute-program fixed-args))))
196    
197  (defun invoke-editor-on (name)  (defun invoke-editor-on (name)

Legend:
Removed from v.1.18.2.5  
changed lines
  Added in v.1.18.2.6

  ViewVC Help
Powered by ViewVC 1.1.5