From: Kenichi Handa <handa@m17n.org>
Date: Sat, 10 Dec 2005 01:14:23 +0000 (+0000)
Subject: (isearch-process-search-char): Translate CHAR by
X-Git-Tag: emacs-pretest-22.0.90~5390
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=332ee54425a3a0710a83960945168a8e465ff5e0;p=emacs.git

(isearch-process-search-char): Translate CHAR by
translation-table-for-input.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9230f4bc288..a6f44b83994 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2005-12-10  Kenichi Handa  <handa@m17n.org>
+
+	* simple.el (zap-to-char): Translate CHAR by
+	translation-table-for-input.
+
+	* isearch.el (isearch-process-search-char): Translate CHAR by
+	translation-table-for-input.
+
 2005-12-09  Chong Yidong  <cyd@stupidchicken.com>
 
 	* foldout.el (foldout-exit-fold): Properly hide subtree.
diff --git a/lisp/isearch.el b/lisp/isearch.el
index fe764b3d41d..65fc1f0a394 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1809,6 +1809,8 @@ Isearch mode."
    ((eq   char ?|)       (isearch-fallback t nil t)))
 
   ;; Append the char to the search string, update the message and re-search.
+  (if (char-table-p translation-table-for-input)
+      (setq char (or (aref translation-table-for-input char) char)))
   (isearch-process-search-string
    (char-to-string char)
    (if (>= char ?\200)