Mercurial > emacs
changeset 67446:0d03cdfa9108
(zap-to-char): Translate CHAR by
translation-table-for-input.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Sat, 10 Dec 2005 01:12:25 +0000 |
| parents | 5615161c1a95 |
| children | e6b4f7137699 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 2 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Sat Dec 10 00:46:09 2005 +0000 +++ b/lisp/simple.el Sat Dec 10 01:12:25 2005 +0000 @@ -2741,6 +2741,8 @@ 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))))