guile-elisp bootstrap (lisp)

[bpt/emacs.git] / lisp / international / mule-cmds.el

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index f6c0719..fbbaa60 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -30,8 +30,6 @@
 
 ;;; Code:
 
-(eval-when-compile (require 'cl-lib))
-
 (defvar dos-codepage)
 (autoload 'widget-value "wid-edit")
 
@@ -550,7 +548,8 @@ Emacs, but is unlikely to be what you really want now."
                                     (coding-system-charset-list cs)))
                   (charsets charsets))
               (if (coding-system-get cs :ascii-compatible-p)
-                  (cl-pushnew 'ascii cs-charsets))
+                   (if (not (memql 'ascii cs-charsets))
+                       (push 'ascii cs-charsets)))
               (if (catch 'ok
                     (when cs-charsets
                       (while charsets