comparison lisp/progmodes/cc-engine.el @ 109809:012ed5d2e4dd

Silence some cc-mode compiler warnings. * lisp/progmodes/cc-engine.el (c-new-BEG, c-new-END) (c-fontify-recorded-types-and-refs): Define for compiler. * lisp/progmodes/cc-mode.el (c-new-BEG, c-new-END): Move definitions before use.
author Glenn Morris <rgm@gnu.org>
date Mon, 16 Aug 2010 23:54:03 -0700
parents c18dffa2ba46
children 280c8ae2476d
comparison
equal deleted inserted replaced
109808:210b4524545e 109809:012ed5d2e4dd
1 ;;; cc-engine.el --- core syntax guessing engine for CC mode 1 ;;; cc-engine.el --- core syntax guessing engine for CC mode
2 2
3 ;; Copyright (C) 1985, 1987, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 3 ;; Copyright (C) 1985, 1987, 1992, 1993, 1994, 1995, 1996, 1997, 1998,
4 ;; 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 4 ;; 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009,
5 ;; Free Software Foundation, Inc. 5 ;; 2010 Free Software Foundation, Inc.
6 6
7 ;; Authors: 2001- Alan Mackenzie 7 ;; Authors: 2001- Alan Mackenzie
8 ;; 1998- Martin Stjernholm 8 ;; 1998- Martin Stjernholm
9 ;; 1992-1999 Barry A. Warsaw 9 ;; 1992-1999 Barry A. Warsaw
10 ;; 1987 Dave Detlefs 10 ;; 1987 Dave Detlefs
5021 c-<-as-paren-syntax)) ; should always be true. 5021 c-<-as-paren-syntax)) ; should always be true.
5022 (c-unmark-<->-as-paren (point)) 5022 (c-unmark-<->-as-paren (point))
5023 (c-unmark-<->-as-paren pos)) 5023 (c-unmark-<->-as-paren pos))
5024 t))) 5024 t)))
5025 5025
5026 ;; Set by c-common-init in cc-mode.el.
5027 (defvar c-new-BEG)
5028 (defvar c-new-END)
5029
5026 (defun c-before-change-check-<>-operators (beg end) 5030 (defun c-before-change-check-<>-operators (beg end)
5027 ;; Unmark certain pairs of "< .... >" which are currently marked as 5031 ;; Unmark certain pairs of "< .... >" which are currently marked as
5028 ;; template/generic delimiters. (This marking is via syntax-table 5032 ;; template/generic delimiters. (This marking is via syntax-table
5029 ;; text properties). 5033 ;; text properties).
5030 ;; 5034 ;;
5363 ;; after a keyword in `c-colon-type-list-kwds'. 5367 ;; after a keyword in `c-colon-type-list-kwds'.
5364 (c-forward-id-comma-list type nil)))) 5368 (c-forward-id-comma-list type nil))))
5365 5369
5366 (goto-char safe-pos) 5370 (goto-char safe-pos)
5367 t))) 5371 t)))
5372
5373 ;; cc-mode requires cc-fonts.
5374 (declare-function c-fontify-recorded-types-and-refs "cc-fonts" ())
5368 5375
5369 (defun c-forward-<>-arglist (all-types) 5376 (defun c-forward-<>-arglist (all-types)
5370 ;; The point is assumed to be at a "<". Try to treat it as the open 5377 ;; The point is assumed to be at a "<". Try to treat it as the open
5371 ;; paren of an angle bracket arglist and move forward to the 5378 ;; paren of an angle bracket arglist and move forward to the
5372 ;; corresponding ">". If successful, the point is left after the 5379 ;; corresponding ">". If successful, the point is left after the