Parent Directory | Revision Log | Patch
revision 1.12 by miles, Sun Apr 10 04:20:13 2005 UTC | revision 1.13 by miles, Mon May 30 17:13:58 2005 UTC | |
---|---|---|
# | Line 509 are supported for %s." | Line 509 are supported for %s." |
509 | (t | (t |
510 | (if (null args) | (if (null args) |
511 | (error 'wrong-number-of-arguments #'my-format n fstring)) | (error 'wrong-number-of-arguments #'my-format n fstring)) |
512 | (let* ((minlen (string-to-int (or (match-string 2) ""))) | (let* ((minlen (string-to-number (or (match-string 2) ""))) |
513 | (arg (car args)) | (arg (car args)) |
514 | (str (if (stringp arg) arg (format "%s" arg))) | (str (if (stringp arg) arg (format "%s" arg))) |
515 | (lpad (null (match-string 1))) | (lpad (null (match-string 1))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |