From: Glenn Morris Date: Mon, 20 Oct 2014 19:19:15 +0000 (+0100) Subject: Temporarily revert previous bytecomp change X-Git-Tag: emacs-24.4~1 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dfccf2f60da8a69a7371c3731c0c1af4f5745426;p=emacs.git Temporarily revert previous bytecomp change --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1a458522079..6b0c8a67b79 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,8 +1,3 @@ -2014-10-20 Stefan Monnier - - * emacs-lisp/bytecomp.el (=, <, >, <=, >=): Don't optimize multi-arg - case (bug#18767). - 2014-10-15 Alan Mackenzie * cus-edit.el (custom-command-apply): Specify the return value in diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 69c4e0f1628..e5f8a8cc22a 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -3261,11 +3261,11 @@ If it is nil, then the handler is \"byte-compile-SYMBOL.\"" (byte-defop-compiler cons 2) (byte-defop-compiler aref 2) (byte-defop-compiler set 2) -(byte-defop-compiler (= byte-eqlsign) 2) ;; -and bug#18767 -(byte-defop-compiler (< byte-lss) 2) ;; -and bug#18767 -(byte-defop-compiler (> byte-gtr) 2) ;; -and bug#18767 -(byte-defop-compiler (<= byte-leq) 2) ;; -and bug#18767 -(byte-defop-compiler (>= byte-geq) 2) ;; -and bug#18767 +(byte-defop-compiler (= byte-eqlsign) 2-and) +(byte-defop-compiler (< byte-lss) 2-and) +(byte-defop-compiler (> byte-gtr) 2-and) +(byte-defop-compiler (<= byte-leq) 2-and) +(byte-defop-compiler (>= byte-geq) 2-and) (byte-defop-compiler get 2) (byte-defop-compiler nth 2) (byte-defop-compiler substring 2-3) @@ -3332,7 +3332,6 @@ If it is nil, then the handler is \"byte-compile-SYMBOL.\"" (defun byte-compile-and-folded (form) "Compile calls to functions like `<='. These implicitly `and' together a bunch of two-arg bytecodes." - ;; FIXME: bug#18767 means we can't do it this way! (let ((l (length form))) (cond ((< l 3) (byte-compile-form `(progn ,(nth 1 form) t)))