From 5c2010f05db343cd12b2c26fc7a63eff82976756 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 22 Dec 1997 21:33:35 +0000 Subject: [PATCH] (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. --- lisp/simple.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 67726a8f6c3..fcb53009dff 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -638,7 +638,8 @@ in this use of the minibuffer.") "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 @@ If N is negative, find the next or Nth next match." (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 @@ If N is negative, find the next or Nth next match." "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): " -- 2.39.2