mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-16 17:19:41 +00:00
Code Issues Releases Activity

(occur): If regexp has uppercase in it, match it case-sensitively.

Browse Source
This commit is contained in:
Richard M. Stallman 1997-05-04 01:20:08 +00:00
parent 9c1db9293c
commit 9483d601ec
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/replace.el
View File

@ -348,7 +348,10 @@ Interactively it is the prefix arg.
The lines are shown in a buffer named `*Occur*'.
It serves as a menu to find any of the occurrences in this buffer.
\\[describe-mode] in that buffer will explain how."
\\[describe-mode] in that buffer will explain how.
If REGEXP contains upper case characters (excluding those preceded by
\\), the matching is case-sensitive."
(interactive
(list (let* ((default (car regexp-history))
(input
@ -371,6 +374,8 @@ It serves as a menu to find any of the occurrences in this buffer.
(dir default-directory)
(linenum 1)
(prevpos (point-min))
(case-fold-search (and case-fold-search
(isearch-no-upper-case-p regexp t)))
(final-context-start (make-marker)))
;;; (save-excursion
;;; (beginning-of-line)