[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r107827: * simple.el (zap-to-char): A
From: |
Lars Magne Ingebrigtsen |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r107827: * simple.el (zap-to-char): Allow zapping using input methods. |
Date: |
Tue, 10 Apr 2012 04:23:21 +0200 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 107827
fixes bug(s): 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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r107827: * simple.el (zap-to-char): Allow zapping using input methods.,
Lars Magne Ingebrigtsen <=