/[emacs]/emacs/lisp/gnus/gnus-spec.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-spec.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)))

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26