From aa1db75f701dc8e5b11678451fa322e893a25be8 Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 6 Oct 1998 15:44:32 +0000 Subject: [PATCH] Add commented out modification for `coding-system-list'. --- poem-xm.el | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) 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 ;;; -- 1.7.10.4