diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-10-09 02:36:16 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-10-09 02:36:16 -0400 |
commit | f754db08a70b573fe81f3409cf20a057f9aa0636 (patch) | |
tree | 1ddce199006f01a521253651db64e4f58a50b0bb /lisp/progmodes/cc-bytecomp.el | |
parent | fd59cb292fa47be30b79a2190a0f404d4f673344 (diff) | |
download | emacs-f754db08a70b573fe81f3409cf20a057f9aa0636.tar.gz emacs-f754db08a70b573fe81f3409cf20a057f9aa0636.tar.bz2 emacs-f754db08a70b573fe81f3409cf20a057f9aa0636.zip |
* lisp/progmodes/cc-bytecomp.el (cc-bytecomp-defmacro): Remove, unused.
* lisp/progmodes/cc-vars.el (bq-process): Remove, unused.
Diffstat (limited to 'lisp/progmodes/cc-bytecomp.el')
-rw-r--r-- | lisp/progmodes/cc-bytecomp.el | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/lisp/progmodes/cc-bytecomp.el b/lisp/progmodes/cc-bytecomp.el index bd9805673a4..4236f1c983f 100644 --- a/lisp/progmodes/cc-bytecomp.el +++ b/lisp/progmodes/cc-bytecomp.el @@ -338,30 +338,6 @@ at compile time, e.g. for macros and inline functions." (cc-bytecomp-debug-msg "cc-bytecomp-defun: Covered function %s" ',fun)))))) -(put 'cc-bytecomp-defmacro 'lisp-indent-function 'defun) -(defmacro cc-bytecomp-defmacro (fun &rest temp-macro) - "Bind the symbol as a macro during compilation (and evaluation) of the -file. Don't use outside `eval-when-compile'." - `(let ((orig-fun (assq ',fun cc-bytecomp-original-functions))) - (if (not orig-fun) - (setq orig-fun - (list ',fun - nil - (if (fboundp ',fun) - (progn - (cc-bytecomp-debug-msg - "cc-bytecomp-defmacro: Saving %s" ',fun) - (symbol-function ',fun)) - (cc-bytecomp-debug-msg - "cc-bytecomp-defmacro: Saving %s as unbound" ',fun) - 'unbound)) - cc-bytecomp-original-functions - (cons orig-fun cc-bytecomp-original-functions))) - (defmacro ,fun ,@temp-macro) - (cc-bytecomp-debug-msg - "cc-bytecomp-defmacro: Bound macro %s" ',fun) - (setcar (cdr orig-fun) (symbol-function ',fun)))) - (defmacro cc-bytecomp-put (symbol propname value) "Set a property on a symbol during compilation (and evaluation) of the file. Don't use outside `eval-when-compile'." |