[Emacs-diffs] /srv/bzr/emacs/trunk r110480: * lisp/progmodes/cc-bytecomp.el (cc-bytecomp-defmacro): Remove, unused.

[Stefan Monnier]

------------------------------------------------------------
revno: 110480
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Tue 2012-10-09 02:36:16 -0400
message:
  * lisp/progmodes/cc-bytecomp.el (cc-bytecomp-defmacro): Remove, unused.
  * lisp/progmodes/cc-vars.el (bq-process): Remove, unused.
modified:
  lisp/ChangeLog
  lisp/progmodes/cc-bytecomp.el
  lisp/progmodes/cc-vars.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-10-09 06:01:10 +0000
+++ b/lisp/ChangeLog    2012-10-09 06:36:16 +0000
@@ -1,5 +1,8 @@
 2012-10-09  Stefan Monnier  <address@hidden>
 
+       * progmodes/cc-bytecomp.el (cc-bytecomp-defmacro): Remove, unused.
+       * progmodes/cc-vars.el (bq-process): Remove, unused.
+
        * emacs-lisp/cl-macs.el (cl-defstruct): Obey the :read-only property.
 
 2012-10-09  Fabián Ezequiel Gallina  <address@hidden>

=== modified file 'lisp/progmodes/cc-bytecomp.el'
--- a/lisp/progmodes/cc-bytecomp.el     2012-01-19 07:21:25 +0000
+++ b/lisp/progmodes/cc-bytecomp.el     2012-10-09 06:36:16 +0000
@@ -338,30 +338,6 @@
             (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'."

=== modified file 'lisp/progmodes/cc-vars.el'
--- a/lisp/progmodes/cc-vars.el 2012-02-11 22:13:29 +0000
+++ b/lisp/progmodes/cc-vars.el 2012-10-09 06:36:16 +0000
@@ -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