Alan Mackenzie  committed 3c78c03

Ensure searching for keywords is case sensitive.

cc-cmds.el (c-electric-brace, c-electric-lt-gt, c-electric-paren)
(c-beginning-of-defun, c-end-of-defun, c-defun-name, c-mark-function)
(c-cpp-define-name, c-comment-indent, c-scan-conditionals)
(c-indent-defun, c-context-line-break): bind case-fold-search to nil.

cc-mode.el (c-font-lock-fontify-region): bind case-fold-search to nil.

  • Participants
  • Parent commits 29c4b1d
  • Branches default

Comments (0)

Files changed (2)

 	;; We want to inhibit blinking the paren since this would be
 	;; most disruptive.  We'll blink it ourselves later on.
 	(old-blink-paren blink-paren-function)
-	blink-paren-function)
+	blink-paren-function case-fold-search)
     (c-save-buffer-state ()
       (setq safepos (c-safe-position (point) (c-parse-state))
   (interactive "*P")
   (let ((c-echo-syntactic-information-p nil)
-	final-pos found-delim)
+	final-pos found-delim case-fold-search)
     (self-insert-command (prefix-numeric-value arg))
     (setq final-pos (point))
   (interactive "*P")
   (let ((literal (c-save-buffer-state () (c-in-literal)))
 	;; shut this up
-	(c-echo-syntactic-information-p nil))
+	(c-echo-syntactic-information-p nil)
+	case-fold-search)
     (self-insert-command (prefix-numeric-value arg))
     (if (and (not arg) (not literal))
 					; structure with other users of c-state-cache.
        (orig-point-min (point-min)) (orig-point-max (point-max))
        lim			    ; Position of { which has been widened to.
-       where pos)
+       where pos case-fold-search)
       (if (eq c-defun-tactic 'go-outward)
 				  ; structure with other users of c-state-cache.
        (orig-point-min (point-min)) (orig-point-max (point-max))
-       where pos)
+       where pos case-fold-search)
       (if (eq c-defun-tactic 'go-outward)
       (beginning-of-defun-function end-of-defun-function
-       where pos name-end)
+       where pos name-end case-fold-search)
   ;; FIXME!!!  for transient-mark/zemacs sometime.  (2012-03-08.)
-  (let (decl-limits)
+  (let (decl-limits case-fold-search)
     (c-save-buffer-state nil
       ;; We try to be line oriented, unless there are several
       ;; declarations on the same line.
 (defun c-cpp-define-name ()
   "Return the name of the current CPP macro, or NIL if we're not in one."
-  (save-excursion
-    (and c-opt-cpp-macro-define-start
-	 (c-beginning-of-macro)
-	 (looking-at c-opt-cpp-macro-define-start)
-	 (match-string-no-properties 1))))
+  (let (case-fold-search)
+    (save-excursion
+      (and c-opt-cpp-macro-define-start
+	   (c-beginning-of-macro)
+	   (looking-at c-opt-cpp-macro-define-start)
+	   (match-string-no-properties 1)))))
 ;; Movement by statements.
 			(eq (match-end 0) eot))
-		   'other))))
+		   'other)))
+	   case-fold-search)
       (if (and (memq line-type '(anchored-comment empty-line))
 	  (let ((c-syntactic-context (c-guess-basic-syntax)))
   (let* ((forward (> count 0))
 	 (increment (if forward -1 1))
 	 (search-function (if forward 're-search-forward 're-search-backward))
-	 new)
+	 new case-fold-search)
     (unless (integerp target-depth)
       (setq target-depth (if target-depth -1 0)))
 In the macro case this also has the effect of realigning any line
 continuation backslashes, unless `c-auto-align-backslashes' is nil."
   (interactive "*")
-  (let ((here (point-marker)) decl-limits)
+  (let ((here (point-marker)) decl-limits case-fold-search)
 	  (c-save-buffer-state nil
   (interactive "*")
   (let* (c-lit-limits c-lit-type
-	 (c-macro-start c-macro-start))
+	 (c-macro-start c-macro-start)
+	 case-fold-search)
     (c-save-buffer-state ()
       (setq c-lit-limits (c-literal-limits nil nil t)
   ;; Type a space in the first blank line, and the fontification of the next
   ;; line was fouled up by context fontification.
-  (let ((new-beg beg) (new-end end) new-region)
+  (let ((new-beg beg) (new-end end) new-region case-fold-search)
     (if c-in-after-change-fontification
 	(setq c-in-after-change-fontification nil)