[Emacs-diffs] trunk r114265: * lisp/gnus/gnus-spec.el (gnus-xmas-format): Fix weird error call.

[Glenn Morris]

------------------------------------------------------------
revno: 114265
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Fri 2013-09-13 00:28:16 -0700
message:
  * lisp/gnus/gnus-spec.el (gnus-xmas-format): Fix weird error call.
modified:
  lisp/gnus/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-1433
  lisp/gnus/gnus-spec.el         
gnusspec.el-20091113204419-o5vbwnq5f7feedwu-1134

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-09-13 07:19:15 +0000
+++ b/lisp/gnus/ChangeLog       2013-09-13 07:28:16 +0000
@@ -1,5 +1,7 @@
 2013-09-13  Glenn Morris  <address@hidden>
 
+       * gnus-spec.el (gnus-xmas-format): Fix weird error call.
+
        * gnus-html.el (declare-function): Add compat stub for ancient Emacs.
        (image-size): Declare.
 

=== modified file 'lisp/gnus/gnus-spec.el'
--- a/lisp/gnus/gnus-spec.el    2013-05-22 22:16:29 +0000
+++ b/lisp/gnus/gnus-spec.el    2013-09-13 07:28:16 +0000
@@ -512,7 +512,8 @@
          (delete-char -1))
         (t
          (if (null args)
-             (error 'wrong-number-of-arguments #'my-format n fstring))
+             (signal 'wrong-number-of-arguments
+                     (list #'gnus-xmas-format n fstring)))
          (let* ((minlen (string-to-number (or (match-string 2) "")))
                 (arg (car args))
                 (str (if (stringp arg) arg (format "%s" arg)))