[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/bytecomp.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/11/04 03:17:19

Modified files:
        lisp           : ChangeLog 
        lisp/emacs-lisp: bytecomp.el 

Log message:
        (byte-defop-compiler19): Remove.
        Without byte-compile-compatibility, the 'emacs19-opcode property is not
        used by anything.  Replace all calls with byte-defop-compiler.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16555&r2=1.16556
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/bytecomp.el?cvsroot=emacs&r1=2.269&r2=2.270

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16555
retrieving revision 1.16556
diff -u -b -r1.16555 -r1.16556
--- ChangeLog   4 Nov 2009 03:15:14 -0000       1.16555
+++ ChangeLog   4 Nov 2009 03:17:15 -0000       1.16556
@@ -9,6 +9,9 @@
        (byte-compile-list, byte-compile-concat, byte-compile-function-form)
        (byte-compile-insert, byte-compile-defun):
        Remove support for byte-compile-compatibility and Emacs 18.  (Bug#4571)
+       (byte-defop-compiler19): Remove.
+       Without byte-compile-compatibility, the 'emacs19-opcode property is not
+       used by anything.  Replace all calls with byte-defop-compiler.
 
 2009-11-04  Juri Linkov  <address@hidden>
 

Index: emacs-lisp/bytecomp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/bytecomp.el,v
retrieving revision 2.269
retrieving revision 2.270
diff -u -b -r2.269 -r2.270
--- emacs-lisp/bytecomp.el      4 Nov 2009 03:15:17 -0000       2.269
+++ emacs-lisp/bytecomp.el      4 Nov 2009 03:17:18 -0000       2.270
@@ -3074,19 +3074,6 @@
                      ''byte-opcode-invert (list 'quote function)))
        fnform))))
 
-(defmacro byte-defop-compiler19 (function &optional compile-handler)
-  ;; Just like byte-defop-compiler, but used to define an opcode to only
-  ;; be used when byte-compile-compatibility was false.
-  (list 'progn
-       (list 'put
-             (list 'quote
-                   (or (car (cdr-safe function))
-                       (intern (concat "byte-"
-                                       (symbol-name (or (car-safe function)
-                                                        function))))))
-             ''emacs19-opcode t)
-       (list 'byte-defop-compiler function compile-handler)))
-
 (defmacro byte-defop-compiler-1 (function &optional compile-handler)
   (list 'byte-defop-compiler (list function nil) compile-handler))
 
@@ -3117,10 +3104,10 @@
 (byte-defop-compiler current-buffer    0)
 ;;(byte-defop-compiler read-char       0) ;; obsolete
 (byte-defop-compiler interactive-p     0)
-(byte-defop-compiler19 widen           0)
-(byte-defop-compiler19 end-of-line    0-1)
-(byte-defop-compiler19 forward-char   0-1)
-(byte-defop-compiler19 forward-line   0-1)
+(byte-defop-compiler widen             0)
+(byte-defop-compiler end-of-line    0-1)
+(byte-defop-compiler forward-char   0-1)
+(byte-defop-compiler forward-line   0-1)
 (byte-defop-compiler symbolp           1)
 (byte-defop-compiler consp             1)
 (byte-defop-compiler stringp           1)
@@ -3138,15 +3125,15 @@
 (byte-defop-compiler char-after                0-1)
 (byte-defop-compiler set-buffer                1)
 ;;(byte-defop-compiler set-mark                1) ;; obsolete
-(byte-defop-compiler19 forward-word    0-1)
-(byte-defop-compiler19 char-syntax     1)
-(byte-defop-compiler19 nreverse                1)
-(byte-defop-compiler19 car-safe                1)
-(byte-defop-compiler19 cdr-safe                1)
-(byte-defop-compiler19 numberp         1)
-(byte-defop-compiler19 integerp                1)
-(byte-defop-compiler19 skip-chars-forward     1-2)
-(byte-defop-compiler19 skip-chars-backward    1-2)
+(byte-defop-compiler forward-word      0-1)
+(byte-defop-compiler char-syntax       1)
+(byte-defop-compiler nreverse          1)
+(byte-defop-compiler car-safe          1)
+(byte-defop-compiler cdr-safe          1)
+(byte-defop-compiler numberp           1)
+(byte-defop-compiler integerp          1)
+(byte-defop-compiler skip-chars-forward     1-2)
+(byte-defop-compiler skip-chars-backward    1-2)
 (byte-defop-compiler eq                2)
 (byte-defop-compiler memq              2)
 (byte-defop-compiler cons              2)
@@ -3160,37 +3147,37 @@
 (byte-defop-compiler get               2)
 (byte-defop-compiler nth               2)
 (byte-defop-compiler substring         2-3)
-(byte-defop-compiler19 (move-marker byte-set-marker) 2-3)
-(byte-defop-compiler19 set-marker      2-3)
-(byte-defop-compiler19 match-beginning 1)
-(byte-defop-compiler19 match-end       1)
-(byte-defop-compiler19 upcase          1)
-(byte-defop-compiler19 downcase                1)
-(byte-defop-compiler19 string=         2)
-(byte-defop-compiler19 string<         2)
-(byte-defop-compiler19 (string-equal byte-string=) 2)
-(byte-defop-compiler19 (string-lessp byte-string<) 2)
-(byte-defop-compiler19 equal           2)
-(byte-defop-compiler19 nthcdr          2)
-(byte-defop-compiler19 elt             2)
-(byte-defop-compiler19 member          2)
-(byte-defop-compiler19 assq            2)
-(byte-defop-compiler19 (rplaca byte-setcar) 2)
-(byte-defop-compiler19 (rplacd byte-setcdr) 2)
-(byte-defop-compiler19 setcar          2)
-(byte-defop-compiler19 setcdr          2)
-(byte-defop-compiler19 buffer-substring        2)
-(byte-defop-compiler19 delete-region   2)
-(byte-defop-compiler19 narrow-to-region        2)
-(byte-defop-compiler19 (% byte-rem)    2)
+(byte-defop-compiler (move-marker byte-set-marker) 2-3)
+(byte-defop-compiler set-marker        2-3)
+(byte-defop-compiler match-beginning   1)
+(byte-defop-compiler match-end 1)
+(byte-defop-compiler upcase            1)
+(byte-defop-compiler downcase          1)
+(byte-defop-compiler string=           2)
+(byte-defop-compiler string<           2)
+(byte-defop-compiler (string-equal byte-string=) 2)
+(byte-defop-compiler (string-lessp byte-string<) 2)
+(byte-defop-compiler equal             2)
+(byte-defop-compiler nthcdr            2)
+(byte-defop-compiler elt               2)
+(byte-defop-compiler member            2)
+(byte-defop-compiler assq              2)
+(byte-defop-compiler (rplaca byte-setcar) 2)
+(byte-defop-compiler (rplacd byte-setcdr) 2)
+(byte-defop-compiler setcar            2)
+(byte-defop-compiler setcdr            2)
+(byte-defop-compiler buffer-substring  2)
+(byte-defop-compiler delete-region     2)
+(byte-defop-compiler narrow-to-region  2)
+(byte-defop-compiler (% byte-rem)      2)
 (byte-defop-compiler aset              3)
 
 (byte-defop-compiler max               byte-compile-associative)
 (byte-defop-compiler min               byte-compile-associative)
 (byte-defop-compiler (+ byte-plus)     byte-compile-associative)
-(byte-defop-compiler19 (* byte-mult)   byte-compile-associative)
+(byte-defop-compiler (* byte-mult)     byte-compile-associative)
 
-;;####(byte-defop-compiler19 move-to-column    1)
+;;####(byte-defop-compiler move-to-column      1)
 (byte-defop-compiler-1 interactive byte-compile-noop)
 
 
@@ -3292,8 +3279,8 @@
 (byte-defop-compiler insert)
 (byte-defop-compiler-1 function byte-compile-function-form)
 (byte-defop-compiler-1 - byte-compile-minus)
-(byte-defop-compiler19 (/ byte-quo) byte-compile-quo)
-(byte-defop-compiler19 nconc)
+(byte-defop-compiler (/ byte-quo) byte-compile-quo)
+(byte-defop-compiler nconc)
 
 (defun byte-compile-char-before (form)
   (cond ((= 2 (length form))