commit/cc-mode: acm: Ensure searching for keywords is case sensitive.

1 new commit in cc-mode: https://bitbucket.org/xemacs/cc-mode/changeset/3c78c03936c1/ changeset: 3c78c03936c1 user: acm date: 2012-04-15 20:16:57 summary: 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. affected #: 2 files diff -r 29c4b1d0c74b93f571485cdd6c881437827eec93 -r 3c78c03936c18a9d23802d948cdf8980f26cb389 cc-cmds.el --- a/cc-cmds.el +++ b/cc-cmds.el ＠＠ -681,7 +681,7 ＠＠ ;; 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)) ＠＠ -1095,7 +1095,7 ＠＠ (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)) ＠＠ -1181,7 +1181,8 ＠＠ (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)) ＠＠ -1588,7 +1589,7 ＠＠ ; 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) (save-restriction (if (eq c-defun-tactic 'go-outward) ＠＠ -1707,7 +1708,7 ＠＠ ; structure with other users of c-state-cache. (orig-point-min (point-min)) (orig-point-max (point-max)) lim - where pos) + where pos case-fold-search) (save-restriction (if (eq c-defun-tactic 'go-outward) ＠＠ -1768,7 +1769,7 ＠＠ (interactive) (c-save-buffer-state (beginning-of-defun-function end-of-defun-function - where pos name-end) + where pos name-end case-fold-search) (save-restriction (widen) ＠＠ -1963,7 +1964,7 ＠＠ ;; FIXME!!! for transient-mark/zemacs sometime. (2012-03-08.) (interactive) - (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. ＠＠ -1997,11 +1998,12 ＠＠ (defun c-cpp-define-name () "Return the name of the current CPP macro, or NIL if we're not in one." (interactive) - (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. ＠＠ -2883,7 +2885,8 ＠＠ (eq (match-end 0) eot)) 'cpp-end-block) (t - 'other)))) + 'other))) + case-fold-search) (if (and (memq line-type '(anchored-comment empty-line)) c-indent-comments-syntactically-p) (let ((c-syntactic-context (c-guess-basic-syntax))) ＠＠ -3019,7 +3022,7 ＠＠ (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))) (save-excursion ＠＠ -3221,7 +3224,7 ＠＠ 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) (unwind-protect (progn (c-save-buffer-state nil ＠＠ -4633,7 +4636,8 ＠＠ (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) diff -r 29c4b1d0c74b93f571485cdd6c881437827eec93 -r 3c78c03936c18a9d23802d948cdf8980f26cb389 cc-mode.el --- a/cc-mode.el +++ b/cc-mode.el ＠＠ -1199,7 +1199,7 ＠＠ ;; ;; 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) (save-restriction Repository URL: https://bitbucket.org/xemacs/cc-mode/ -- This is a commit notification from bitbucket.org. You are receiving this because you have the service enabled, addressing the recipient of this email. _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches