[Emacs-diffs] Changes to emacs/lisp/textmodes/paragraphs.el

[Kai Großjohann]

Index: emacs/lisp/textmodes/paragraphs.el
diff -c emacs/lisp/textmodes/paragraphs.el:1.57 
emacs/lisp/textmodes/paragraphs.el:1.58
*** emacs/lisp/textmodes/paragraphs.el:1.57     Tue Oct 30 01:46:49 2001
--- emacs/lisp/textmodes/paragraphs.el  Fri Nov 30 12:18:26 2001
***************
*** 317,329 ****
    (or arg (setq arg 1))
    (forward-paragraph (- arg)))
  
! (defun mark-paragraph ()
    "Put point at beginning of this paragraph, mark at end.
! The paragraph marked is the one that contains point or follows point."
!   (interactive)
!   (forward-paragraph 1)
    (push-mark nil t t)
!   (backward-paragraph 1))
  
  (defun kill-paragraph (arg)
    "Kill forward to end of paragraph.
--- 317,338 ----
    (or arg (setq arg 1))
    (forward-paragraph (- arg)))
  
! (defun mark-paragraph (&optional arg)
    "Put point at beginning of this paragraph, mark at end.
! The paragraph marked is the one that contains point or follows point.
! 
! With argument ARG, puts mark at end of a following paragraph, so that
! the number of paragraphs marked equals ARG.
! 
! If ARG is negative, point is put at end of this paragraph, mark is put
! at beginning of this or a previous paragraph."
!   (interactive "p")
!   (unless arg (setq arg 1))
!   (when (zerop arg)
!     (error "Cannot mark zero paragraphs"))
!   (forward-paragraph arg)
    (push-mark nil t t)
!   (backward-paragraph arg))
  
  (defun kill-paragraph (arg)
    "Kill forward to end of paragraph.