Re-enable code giving word syntax to certain japanese-jisx0208 characters.

2 files changed, 15 insertions, 5 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2494ce2f57d..c3ede33d669 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2002-06-20  Miles Bader  <miles@gnu.org>
+
+        * international/characters.el: Re-enable code giving word syntax
+        to certain japanese-jisx0208 characters.
+
+2002-06-18  Miles Bader  <miles@gnu.org>
+
+        * comint.el (comint-output-filter): Run output-filter functions
+        before setting up the prompt.
+
 2002-06-19  Glenn Morris  <gmorris@ast.cam.ac.uk>
 
         * progmodes/f90.el (f90-type-def-re): Fix value.
diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index f9260f965ab..c6baa4e35da 100644
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 1995, 1997 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
-;; Copyright (C) 2001 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2002 Free Software Foundation, Inc.
 
 ;; Keywords: multibyte character, character set, syntax, category
 
@@ -574,10 +574,10 @@
 (modify-syntax-entry (make-char 'japanese-jisx0208 33) "_")
 (modify-syntax-entry (make-char 'japanese-jisx0208 34) "_")
 (modify-syntax-entry (make-char 'japanese-jisx0208 40) "_")
-;; (let ((chars '(?$B!<(B ?$B!+(B ?$B!,(B ?$B!3(B ?$B!4(B ?$B!5(B ?$B!6(B ?$B!7(B ?$B!8(B ?$B!9(B ?$B!:(B ?$B!;(B)))
-;;   (while chars
-;;     (modify-syntax-entry (car chars) "w")
-;;     (setq chars (cdr chars))))
+(let ((chars '(?$B!<(B ?$B!+(B ?$B!,(B ?$B!3(B ?$B!4(B ?$B!5(B ?$B!6(B ?$B!7(B ?$B!8(B ?$B!9(B ?$B!:(B ?$B!;(B)))
+  (while chars
+    (modify-syntax-entry (car chars) "w")
+    (setq chars (cdr chars))))
 (modify-syntax-entry ?\$B!J(B "($B!K(B")
 (modify-syntax-entry ?\$B!N(B "($B!O(B")
 (modify-syntax-entry ?\$B!P(B "($B!Q(B")