changeset 88402:3e3e42664df2

Adjusted for the change of map-char-table.
author Kenichi Handa <handa@m17n.org>
date Fri, 01 Mar 2002 02:05:45 +0000
parents 8eba780a3a36
children 3c6459e2914f
files lisp/eshell/esh-mode.el
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/eshell/esh-mode.el	Fri Mar 01 02:01:36 2002 +0000
+++ b/lisp/eshell/esh-mode.el	Fri Mar 01 02:05:45 2002 +0000
@@ -280,8 +280,11 @@
 	(map-char-table
 	 (function
 	  (lambda (key val)
-	    (and (>= key 256)
-		 (/= (char-syntax key) ?w)
+	    (and (if (consp key)
+		    (and (>= (car key) 128)
+			 (/= (char-syntax (car key)) ?w))
+		   (and (>= key 256)
+			(/= (char-syntax key) ?w)))
 		 (modify-syntax-entry key "_   "
 				      eshell-mode-syntax-table))))
 	 (standard-syntax-table)))))