;;; cc-lobotomy.el --- excise portions of cc-mode's brain... for speed
-;; Copyright (C) 1985,1987,1992-200
1 Free Software Foundation, Inc.
+;; Copyright (C) 1985,1987,1992-200 Free Software Foundation, Inc.
;; Author: 1995 Barry A. Warsaw
;; Maintainer: Unmaintained
(cons (file-name-directory byte-compile-dest-file) load-path)
;; This is a faster version of c-in-literal. It trades speed for one
;; approximation, namely that within other literals, the `#' character
-;; cannot be the first non-whitespace on a line.
-(defun cc-in-literal-lobotomized (&optional lim)
+;; cannot be the first non-whitespace on a line. This only happens if
+;; detect-cpp is non-nil, which isn't very often.
+(defun cc-in-literal-lobotomized (&optional lim detect-cpp)
(if (and (vectorp c-in-literal-cache)
(= (point) (aref c-in-literal-cache 0)))
(char-at-boi (char-after (c-point 'boi)))
- ((and char-at-boi (= char-at-boi ?#))
+ ((and char-at-boi (= char-at-boi ?#))
((nth 3 (setq state (save-excursion