diff options
| author | Kenichi Handa | 2005-12-10 01:12:25 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2005-12-10 01:12:25 +0000 |
| commit | ea9fc1bdb20fec973618f1bca525bbefaefa69eb (patch) | |
| tree | c07cfc717b776674c3cf394c4d327679005f2e95 /lisp/simple.el | |
| parent | 78cfaa07f137551a0189a661b47759b148a89dfe (diff) | |
| download | emacs-ea9fc1bdb20fec973618f1bca525bbefaefa69eb.tar.gz emacs-ea9fc1bdb20fec973618f1bca525bbefaefa69eb.zip | |
(zap-to-char): Translate CHAR by
translation-table-for-input.
Diffstat (limited to 'lisp/simple.el')
| -rw-r--r-- | lisp/simple.el | 2 |
1 files changed, 2 insertions, 0 deletions
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." | |||
| 2741 | Case is ignored if `case-fold-search' is non-nil in the current buffer. | 2741 | Case is ignored if `case-fold-search' is non-nil in the current buffer. |
| 2742 | Goes backward if ARG is negative; error if CHAR not found." | 2742 | Goes backward if ARG is negative; error if CHAR not found." |
| 2743 | (interactive "p\ncZap to char: ") | 2743 | (interactive "p\ncZap to char: ") |
| 2744 | (if (char-table-p translation-table-for-input) | ||
| 2745 | (setq char (or (aref translation-table-for-input char) char))) | ||
| 2744 | (kill-region (point) (progn | 2746 | (kill-region (point) (progn |
| 2745 | (search-forward (char-to-string char) nil nil arg) | 2747 | (search-forward (char-to-string char) nil nil arg) |
| 2746 | ; (goto-char (if (> arg 0) (1- (point)) (1+ (point)))) | 2748 | ; (goto-char (if (> arg 0) (1- (point)) (1+ (point)))) |