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 | |
| 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')
| -rw-r--r-- | lisp/progmodes/cc-bytecomp.el | 24 | ||||
| -rw-r--r-- | lisp/progmodes/cc-vars.el | 10 |
2 files changed, 0 insertions, 34 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'." diff --git a/lisp/progmodes/cc-vars.el b/lisp/progmodes/cc-vars.el index 5201e4a26ed..d56c1124a9c 100644 --- a/lisp/progmodes/cc-vars.el +++ b/lisp/progmodes/cc-vars.el @@ -49,16 +49,6 @@ (require 'custom) (require 'widget)) -(cc-eval-when-compile - ;; Need the function form of `backquote', which isn't standardized - ;; between Emacsen. It's called `bq-process' in XEmacs, and - ;; `backquote-process' in Emacs. `backquote-process' returns a - ;; slightly more convoluted form, so let `bq-process' be the norm. - (if (fboundp 'backquote-process) - (cc-bytecomp-defmacro bq-process (form) - `(cdr (backquote-process ,form))))) - - ;;; Helpers ;; This widget exists in newer versions of the Custom library |