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