Function: coding-system-get
coding-system-get is a byte-compiled function defined in mule.el.gz.
Signature
(coding-system-get CODING-SYSTEM PROP)
Documentation
Extract a value from CODING-SYSTEM's property list for property PROP.
For compatibility with Emacs 20/21, this accepts old-style symbols
like mime-charset as well as the current style like :mime-charset.
Probably introduced at or before Emacs version 20.3.
Source Code
;; Defined in /usr/src/emacs/lisp/international/mule.el.gz
(defun coding-system-get (coding-system prop)
"Extract a value from CODING-SYSTEM's property list for property PROP.
For compatibility with Emacs 20/21, this accepts old-style symbols
like `mime-charset' as well as the current style like `:mime-charset'."
(or (plist-get (coding-system-plist coding-system) prop)
(if (not (keywordp prop))
;; For backward compatibility.
(if (eq prop 'ascii-incompatible)
(not (plist-get (coding-system-plist coding-system)
:ascii-compatible-p))
(plist-get (coding-system-plist coding-system)
(intern (concat ":" (symbol-name prop))))))))