Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
e761e42c
Commit
e761e42c
authored
Feb 23, 2000
by
Dave Love
Browse files
(zap-to-char, kill-line, kill-region, kill-word)
(backward-kill-word): Revert addition of * to interactive spec.
parent
99d48056
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
5 deletions
+5
-5
lisp/simple.el
lisp/simple.el
+5
-5
No files found.
lisp/simple.el
View file @
e761e42c
...
...
@@ -1637,7 +1637,7 @@ Any command that calls this function is a \"kill command\".
If the previous command was also a kill command,
the text killed this time appends to the text killed last time
to make one entry in the kill ring."
(
interactive
"
*
r"
)
(
interactive
"r"
)
(
condition-case
nil
(
let
((
string
(
delete-and-extract-region
beg
end
)))
(
when
string
;STRING is nil if BEG = END
...
...
@@ -1856,7 +1856,7 @@ and KILLP is t if a prefix arg was specified."
"Kill up to and including ARG'th 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
"p\ncZap to char: "
)
(
kill-region
(
point
)
(
progn
(
search-forward
(
char-to-string
char
)
nil
nil
arg
)
; (goto-char (if (> arg 0) (1- (point)) (1+ (point))))
...
...
@@ -1884,7 +1884,7 @@ If `kill-whole-line' is non-nil, then this command kills the whole line
including
its
terminating
newline,
when
used
at
the
beginning
of
a
line
with
no
argument.
As
a
consequence,
you
can
always
kill
a
whole
line
by
typing
\\[beginning-of-line]
\\[kill-line].
"
(interactive "
*
P
")
(interactive "
P
")
(kill-region (point)
;; It is better to move point to the other end of the kill
;; before killing. That way, in a read-only buffer, point
...
...
@@ -2896,13 +2896,13 @@ In programs, it is faster to call `forward-word' with negative arg."
(defun kill-word (arg)
"
Kill
characters
forward
until
encountering
the
end
of
a
word.
With
argument,
do
this
that
many
times.
"
(interactive "
*
p
")
(interactive "
p
")
(kill-region (point) (progn (forward-word arg) (point))))
(defun backward-kill-word (arg)
"
Kill
characters
backward
until
encountering
the
end
of
a
word.
With
argument,
do
this
that
many
times.
"
(interactive "
*
p
")
(interactive "
p
")
(kill-word (- arg)))
(defun current-word (&optional strict)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment