[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.59 
emacs/lisp/textmodes/paragraphs.el:1.60
*** emacs/lisp/textmodes/paragraphs.el:1.59     Fri Feb 15 03:53:15 2002
--- emacs/lisp/textmodes/paragraphs.el  Sun Feb 17 10:07:35 2002
***************
*** 330,347 ****
  If this command is repeated, it marks the next ARG paragraphs after (or
  before, if arg is negative) the ones already marked."
    (interactive "p")
!   (let (here)
!     (unless arg (setq arg 1))
!     (when (zerop arg)
!       (error "Cannot mark zero paragraphs"))
!     (when (and (eq last-command this-command) (mark t))
!       (setq here (point))
!       (goto-char (mark)))
!     (forward-paragraph arg)
!     (push-mark nil t t)
!     (if here
!       (goto-char here)
!       (backward-paragraph arg))))
  
  (defun kill-paragraph (arg)
    "Kill forward to end of paragraph.
--- 330,348 ----
  If this command is repeated, it marks the next ARG paragraphs after (or
  before, if arg is negative) the ones already marked."
    (interactive "p")
!   (unless arg (setq arg 1))
!   (when (zerop arg)
!     (error "Cannot mark zero paragraphs"))
!   (cond ((and (eq last-command this-command) (mark t))
!        (set-mark
!         (save-excursion
!           (goto-char (mark))
!           (forward-paragraph arg)
!           (point))))
!       (t
!        (forward-paragraph arg)
!        (push-mark nil t t)
!        (backward-paragraph arg))))
  
  (defun kill-paragraph (arg)
    "Kill forward to end of paragraph.