diff options
| author | Glenn Morris | 2013-09-13 00:28:16 -0700 |
|---|---|---|
| committer | Glenn Morris | 2013-09-13 00:28:16 -0700 |
| commit | 311273ab7973644d14ffa2e5c0f3516306aa4d6d (patch) | |
| tree | e35a6b84eef6bea128d7813bdedb72a8c4f15b28 | |
| parent | 96fd6ea2144e30cfb7aae3a3267e349b2e64bc1b (diff) | |
| download | emacs-311273ab7973644d14ffa2e5c0f3516306aa4d6d.tar.gz emacs-311273ab7973644d14ffa2e5c0f3516306aa4d6d.zip | |
* lisp/gnus/gnus-spec.el (gnus-xmas-format): Fix weird error call.
| -rw-r--r-- | lisp/gnus/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/gnus/gnus-spec.el | 3 |
2 files changed, 4 insertions, 1 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 4e72ae06f51..5ba1d45e46a 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,5 +1,7 @@ | |||
| 1 | 2013-09-13 Glenn Morris <rgm@gnu.org> | 1 | 2013-09-13 Glenn Morris <rgm@gnu.org> |
| 2 | 2 | ||
| 3 | * gnus-spec.el (gnus-xmas-format): Fix weird error call. | ||
| 4 | |||
| 3 | * gnus-html.el (declare-function): Add compat stub for ancient Emacs. | 5 | * gnus-html.el (declare-function): Add compat stub for ancient Emacs. |
| 4 | (image-size): Declare. | 6 | (image-size): Declare. |
| 5 | 7 | ||
diff --git a/lisp/gnus/gnus-spec.el b/lisp/gnus/gnus-spec.el index 0ff8ec89ac1..a39f185b56d 100644 --- a/lisp/gnus/gnus-spec.el +++ b/lisp/gnus/gnus-spec.el | |||
| @@ -512,7 +512,8 @@ are supported for %s." | |||
| 512 | (delete-char -1)) | 512 | (delete-char -1)) |
| 513 | (t | 513 | (t |
| 514 | (if (null args) | 514 | (if (null args) |
| 515 | (error 'wrong-number-of-arguments #'my-format n fstring)) | 515 | (signal 'wrong-number-of-arguments |
| 516 | (list #'gnus-xmas-format n fstring))) | ||
| 516 | (let* ((minlen (string-to-number (or (match-string 2) ""))) | 517 | (let* ((minlen (string-to-number (or (match-string 2) ""))) |
| 517 | (arg (car args)) | 518 | (arg (car args)) |
| 518 | (str (if (stringp arg) arg (format "%s" arg))) | 519 | (str (if (stringp arg) arg (format "%s" arg))) |