Document 'zap-up-to-char'

* doc/emacs/killing.texi (Other Kill Commands): Document
'zap-up-to-char'.

* lisp/simple.el (zap-to-char): Mention 'zap-up-to-char' in
the doc string.  (Bug#38392)

diff --git a/doc/emacs/killing.texi b/doc/emacs/killing.texi
index ce00cb38a7433de0bd5cd0f0d89de4d38be8aac0..f5f715dada4f93691ecba8d5039ffde160f427f0 100644 (file)
--- a/doc/emacs/killing.texi
+++ b/doc/emacs/killing.texi
@@ -219,6 +219,8 @@ Kill to the end of the sentence (@code{kill-sentence}).
 Kill the following balanced expression (@code{kill-sexp}).  @xref{Expressions}.
 @item M-z @var{char}
 Kill through the next occurrence of @var{char} (@code{zap-to-char}).
+@item M-x zap-up-to-char @var{char}
+Kill up to, but not including, the next occurrence of @var{char}.
 @end table
 
 @kindex C-w
@@ -248,6 +250,10 @@ search backward and kill text before point.  A history of previously
 used characters is maintained and can be accessed via the
 @kbd{M-p}/@kbd{M-n} keystrokes.  This is mainly useful if the
 character to be used has to be entered via a complicated input method.
+@findex zap-up-to-char
+A similar command @code{zap-up-to-char} kills from point up to, but
+not including the next occurrence of a character, with numeric
+argument acting as a repeat count.
 
 @node Kill Options
 @subsection Options for Killing

diff --git a/lisp/simple.el b/lisp/simple.el
index 2aac557154a47f9de6dc99e69f123546cf09205a..47ce0364d14fb44f9c515039f3fa01ac864404d8 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -5191,7 +5191,8 @@ and KILLP is t if a prefix arg was specified."
 (defun zap-to-char (arg char)
   "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."
+Goes backward if ARG is negative; error if CHAR not found.
+See also `zap-up-to-char'."
   (interactive (list (prefix-numeric-value current-prefix-arg)
                     (read-char-from-minibuffer "Zap to char: "
                                                nil 'read-char-history)))