From: Miles Bader <miles@gnu.org>
Date: Sat, 19 Aug 2000 01:53:42 +0000 (+0000)
Subject: (byte-compile-beginning-of-line):
X-Git-Tag: emacs-pretest-21.0.90~2173
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=527083d575f13da741c07e6423fcdf9b69142fea;p=emacs.git

(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 57cbc63a9bf..dbcbe5c8c77 100644
--- 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)))
-
 
 (byte-defop-compiler-1 setq)
 (byte-defop-compiler-1 setq-default)