From 0ca06cfb2204bf15a76b1be24ecc859731dd1c74 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 5 Feb 2025 19:43:45 -0500 Subject: [PATCH] (font-ccl-encoder-alist): Delete variable, unused * src/ccl.c (syms_of_ccl): Remove `font-ccl-encoder-alist`. * lisp/language/ethiopic.el (ccl-encode-ethio-font): Delete CCL program. (font-ccl-encoder-alist): Don't modify it. (cherry picked from commit 4be087f1e12afb2ea4de1a5686d14a28a9a20940) --- lisp/language/ethiopic.el | 22 ---------------------- src/ccl.c | 13 ------------- 2 files changed, 35 deletions(-) diff --git a/lisp/language/ethiopic.el b/lisp/language/ethiopic.el index 14098c7e470..9c254cbfc6e 100644 --- a/lisp/language/ethiopic.el +++ b/lisp/language/ethiopic.el @@ -36,28 +36,6 @@ ;;; Code: -(define-ccl-program ccl-encode-ethio-font - '(0 - ;; In: R0:ethiopic (not checked) - ;; R1:position code 1 - ;; R2:position code 2 - ;; Out: R1:font code point 1 - ;; R2:font code point 2 - ((r1 -= 33) - (r2 -= 33) - (r1 *= 94) - (r2 += r1) - (if (r2 < 256) - (r1 = #x12) - (if (r2 < 448) - ((r1 = #x13) (r2 -= 256)) - ((r1 = #xfd) (r2 -= 208)) - )))) - "CCL program to encode an Ethiopic code to code point of Ethiopic font.") - -(setq font-ccl-encoder-alist - (cons (cons "ethiopic" ccl-encode-ethio-font) font-ccl-encoder-alist)) - (set-language-info-alist "Ethiopic" '((setup-function . setup-ethiopic-environment-internal) (exit-function . exit-ethiopic-environment) diff --git a/src/ccl.c b/src/ccl.c index 78845ebaf65..a45fe0439c4 100644 --- a/src/ccl.c +++ b/src/ccl.c @@ -2379,19 +2379,6 @@ syms_of_ccl (void) doc: /* Vector of code conversion maps. */); Vcode_conversion_map_vector = make_nil_vector (16); - DEFVAR_LISP ("font-ccl-encoder-alist", Vfont_ccl_encoder_alist, - doc: /* Alist of fontname patterns vs corresponding CCL program. -Each element looks like (REGEXP . CCL-CODE), - where CCL-CODE is a compiled CCL program. -When a font whose name matches REGEXP is used for displaying a character, - CCL-CODE is executed to calculate the code point in the font - from the charset number and position code(s) of the character which are set - in CCL registers R0, R1, and R2 before the execution. -The code point in the font is set in CCL registers R1 and R2 - when the execution terminated. - If the font is single-byte font, the register R2 is not used. */); - Vfont_ccl_encoder_alist = Qnil; - DEFVAR_LISP ("translation-hash-table-vector", Vtranslation_hash_table_vector, doc: /* Vector containing all translation hash tables ever defined. Comprises pairs (SYMBOL . TABLE) where SYMBOL and TABLE were set up by calls -- 2.39.5