From f54701d1c3a081d5695d5d5df6e304e9d973e3e3 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Thu, 14 Jun 2001 08:17:19 +0000 Subject: [PATCH] (case-replace, query-replace-from-history-variable) (query-replace-to-history-variable, keep-lines-read-args) (occur-revert-function, query-replace-help): Dox fix. --- lisp/ChangeLog | 6 ++++++ lisp/replace.el | 17 +++++++++-------- 2 files changed, 15 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a602aeaeecc..b1de623cb60 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2001-06-14 Per Starback + + * replace.el (case-replace, query-replace-from-history-variable) + (query-replace-to-history-variable, keep-lines-read-args) + (occur-revert-function, query-replace-help): Dox fix. + 2001-06-14 Eli Zaretskii * rot13.el (rot13-other-window): Doc fix. diff --git a/lisp/replace.el b/lisp/replace.el index e97fe709c45..ee0cf5fa7a1 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -28,7 +28,7 @@ ;;; Code: (defcustom case-replace t - "*Non-nil means query-replace should preserve case in replacements." + "*Non-nil means `query-replace' should preserve case in replacements." :type 'boolean :group 'matching) @@ -39,7 +39,7 @@ That becomes the \"string to replace\".") (defcustom query-replace-from-history-variable 'query-replace-history - "History list to use for the FROM argument of query-replace commands. + "History list to use for the FROM argument of `query-replace' commands. The value of this variable should be a symbol; that symbol is used as a variable to hold a history list for the strings or patterns to be replaced." @@ -48,7 +48,7 @@ or patterns to be replaced." :version "20.3") (defcustom query-replace-to-history-variable 'query-replace-history - "History list to use for the TO argument of query-replace commands. + "History list to use for the TO argument of `query-replace' commands. The value of this variable should be a symbol; that symbol is used as a variable to hold a history list for replacement strings or patterns." @@ -296,9 +296,10 @@ Prompt for a regexp with PROMPT. Value is a list (REGEXP START END). -If in Transient Mark node, and the mark is active, START is the -start of the region, and end is a marker for the end of the region. -Otherwise, START is the current point, and END is `point-max-marker'." +If in Transient Mark mode, and the mark is active, START is the +start of the region, and END is a marker for the end of the region. +Otherwise, START is the current point, and END is the value of +function `point-max-marker'." (let ((regexp (read-from-minibuffer prompt nil nil nil 'regexp-history nil t)) start end) @@ -444,7 +445,7 @@ Alternatively, click \\[occur-mode-mouse-goto] on an item to go to it. (make-local-variable 'occur-command-arguments)) (defun occur-revert-function (ignore1 ignore2) - "Handle revert-buffer for *Occur* buffers." + "Handle `revert-buffer' for *Occur* buffers." (let ((args occur-command-arguments )) (save-excursion (set-buffer occur-buffer) @@ -774,7 +775,7 @@ C-l to clear the screen, redisplay, and offer same replacement again, ! to replace all remaining matches with no more questions, ^ to move point back to previous match, E to edit the replacement string" - "Help message while in query-replace") + "Help message while in `query-replace'.") (defvar query-replace-map (make-sparse-keymap) "Keymap that defines the responses to questions in `query-replace'. -- 2.39.2