/[emacs]/emacs/lisp/textmodes/paragraphs.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/paragraphs.el

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

revision 1.57 by monnier, Tue Oct 30 06:46:49 2001 UTC revision 1.58 by kai, Fri Nov 30 17:18:26 2001 UTC
# Line 317  See `forward-paragraph' for more informa Line 317  See `forward-paragraph' for more informa
317    (or arg (setq arg 1))    (or arg (setq arg 1))
318    (forward-paragraph (- arg)))    (forward-paragraph (- arg)))
319    
320  (defun mark-paragraph ()  (defun mark-paragraph (&optional arg)
321    "Put point at beginning of this paragraph, mark at end.    "Put point at beginning of this paragraph, mark at end.
322  The paragraph marked is the one that contains point or follows point."  The paragraph marked is the one that contains point or follows point.
323    (interactive)  
324    (forward-paragraph 1)  With argument ARG, puts mark at end of a following paragraph, so that
325    the number of paragraphs marked equals ARG.
326    
327    If ARG is negative, point is put at end of this paragraph, mark is put
328    at beginning of this or a previous paragraph."
329      (interactive "p")
330      (unless arg (setq arg 1))
331      (when (zerop arg)
332        (error "Cannot mark zero paragraphs"))
333      (forward-paragraph arg)
334    (push-mark nil t t)    (push-mark nil t t)
335    (backward-paragraph 1))    (backward-paragraph arg))
336    
337  (defun kill-paragraph (arg)  (defun kill-paragraph (arg)
338    "Kill forward to end of paragraph.    "Kill forward to end of paragraph.

Legend:
Removed from v.1.57  
changed lines
  Added in v.1.58

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