/[meta-cvs]/meta-cvs/F-9E93CACBDB115633C66D0EF9B052C490
ViewVC logotype

Diff of /meta-cvs/F-9E93CACBDB115633C66D0EF9B052C490

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

revision 1.1 by kaz, Sun Jan 27 18:04:21 2002 UTC revision 1.2 by kaz, Tue Jan 29 05:08:45 2002 UTC
# Line 45  parameter is missing." Line 45  parameter is missing."
45                 ;; short options                 ;; short options
46                 (let ((options (subseq argument 1))                 (let ((options (subseq argument 1))
47                       (saved-arglist arguments))                       (saved-arglist arguments))
48                     ;; for all option letters but the last, pretend that
49                     ;; there are no more arguments.
50                   (setf arguments nil)                   (setf arguments nil)
51                   (dotimes (i (length options))                   (dotimes (i (length options))
52                     (when (= i (1- (length options)))                     (when (= i (1- (length options)))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.5