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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2494ce2f57d21b160cc0724cd50c6a0fff94bf04..c3ede33d669cb5fa75f6cdb84249e5490ed546c9 100644 (file)
--- 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 f9260f965ab34e28db8792cb9b2df9ad7d250402..c6baa4e35da89c0a54d18720916a726537190768 100644 (file)
--- 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 '(?\e$B!<\e(B ?\e$B!+\e(B ?\e$B!,\e(B ?\e$B!3\e(B ?\e$B!4\e(B ?\e$B!5\e(B ?\e$B!6\e(B ?\e$B!7\e(B ?\e$B!8\e(B ?\e$B!9\e(B ?\e$B!:\e(B ?\e$B!;\e(B)))
-;;   (while chars
-;;     (modify-syntax-entry (car chars) "w")
-;;     (setq chars (cdr chars))))
+(let ((chars '(?\e$B!<\e(B ?\e$B!+\e(B ?\e$B!,\e(B ?\e$B!3\e(B ?\e$B!4\e(B ?\e$B!5\e(B ?\e$B!6\e(B ?\e$B!7\e(B ?\e$B!8\e(B ?\e$B!9\e(B ?\e$B!:\e(B ?\e$B!;\e(B)))
+  (while chars
+    (modify-syntax-entry (car chars) "w")
+    (setq chars (cdr chars))))
 (modify-syntax-entry ?\\e$B!J\e(B "(\e$B!K\e(B")
 (modify-syntax-entry ?\\e$B!N\e(B "(\e$B!O\e(B")
 (modify-syntax-entry ?\\e$B!P\e(B "(\e$B!Q\e(B")