# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 882826415 0
# Node ID d175ee25287edca6212d102d7c8cdabe2fede398
# Parent  b0d79b1edeb699f4fbc1b2bf38e72ef8a93f749b
(previous-matching-history-element): Bind
case-fold-search to nil if REGEXP contains an uppercase letter.
(previous-matching-history-element, next-matching-history-element):
Doc fixes.

diff -r b0d79b1edeb6 -r d175ee25287e lisp/simple.el
--- a/lisp/simple.el	Mon Dec 22 19:26:10 1997 +0000
+++ b/lisp/simple.el	Mon Dec 22 21:33:35 1997 +0000
@@ -638,7 +638,8 @@
   "Find the previous history element that matches REGEXP.
 \(Previous history elements refer to earlier actions.)
 With prefix argument N, search for Nth previous match.
-If N is negative, find the next or Nth next match."
+If N is negative, find the next or Nth next match.
+An uppercase letter in REGEXP makes the search case-sensitive."
   (interactive
    (let* ((enable-recursive-minibuffers t)
 	  (regexp (read-from-minibuffer "Previous element matching (regexp): "
@@ -657,6 +658,11 @@
 	   (null minibuffer-text-before-history))
       (setq minibuffer-text-before-history (buffer-string)))
   (let ((history (symbol-value minibuffer-history-variable))
+	(case-fold-search
+	 (if (isearch-no-upper-case-p regexp t)	; assume isearch.el is dumped
+	     ;; Respect the user's setting for case-fold-search:
+	     case-fold-search
+	   nil))
 	prevpos
 	(pos minibuffer-history-position))
     (while (/= n 0)
@@ -689,7 +695,8 @@
   "Find the next history element that matches REGEXP.
 \(The next history element refers to a more recent action.)
 With prefix argument N, search for Nth next match.
-If N is negative, find the previous or Nth previous match."
+If N is negative, find the previous or Nth previous match.
+An uppercase letter in REGEXP makes the search case-sensitive."
   (interactive
    (let* ((enable-recursive-minibuffers t)
 	  (regexp (read-from-minibuffer "Next element matching (regexp): "