On Sun, Feb 19 2006, Mike Kupfer wrote:
mm-coding-system-p appears to be trying to figure out what coding
system
interface to use,
[ This is the relevant code: ]
,----[ `mm-util.el' ]
| (defun mm-coding-system-p (cs)
| "Return non-nil if CS is a symbol naming a coding system.
| In XEmacs, also return non-nil if CS is a coding system object.
| If CS is available, return CS itself in Emacs, and return a coding
| system object in XEmacs."
| (if (fboundp 'find-coding-system)
| (and cs (find-coding-system cs))
| (if (fboundp 'coding-system-p)
| (when (coding-system-p cs)
| cs)
| ;; Is this branch ever actually useful?
| (car (memq cs (mm-get-coding-system-list))))))
`----
So "Is this branch ever actually useful?" is used in non-MULE XEmacs.
with the choices being find-coding-system, coding-system-p, and
mm-get-coding-system-list. Are any of these standard Emacs or
XEmacs interfaces?
`coding-system-p' is a standard Emacs interface:
,----[ (info "(elisp)Lisp and Coding Systems") ]
| -- Function: coding-system-p object
| This function returns `t' if OBJECT is a coding system name or
| `nil'.
`----
The function `find-coding-system' doesn't exist in Emacs 21/22.
In case it wasn't obvious: mm-coding-system-list (the function) is
aliased to "ignore" if (fbound 'coding-system-list) is nil.
Leaving this for the XEmacs folks...
The docstring for mm-coding-system-p says it returns "a coding
system
object in XEmacs". The XEmacs Lisp reference talks about coding
systems, under MULE. Does that mean that coding system objects only
exist in MULE XEmacs? What should (mm-coding-system-p 'iso-8859-1)
return in non-MULE XEmacs?
Bye, Reiner.
--
,,,
(o o)
---ooO-(_)-Ooo--- | PGP key available |
http://rsteib.home.pages.de/