From 77176e738857197923e3083803d0eff7a8b0dfd6 Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Sat, 11 May 1991 18:07:11 +0000 Subject: [PATCH] *** empty log message *** --- lisp/replace.el | 5 ++++- lisp/reposition.el | 2 ++ lisp/textmodes/paragraphs.el | 23 +++++++++++++++++++---- 3 files changed, 25 insertions(+), 5 deletions(-) diff --git a/lisp/replace.el b/lisp/replace.el index b1aab56bbe9..c32abcefc06 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -1,5 +1,5 @@ ;; Replace commands for Emacs. -;; Copyright (C) 1985, 1986 Free Software Foundation, Inc. +;; Copyright (C) 1985-1991 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -18,6 +18,9 @@ ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. +;;;###autoload (defconst case-replace t "\ +;;;###autoload *Non-nil means query-replace should preserve case in replacements.") + ;;;###autoload (defun query-replace (from-string to-string &optional arg) "Replace some occurrences of FROM-STRING with TO-STRING. diff --git a/lisp/reposition.el b/lisp/reposition.el index 5802e6d86fe..dcf7b457b75 100644 --- a/lisp/reposition.el +++ b/lisp/reposition.el @@ -161,6 +161,8 @@ first comment line visible (if point is in a comment)." ;;(repos-debug-macro "4") )))) +;;;###autoload (define-key esc-map "\C-l" 'resposition-window) + ;;; Auxiliary functions ;; Return number of screen lines between START and END. diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el index 748a08e986a..4241c43e7b1 100644 --- a/lisp/textmodes/paragraphs.el +++ b/lisp/textmodes/paragraphs.el @@ -1,5 +1,5 @@ ;; Paragraph and sentence parsing. -;; Copyright (C) 1985 Free Software Foundation, Inc. +;; Copyright (C) 1985-1991 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -18,9 +18,24 @@ ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. -(defvar paragraph-ignore-fill-prefix nil - "Non-nil means the paragraph commands are not affected by `fill-prefix'. -This is desirable in modes where blank lines are the paragraph delimiters.") +;;;###autoload (defconst paragraph-start "^[ \t\n\f]" +;;;###autoload "*Regexp for beginning of a line that starts OR separates paragraphs.") + +;;;###autoload (defconst paragraph-separate "^[ \t\f]*$" +;;;###autoload "*Regexp for beginning of a line that separates paragraphs. +;;;###autoload If you change this, you may have to change paragraph-start also.") + +;;;###autoload (defconst sentence-end (purecopy "[.?!][]\"')}]*\\($\\| $\\|\t\\| \\)[ \t\n]*") "\ +;;;###autoload *Regexp describing the end of a sentence. +;;;###autoload All paragraph boundaries also end sentences, regardless.") + +;;;###autoload (defconst page-delimiter "^\014" "\ +;;;###autoload *Regexp describing line-beginnings that separate pages.") + +;;;###autoload (defvar paragraph-ignore-fill-prefix nil +;;;###autoload "Non-nil means the paragraph commands are not affected by `fill-prefix'. +;;;###autoload This is desirable in modes where blank lines are the paragraph delimiters.") + (defun forward-paragraph (&optional arg) "Move forward to end of paragraph.