From b06ee58fd68a93425723a1cc1b1841fc509108d6 Mon Sep 17 00:00:00 2001 From: hedy Date: Mon, 11 Sep 2023 16:23:10 +0800 Subject: char: Suppress reference to free variable warning --- cape-char.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/cape-char.el b/cape-char.el index ee2cd65..b1fa877 100644 --- a/cape-char.el +++ b/cape-char.el @@ -58,7 +58,7 @@ retain the original string; otherwise they are stored as chars." (apply #'quail-use-package method (nthcdr 5 (assoc method input-method-alist))) (let ((hash (make-hash-table :test #'equal)) (decode-map (list 'dm))) - (quail-build-decode-map (list (nth 2 quail-current-package)) "" decode-map 0) + (quail-build-decode-map (list (quail-map)) "" decode-map 0) ;; Now decode-map contains: (dm (name . value) (name . value) ...) (dolist (cell (cdr decode-map)) (let ((name (car cell)) (value (cdr cell)) -- cgit v1.0