Mercurial > emacs
changeset 98462:512497325cb3
(mm-codepage-setup): Tweak codepage error. Silence compiler warning.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Thu, 02 Oct 2008 17:27:27 +0000 |
| parents | 976ed432b7ec |
| children | bc0b0571f554 |
| files | lisp/gnus/mm-util.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/mm-util.el Thu Oct 02 17:08:12 2008 +0000 +++ b/lisp/gnus/mm-util.el Thu Oct 02 17:27:27 2008 +0000 @@ -220,8 +220,8 @@ (let ((completion-ignore-case t) (candidates (if (fboundp 'cp-supported-codepages) (cp-supported-codepages) - ;; Removed in Emacs 23 (unicode), sosignal an error: - (error "`codepage-setup' is obsolete in this Emacs version.")))) + ;; Removed in Emacs 23 (unicode), so signal an error: + (error "`codepage-setup' not present in this Emacs version.")))) (list (completing-read "Setup DOS Codepage: (default 437) " candidates nil t nil nil "437")))) (when alias @@ -230,7 +230,9 @@ (intern (format "windows-%s" number))))) (let* ((cp (intern (format "cp%s" number)))) (unless (mm-coding-system-p cp) - (codepage-setup number)) + (if (fboundp 'codepage-setup) ; silence compiler + (codepage-setup number) + (error "`codepage-setup' not present in this Emacs version."))) (when (and alias ;; Don't add alias if setup of cp failed. (mm-coding-system-p cp))