emacs-diffs
[Top][All Lists]
Advanced

[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.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]