From: Kenichi Handa Date: Sat, 6 Oct 2012 12:35:04 +0000 (+0900) Subject: international/characters.el: Fix simple mistake ((car chars) -> elt), delete duplicat... X-Git-Tag: emacs-24.2.90~242 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2b89bca49d55cec1a004353354a76de2972c68f3;p=emacs.git international/characters.el: Fix simple mistake ((car chars) -> elt), delete duplicated code. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5d1a7eea095..6704b26cf7d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-10-06 Ikumi Keita (tiny change) + + * international/characters.el: Fix simple mistake ((car chars) -> + elt), delete duplicated code. + 2012-09-30 Jan Djärv * term/ns-win.el (x-file-dialog): New function. diff --git a/lisp/international/characters.el b/lisp/international/characters.el index c75ca8106ac..0a51c324d61 100644 --- a/lisp/international/characters.el +++ b/lisp/international/characters.el @@ -226,7 +226,7 @@ with L, LRE, or LRO Unicode bidi character type.") (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 @@ with L, LRE, or LRO Unicode bidi character type.") (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)