mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(isearch-no-upper-case-p): Look for [:upper:] as well.

Browse Source
This commit is contained in:
Stefan Monnier 2007-01-17 13:20:47 +00:00
parent 4186606c8d
commit c5f847b6b3
2 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2007-01-17 Stefan Monnier <monnier@iro.umontreal.ca>
* isearch.el (isearch-no-upper-case-p): Look for [:upper:] as well.
2007-01-16 martin rudalics <rudalics@gmx.at>
* textmodes/ispell.el (ispell-dictionary-alist-3): Replace "---"

15
lisp/isearch.el
View File

@ -1,7 +1,7 @@
;;; isearch.el --- incremental search minor mode
;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1999, 2000,
;; 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
;; 2001, 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
;; Maintainer: FSF
@ -2235,7 +2235,18 @@ since they have special meaning in a regexp."
(setq found t))
(setq quote-flag nil)))
(setq i (1+ i)))
(not found)))
(not (or found
;; Even if there's no uppercase char, we want to detect the use
;; of [:upper:] or [:lower:] char-class, which indicates
;; clearly that the user cares about case distinction.
(and regexp-flag (string-match "\\[:\\(upp\\|low\\)er:]" string)
(condition-case err
(progn
(string-match (substring string 0 (match-beginning 0))
"")
nil)
(invalid-regexp
(equal "Unmatched [ or [^" (cadr err)))))))))
;; Portability functions to support various Emacs versions.