Commit 77176e73 authored by Roland McGrath's avatar Roland McGrath
Browse files

*** empty log message ***

parent 483e630e
;; Replace commands for Emacs. ;; 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. ;; This file is part of GNU Emacs.
...@@ -18,6 +18,9 @@ ...@@ -18,6 +18,9 @@
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;; 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 ;;;###autoload
(defun query-replace (from-string to-string &optional arg) (defun query-replace (from-string to-string &optional arg)
"Replace some occurrences of FROM-STRING with TO-STRING. "Replace some occurrences of FROM-STRING with TO-STRING.
......
...@@ -161,6 +161,8 @@ first comment line visible (if point is in a comment)." ...@@ -161,6 +161,8 @@ first comment line visible (if point is in a comment)."
;;(repos-debug-macro "4") ;;(repos-debug-macro "4")
)))) ))))
;;;###autoload (define-key esc-map "\C-l" 'resposition-window)
;;; Auxiliary functions ;;; Auxiliary functions
;; Return number of screen lines between START and END. ;; Return number of screen lines between START and END.
......
;; Paragraph and sentence parsing. ;; 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. ;; This file is part of GNU Emacs.
...@@ -18,9 +18,24 @@ ...@@ -18,9 +18,24 @@
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
(defvar paragraph-ignore-fill-prefix nil ;;;###autoload (defconst paragraph-start "^[ \t\n\f]"
"Non-nil means the paragraph commands are not affected by `fill-prefix'. ;;;###autoload "*Regexp for beginning of a line that starts OR separates paragraphs.")
This is desirable in modes where blank lines are the paragraph delimiters.")
;;;###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) (defun forward-paragraph (&optional arg)
"Move forward to end of paragraph. "Move forward to end of paragraph.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment