Prefix argument says to turn mode on if positive, off if negative.
When the mode is turned on, if there are newlines in the buffer but no hard
-newlines, ask the user whether to mark as hard any newlines preceeding a
+newlines, ask the user whether to mark as hard any newlines preceding a
`paragraph-start' line. From a program, second arg INSERT specifies whether
to do this; it can be `never' to change nothing, t or `always' to force
marking, `guess' to try to do the right thing with no questions, nil
(point) (1+ (point))))))))))))
(setq use-hard-newlines t)))
-;; XEmacs - use purecopy
-(defconst paragraph-start (purecopy "[ \t\n\f]") "\
+(defconst paragraph-start "[ \t\n\f]" "\
*Regexp for beginning of a line that starts OR separates paragraphs.
This regexp should match lines that separate paragraphs
and should also match lines that start a paragraph
;; something very minimal, even including "." (which makes every hard newline
;; start a new paragraph).
-;; XEmacs -- use purecopy
-(defconst paragraph-separate (purecopy "[ \t\f]*$") "\
+(defconst paragraph-separate "[ \t\f]*$" "\
*Regexp for beginning of a line that separates paragraphs.
If you change this, you may have to change paragraph-start also.
ensures that the paragraph functions will work equally within a region of
text indented by a margin setting.")
-;; XEmacs -- use purecopy
-(defconst sentence-end (purecopy "[.?!][]\"')}]*\\($\\| $\\|\t\\| \\)[ \t\n]*") "\
+(defconst sentence-end "[.?!][]\"')}]*\\($\\| $\\|\t\\| \\)[ \t\n]*" "\
*Regexp describing the end of a sentence.
All paragraph boundaries also end sentences, regardless.
question mark, or exclamation point must be followed by two spaces,
unless it's inside some sort of quotes or parenthesis.")
-;; XEmacs -- use purecopy
-(defconst page-delimiter (purecopy "^\014") "\
+(defconst page-delimiter "^\014" "\
*Regexp describing line-beginnings that separate pages.")
(defvar paragraph-ignore-fill-prefix nil "\
nil
(setq start (point))
;; Move back over paragraph-separating lines.
- (forward-char -1) (beginning-of-line)
+ (backward-char 1) (beginning-of-line)
(while (and (not (bobp))
(progn (move-to-left-margin)
(looking-at paragraph-separate)))
(defun end-of-paragraph-text ()
(let ((opoint (point)))
(forward-paragraph 1)
- (if (eq (char-before (point)) ?\n) (forward-char -1))
+ (if (eq (char-before (point)) ?\n) (backward-char 1))
(if (<= (point) opoint)
(progn
(forward-char 1)