Parent Directory | Revision Log | Patch
revision 1.266.2.15 by mdj, Mon Jan 27 11:02:50 2003 UTC | revision 1.266.2.16 by mvo, Sat May 3 20:54:13 2003 UTC | |
---|---|---|
# | Line 868 | Line 868 |
868 | (left-part (string-append | (left-part (string-append |
869 | (with-output-to-string | (with-output-to-string |
870 | (lambda () | (lambda () |
871 | (map (lambda (x) (display (keyword-symbol x)) (display " ")) | (map (lambda (x) (display (keyword->symbol x)) (display " ")) |
872 | opts-proper))) | opts-proper))) |
873 | arg-name)) | arg-name)) |
874 | (middle-part (if (and (< (string-length left-part) 30) | (middle-part (if (and (< (string-length left-part) 30) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |