Mercurial > emacs
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) |