Function: quail-store-decode-map-key

quail-store-decode-map-key is a byte-compiled function defined in quail.el.gz.

Signature

(quail-store-decode-map-key TABLE CHAR KEY)

Source Code

;; Defined in /usr/src/emacs/lisp/international/quail.el.gz
;; Add KEY (string) to the element of TABLE (char-table) for CHAR if
;; it is not yet stored.  As a result, the element is a string or a
;; list of strings.

(defun quail-store-decode-map-key (table char key)
  (let ((elt (aref table char)))
    (if elt
	(if (consp elt)
	    (or (member key elt)
		(aset table char (cons key elt)))
	  (or (string= key elt)
	      (aset table char (list key elt))))
      (aset table char key))
    ;; Avoid "obsolete" warnings for translation-table-for-input.
    (with-no-warnings
      (if (and translation-table-for-input
	       (setq char (aref translation-table-for-input char)))
	  (let ((translation-table-for-input nil))
	    (quail-store-decode-map-key table char key))))))