From 8bd936fe447b5cccf9637bc01e1eaa78ee46fb41 Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Thu, 24 Jul 2008 11:12:50 +0000
Subject: Fix maths menu tokenise adjustment for type of
 unicode-tokens-uchar-hash-table.

---
 lib/unicode-tokens.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/unicode-tokens.el b/lib/unicode-tokens.el
index cb2414c5..b2d55bce 100644
--- a/lib/unicode-tokens.el
+++ b/lib/unicode-tokens.el
@@ -596,11 +596,13 @@ of symbol compositions, and will lose layout information."
 
       ;; adjust maths menu to insert tokens
       (set (make-local-variable 'maths-menu-filter-predicate)
-	   (lambda (uchar) (gethash uchar unicode-tokens-uchar-hash-table)))
+	   (lambda (uchar) (gethash (char-to-string uchar)
+				    unicode-tokens-uchar-hash-table)))
       (set (make-local-variable 'maths-menu-tokenise-insert)
 	   (lambda (uchar) 
 	     (unicode-tokens-insert-token
-	      (gethash uchar unicode-tokens-uchar-hash-table)))))
+	      (gethash (char-to-string uchar)
+			 unicode-tokens-uchar-hash-table)))))
 
     (when (not unicode-tokens-mode)
       (when flks
-- 
cgit v1.2.3