From: Kenichi Handa <handa@m17n.org>
Date: Sat, 10 Dec 2005 01:12:25 +0000 (+0000)
Subject: (zap-to-char): Translate CHAR by
X-Git-Tag: emacs-pretest-22.0.90~5391
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ea9fc1bdb20fec973618f1bca525bbefaefa69eb;p=emacs.git

(zap-to-char): Translate CHAR by
translation-table-for-input.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 451c1bc9449..93f6329a255 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2741,6 +2741,8 @@ and KILLP is t if a prefix arg was specified."
 Case is ignored if `case-fold-search' is non-nil in the current buffer.
 Goes backward if ARG is negative; error if CHAR not found."
   (interactive "p\ncZap to char: ")
+  (if (char-table-p translation-table-for-input)
+      (setq char (or (aref translation-table-for-input char) char)))
   (kill-region (point) (progn
 			 (search-forward (char-to-string char) nil nil arg)
 ;			 (goto-char (if (> arg 0) (1- (point)) (1+ (point))))