Commit 74beb59f authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen
Browse files

* simple.el (zap-to-char): Allow zapping using input methods.

Fixes: debbugs:1580
parent 4bbc3323
2012-04-10 Lars Magne Ingebrigtsen <larsi@gnus.org>
* simple.el (zap-to-char): Allow zapping using input methods
(bug#1580).
* textmodes/fill.el (fill-region): Leave point and mark where they
were before filling (bug#5399).
......
......@@ -3487,14 +3487,14 @@ and KILLP is t if a prefix arg was specified."
"Kill up to and including ARGth occurrence of CHAR.
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: ")
(interactive (list (prefix-numeric-value current-prefix-arg)
(read-char "Zap to char: " t)))
;; Avoid "obsolete" warnings for translation-table-for-input.
(with-no-warnings
(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))))
(point))))
;; kill-line and its subroutines.
......
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