mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-13 19:25:37 -08:00
Code Issues Projects Releases Wiki Activity

(zap-to-char): Translate CHAR by

Browse source 
translation-table-for-input.
This commit is contained in:
Kenichi Handa 2005-12-10 01:12:25 +00:00
parent 78cfaa07f1
commit ea9fc1bdb2
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/simple.el
View file

@ -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))))