From ea9fc1bdb20fec973618f1bca525bbefaefa69eb Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sat, 10 Dec 2005 01:12:25 +0000 Subject: [PATCH] (zap-to-char): Translate CHAR by translation-table-for-input. --- lisp/simple.el | 2 ++ 1 file changed, 2 insertions(+) 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)))) -- 2.39.2