Function: ccl-compile-lookup-character

ccl-compile-lookup-character is a byte-compiled function defined in ccl.el.gz.

Signature

(ccl-compile-lookup-character CMD)

Documentation

Compile lookup-character.

Source Code

;; Defined in /usr/src/emacs/lisp/international/ccl.el.gz
(defun ccl-compile-lookup-character (cmd)
  "Compile lookup-character."
  (if (/= (length cmd) 4)
      (error "CCL: Invalid number of arguments: %s" cmd))
  (let ((Rrr (nth 1 cmd))
	(RRR (nth 2 cmd))
	(rrr (nth 3 cmd)))
    (ccl-check-register RRR cmd)
    (ccl-check-register rrr cmd)
    (cond ((and (symbolp Rrr) (not (get Rrr 'ccl-register-number)))
	   (ccl-embed-extended-command 'lookup-char-const-tbl
				       rrr RRR 0)
	   (ccl-embed-symbol Rrr 'translation-hash-table-id))
	  (t
           (error "CCL: Non-constant table: %s" cmd)
	   ;; not implemented:
	   (ccl-check-register Rrr cmd)
	   (ccl-embed-extended-command 'lookup-char rrr RRR 0))))
  nil)