/[emacs]/emacs/lisp/simple.el
ViewVC logotype

Diff of /emacs/lisp/simple.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.520 by rms, Wed Feb 6 15:08:45 2002 UTC revision 1.521 by kai, Fri Feb 15 08:53:15 2002 UTC
# Line 2812  With argument, do this that many times." Line 2812  With argument, do this that many times."
2812    (forward-word (- arg)))    (forward-word (- arg)))
2813    
2814  (defun mark-word (arg)  (defun mark-word (arg)
2815    "Set mark arg words away from point."    "Set mark arg words away from point.
2816    If this command is repeated, it marks the next ARG words after the ones
2817    already marked."
2818    (interactive "p")    (interactive "p")
2819    (push-mark    (cond ((and (eq last-command this-command) (mark t))
2820      (save-excursion           (set-mark
2821        (forward-word arg)            (save-excursion
2822        (point))              (goto-char (mark))
2823      nil t))              (forward-word arg)
2824                (point))))
2825            (t
2826             (push-mark
2827              (save-excursion
2828                (forward-word arg)
2829                (point))
2830              nil t))))
2831    
2832  (defun kill-word (arg)  (defun kill-word (arg)
2833    "Kill characters forward until encountering the end of a word.    "Kill characters forward until encountering the end of a word.

Legend:
Removed from v.1.520  
changed lines
  Added in v.1.521

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26