(Flistp): Doc fix.

[gnu-emacs] / src / search.c

diff --git a/src/search.c b/src/search.c
index d3a5bd838a926bbedbd5e613c135ab794b90fdff..e12bf69d2a177f7bb8833fba5af4dc62319c8398 100644 (file)
--- a/src/search.c
+++ b/src/search.c
@@ -1174,7 +1174,7 @@ search_buffer (string, pos, pos_byte, lim, lim_byte, n,
       int raw_pattern_size_byte;
       unsigned char *patbuf;
       int multibyte = !NILP (current_buffer->enable_multibyte_characters);
-      unsigned char *base_pat = SDATA (string);
+      unsigned char *base_pat;
       /* Set to positive if we find a non-ASCII char that need
         translation.  Otherwise set to zero later.  */
       int charset_base = -1;
@@ -2376,7 +2376,7 @@ since only regular expressions have distinguished subexpressions.  */)
              else
                some_multiletter_word = 1;
            }
-         else if (!NOCASEP (c))
+         else if (UPPERCASEP (c))
            {
              some_uppercase = 1;
              if (SYNTAX (prevc) != Sword)