[Emacs-diffs] /srv/bzr/emacs/trunk r110381: international/characters.el: Fix simple mistake ((car chars) -> elt), delete duplicated code.

[Kenichi Handa]

------------------------------------------------------------
revno: 110381 [merge]
committer: Kenichi Handa <address@hidden>
branch nick: trunk
timestamp: Sat 2012-10-06 21:56:11 +0900
message:
  international/characters.el: Fix simple mistake ((car chars) -> elt), delete 
duplicated code.
modified:
  lisp/ChangeLog
  lisp/international/characters.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-10-06 02:47:26 +0000
+++ b/lisp/ChangeLog    2012-10-06 12:55:09 +0000
@@ -1,3 +1,8 @@
+2012-10-06  Ikumi Keita  <address@hidden>  (tiny change)
+
+       * international/characters.el: Fix simple mistake ((car chars) ->
+       elt), delete duplicated code.
+
 2012-10-06  Glenn Morris  <address@hidden>
 
        * subr.el (read-passwd): Allow C-u to erase entry.  (Bug#12570)

=== modified file 'lisp/international/characters.el'
--- a/lisp/international/characters.el  2012-04-14 01:46:06 +0000
+++ b/lisp/international/characters.el  2012-10-06 12:34:03 +0000
@@ -226,7 +226,7 @@
 (map-charset-chars #'modify-syntax-entry 'japanese-jisx0208 "_" #x2821 #x287E)
 (let ((chars '(?ー ?゛ ?゜ ?ヽ ?ヾ ?ゝ ?ゞ ?〃 ?仝 ?々 ?〆 ?〇)))
   (dolist (elt chars)
-    (modify-syntax-entry (car chars) "w")))
+    (modify-syntax-entry elt "w")))
 
 (map-charset-chars #'modify-category-entry 'japanese-jisx0208 ?A #x2321 #x237E)
 (map-charset-chars #'modify-category-entry 'japanese-jisx0208 ?H #x2421 #x247E)
@@ -234,12 +234,6 @@
 (map-charset-chars #'modify-category-entry 'japanese-jisx0208 ?G #x2621 #x267E)
 (map-charset-chars #'modify-category-entry 'japanese-jisx0208 ?Y #x2721 #x277E)
 (map-charset-chars #'modify-category-entry 'japanese-jisx0208 ?C #x3021 #x7E7E)
-(modify-category-entry ?ー ?K)
-(let ((chars '(?゛ ?゜)))
-  (while chars
-    (modify-category-entry (car chars) ?K)
-    (modify-category-entry (car chars) ?H)
-    (setq chars (cdr chars))))
 (let ((chars '(?仝 ?々 ?〆 ?〇)))
   (while chars
     (modify-category-entry (car chars) ?C)