[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/simple.el
From: |
Kai Großjohann |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/simple.el |
Date: |
Fri, 15 Feb 2002 03:53:16 -0500 |
Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.520 emacs/lisp/simple.el:1.521
*** emacs/lisp/simple.el:1.520 Wed Feb 6 10:08:45 2002
--- emacs/lisp/simple.el Fri Feb 15 03:53:15 2002
***************
*** 2812,2824 ****
(forward-word (- arg)))
(defun mark-word (arg)
! "Set mark arg words away from point."
(interactive "p")
! (push-mark
! (save-excursion
! (forward-word arg)
! (point))
! nil t))
(defun kill-word (arg)
"Kill characters forward until encountering the end of a word.
--- 2812,2833 ----
(forward-word (- arg)))
(defun mark-word (arg)
! "Set mark arg words away from point.
! If this command is repeated, it marks the next ARG words after the ones
! already marked."
(interactive "p")
! (cond ((and (eq last-command this-command) (mark t))
! (set-mark
! (save-excursion
! (goto-char (mark))
! (forward-word arg)
! (point))))
! (t
! (push-mark
! (save-excursion
! (forward-word arg)
! (point))
! nil t))))
(defun kill-word (arg)
"Kill characters forward until encountering the end of a word.