Commit ea9fc1bd authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(zap-to-char): Translate CHAR by

parent 78cfaa07
......@@ -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))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment