Mercurial > emacs
changeset 45914:d695502d7327
Re-enable code giving word syntax to certain japanese-jisx0208 characters.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Thu, 20 Jun 2002 01:02:47 +0000 |
| parents | 10ced436db47 |
| children | 09f444dd0dfe |
| files | lisp/international/characters.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/characters.el Wed Jun 19 22:41:53 2002 +0000 +++ b/lisp/international/characters.el Thu Jun 20 01:02:47 2002 +0000 @@ -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")