/[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.59 by kai, Fri Feb 15 08:53:15 2002 UTC revision 1.60 by kai, Sun Feb 17 15:07:35 2002 UTC
# Line 330  at beginning of this or a previous parag Line 330  at beginning of this or a previous parag
330  If this command is repeated, it marks the next ARG paragraphs after (or  If this command is repeated, it marks the next ARG paragraphs after (or
331  before, if arg is negative) the ones already marked."  before, if arg is negative) the ones already marked."
332    (interactive "p")    (interactive "p")
333    (let (here)    (unless arg (setq arg 1))
334      (unless arg (setq arg 1))    (when (zerop arg)
335      (when (zerop arg)      (error "Cannot mark zero paragraphs"))
336        (error "Cannot mark zero paragraphs"))    (cond ((and (eq last-command this-command) (mark t))
337      (when (and (eq last-command this-command) (mark t))           (set-mark
338        (setq here (point))            (save-excursion
339        (goto-char (mark)))              (goto-char (mark))
340      (forward-paragraph arg)              (forward-paragraph arg)
341      (push-mark nil t t)              (point))))
342      (if here          (t
343          (goto-char here)           (forward-paragraph arg)
344        (backward-paragraph arg))))           (push-mark nil t t)
345             (backward-paragraph arg))))
346    
347  (defun kill-paragraph (arg)  (defun kill-paragraph (arg)
348    "Kill forward to end of paragraph.    "Kill forward to end of paragraph.

Legend:
Removed from v.1.59  
changed lines
  Added in v.1.60

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