Function: ccl-embed-extended-command

ccl-embed-extended-command is a byte-compiled function defined in ccl.el.gz.

Signature

(ccl-embed-extended-command EX-OP REG REG2 REG3)

Documentation

extended ccl command format
|- 14-bit -|- 3-bit --|- 3-bit --|- 3-bit --|- 5-bit -|
|- EX-OP --|-- REG3 --|-- REG2 --|-- REG ---|-- OP ---|

Source Code

;; Defined in /usr/src/emacs/lisp/international/ccl.el.gz
(defun ccl-embed-extended-command (ex-op reg reg2 reg3)
  "extended ccl command format
	|- 14-bit -|- 3-bit --|- 3-bit --|- 3-bit --|- 5-bit -|
	|- EX-OP --|-- REG3 --|-- REG2 --|-- REG ---|-- OP ---|"
  (let ((data (logior (ash (get ex-op 'ccl-ex-code) 3)
		      (if (symbolp reg3)
			  (get reg3 'ccl-register-number)
			0))))
    (ccl-embed-code 'ex-cmd reg data reg2)))