From 332ee54425a3a0710a83960945168a8e465ff5e0 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sat, 10 Dec 2005 01:14:23 +0000 Subject: [PATCH] (isearch-process-search-char): Translate CHAR by translation-table-for-input. --- lisp/ChangeLog | 8 ++++++++ lisp/isearch.el | 2 ++ 2 files changed, 10 insertions(+) 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 + + * 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 * 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) -- 2.39.5