mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-07 20:54:32 +00:00
Code Issues Releases Activity

(mm-codepage-setup): Tweak codepage error. Silence compiler warning.

Browse Source
This commit is contained in:
Glenn Morris 2008-10-02 17:27:35 +00:00
parent c8f55af594
commit 06b2d4c6a2
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View File

@ -1,3 +1,8 @@
2008-10-02 Glenn Morris <rgm@gnu.org>
* mm-util.el (mm-codepage-setup): Tweak codepage error.
Silence compiler warning.
2008-09-30 Chong Yidong <cyd@stupidchicken.com>
* mml.el (mml-menu): Don't assume mml2015 is bound.

8
lisp/gnus/mm-util.el
View File

@ -220,8 +220,8 @@ the alias. Else windows-NUMBER is used."
(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 @@ the alias. Else windows-NUMBER is used."
(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))