(isearch-process-search-char): Translate CHAR by

translation-table-for-input.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9230f4bc288d0678f9871e51cf166c7dec2f136b..a6f44b83994fa8165384bbb76535e226310d55ed 100644 (file)
--- 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 fe764b3d41d6a92b36af7df8b61b9c2ee61bc117..65fc1f0a394e0b19a150df0d9252d2ddf312daaf 100644 (file)
--- 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)