Function: put-char-code-property

put-char-code-property is a byte-compiled function defined in mule-cmds.el.gz.

Signature

(put-char-code-property CHAR PROPNAME VALUE)

Documentation

Store CHAR's PROPNAME property with VALUE.

It can be retrieved with (get-char-code-property CHAR PROPNAME).

Source Code

;; Defined in /usr/src/emacs/lisp/international/mule-cmds.el.gz
(defun put-char-code-property (char propname value)
  "Store CHAR's PROPNAME property with VALUE.
It can be retrieved with `(get-char-code-property CHAR PROPNAME)'."
  (let ((table (unicode-property-table-internal propname)))
    (if table
	(let ((func (char-table-extra-slot table 2)))
	  (if (functionp func)
	      (funcall func char value table)
	    (put-unicode-property-internal table char value)))
      (let* ((plist (aref char-code-property-table char))
	     (x (plist-put plist propname value)))
	(or (eq x plist)
	    (aset char-code-property-table char x))))
    value))