(byte-compile-beginning-of-line):

Compiler macro removed; beginning-of-line is no longer always
equivalent to forward-line, in the presence of fields.

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 57cbc63a9bf2a88c804af61e23b280421ba9482b..dbcbe5c8c77b5e6c5debf878a641b5cb9b1d0f2c 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -10,7 +10,7 @@
 
 ;;; This version incorporates changes up to version 2.10 of the
 ;;; Zawinski-Furuseth compiler.
-(defconst byte-compile-version "$Revision: 2.70 $")
+(defconst byte-compile-version "$Revision: 2.72 $")
 
 ;; This file is part of GNU Emacs.
 
@@ -2691,7 +2691,6 @@ If FORM is a lambda or a macro, byte-compile it as a function."
 (byte-defop-compiler-1 - byte-compile-minus)
 (byte-defop-compiler19 (/ byte-quo) byte-compile-quo)
 (byte-defop-compiler19 nconc)
-(byte-defop-compiler-1 beginning-of-line)
 
 (defun byte-compile-list (form)
   (let ((count (length (cdr form))))
@@ -2847,19 +2846,6 @@ If FORM is a lambda or a macro, byte-compile it as a function."
           (if (cdr form)
               (byte-compile-discard))))))
 
-(defun byte-compile-beginning-of-line (form)
-  (if (not (byte-compile-constp (nth 1 form)))
-      (byte-compile-normal-call form)
-    (byte-compile-form
-     (list 'forward-line
-          (if (integerp (setq form (or (eval (nth 1 form)) 1)))
-              (1- form)
-            (byte-compile-warn "Non-numeric arg to beginning-of-line: %s"
-                               form)
-            (list '1- (list 'quote form))))
-     t)
-    (byte-compile-constant nil)))
-
 \f
 (byte-defop-compiler-1 setq)
 (byte-defop-compiler-1 setq-default)