comparison lisp/progmodes/cc-langs.el @ 101271:c7dad4ac139c

(declare-function): Add compatibility stub. (delete-duplicates, mapcan, cl-macroexpand-all): Declare.
author Glenn Morris <rgm@gnu.org>
date Sat, 17 Jan 2009 20:02:41 +0000
parents 0685234e527d
children 4f3b9ebc200a
comparison
equal deleted inserted replaced
101270:652c25392003 101271:c7dad4ac139c
113 ;; from byte compiled files, or when the source definitions for the 113 ;; from byte compiled files, or when the source definitions for the
114 ;; language constants are requested. 114 ;; language constants are requested.
115 115
116 ;;; Code: 116 ;;; Code:
117 117
118 ;; For Emacs < 22.2.
119 (eval-and-compile
120 (unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
121
118 (eval-when-compile 122 (eval-when-compile
119 (let ((load-path 123 (let ((load-path
120 (if (and (boundp 'byte-compile-dest-file) 124 (if (and (boundp 'byte-compile-dest-file)
121 (stringp byte-compile-dest-file)) 125 (stringp byte-compile-dest-file))
122 (cons (file-name-directory byte-compile-dest-file) load-path) 126 (cons (file-name-directory byte-compile-dest-file) load-path)
201 (put 'c-lang-defvar 'lisp-indent-function 'defun) 205 (put 'c-lang-defvar 'lisp-indent-function 'defun)
202 ; (eval-after-load "edebug" ; 2006-07-09: def-edebug-spec is now in subr.el. 206 ; (eval-after-load "edebug" ; 2006-07-09: def-edebug-spec is now in subr.el.
203 ; ' 207 ; '
204 (def-edebug-spec c-lang-defvar 208 (def-edebug-spec c-lang-defvar
205 (&define name def-form &optional stringp)) ;) 209 (&define name def-form &optional stringp)) ;)
210
211 ;; Suppress "might not be defined at runtime" warning.
212 ;; This file is only used when compiling other cc files.
213 (declare-function delete-duplicates "cl-seq" (cl-seq &rest cl-keys))
214 (declare-function mapcan "cl-extra" (cl-func cl-seq &rest cl-rest))
215 (declare-function cl-macroexpand-all "cl-extra" (form &optional env))
206 216
207 (eval-and-compile 217 (eval-and-compile
208 ;; Some helper functions used when building the language constants. 218 ;; Some helper functions used when building the language constants.
209 219
210 (defun c-filter-ops (ops opgroup-filter op-filter &optional xlate) 220 (defun c-filter-ops (ops opgroup-filter op-filter &optional xlate)