From cf6af551a38728f755798441db19be2d7adb2860 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Thu, 20 Jun 2002 01:02:57 +0000 Subject: [PATCH] Re-enable code giving word syntax to certain japanese-jisx0208 characters. --- lisp/ChangeLog | 10 ++++++++++ lisp/international/characters.el | 10 +++++----- 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 + + * international/characters.el: Re-enable code giving word syntax + to certain japanese-jisx0208 characters. + +2002-06-18 Miles Bader + + * comint.el (comint-output-filter): Run output-filter functions + before setting up the prompt. + 2002-06-19 Glenn Morris * 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 '(?ー ?゛ ?゜ ?ヽ ?ヾ ?ゝ ?ゞ ?〃 ?仝 ?々 ?〆 ?〇))) -;; (while chars -;; (modify-syntax-entry (car chars) "w") -;; (setq chars (cdr chars)))) +(let ((chars '(?ー ?゛ ?゜ ?ヽ ?ヾ ?ゝ ?ゞ ?〃 ?仝 ?々 ?〆 ?〇))) + (while chars + (modify-syntax-entry (car chars) "w") + (setq chars (cdr chars)))) (modify-syntax-entry ?\（ "(）") (modify-syntax-entry ?\［ "(］") (modify-syntax-entry ?\｛ "(｝") -- 2.39.2