[Emacs-diffs] /srv/bzr/emacs/emacs-24 r107827: * simple.el (zap-to-char): Allow zapping using input methods.

[Lars Magne Ingebrigtsen]

------------------------------------------------------------
revno: 107827
fixes bug: http://debbugs.gnu.org/1580
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Tue 2012-04-10 04:23:21 +0200
message:
  * simple.el (zap-to-char): Allow zapping using input methods.
modified:
  lisp/ChangeLog
  lisp/simple.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-04-10 02:06:19 +0000
+++ b/lisp/ChangeLog    2012-04-10 02:23:21 +0000
@@ -1,5 +1,8 @@
 2012-04-10  Lars Magne Ingebrigtsen  <address@hidden>
 
+       * 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).
 

=== modified file 'lisp/simple.el'
--- a/lisp/simple.el    2012-04-09 13:05:48 +0000
+++ b/lisp/simple.el    2012-04-10 02:23:21 +0000
@@ -3487,14 +3487,14 @@
   "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.