(zap-to-char): Translate CHAR by

translation-table-for-input.
2005-12-10 01:12:25 +00:00
parent 78cfaa07f1
commit ea9fc1bdb2
1 changed files with 2 additions and 0 deletions
--- 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))))