Mercurial > emacs

comparison lisp/simple.el @ 83552:d3099204c799

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged from emacs@sv.gnu.org Patches applied: * emacs@sv.gnu.org/emacs--devo--0--patch-585 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-586 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-587 Update from erc--emacs--22 * emacs@sv.gnu.org/emacs--devo--0--patch-588 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-589 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-590 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-591 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-592
author Karoly Lorentey <lorentey@elte.hu>
date Sat, 06 Jan 2007 15:25:16 +0000
parents 17e0dd217877 80f0c81302ab
children b8d9a391daf3
comparison
equal deleted inserted replaced
83551:d9dc7e67ad3f 83552:d3099204c799
4086 With argument, do this that many times." 4086 With argument, do this that many times."
4087 (interactive "p") 4087 (interactive "p")
4088 (kill-region (point) (progn (forward-word arg) (point)))) 4088 (kill-region (point) (progn (forward-word arg) (point))))
4089 4089
4090 (defun backward-kill-word (arg) 4090 (defun backward-kill-word (arg)
4091 "Kill characters backward until encountering the end of a word. 4091 "Kill characters backward until encountering the beginning of a word.
4092 With argument, do this that many times." 4092 With argument, do this that many times."
4093 (interactive "p") 4093 (interactive "p")
4094 (kill-word (- arg))) 4094 (kill-word (- arg)))
4095 4095
4096 (defun current-word (&optional strict really-word) 4096 (defun current-word (&optional strict really-word)