From: morioka <morioka>
Date: Tue, 6 Oct 1998 15:44:32 +0000 (+0000)
Subject: Add commented out modification for `coding-system-list'.
X-Git-Tag: apel-9_1~5
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=aa1db75f701dc8e5b11678451fa322e893a25be8;p=elisp%2Fapel.git

Add commented out modification for `coding-system-list'.
---

diff --git a/poem-xm.el b/poem-xm.el
index 1ce5eec..58ab3e2 100644
--- a/poem-xm.el
+++ b/poem-xm.el
@@ -69,6 +69,26 @@
 		  mnemonic "ko/EUC"
 		  eol-type nil)))
 
+;; (when (= (function-max-args 'coding-system-list) 0)
+;;   (or (fboundp 'coding-system-list-internal)
+;;       (fset 'coding-system-list-internal
+;;             (symbol-function 'coding-system-list)))
+;;   (defun coding-system-list (&optional base-only)
+;;     "Return a list of all existing coding systems.
+;; If optional arg BASE-ONLY is non-nil, only base coding systems are listed."
+;;     (if base-only
+;;         (let (dest
+;;               (rest (coding-system-list-internal))
+;;               cs)
+;;           (while rest
+;;             (setq cs (coding-system-name (coding-system-base (pop rest))))
+;;             (or (memq cs dest)
+;;                 (push cs dest))
+;;             )
+;;           dest)
+;;       (coding-system-list-internal)))
+;;   )
+
 
 ;;; @ buffer representation
 ;;;