Mercurial > emacs
changeset 30957:4d9aa1c71f44
(byte-compile-beginning-of-line):
Compiler macro removed; beginning-of-line is no longer always
equivalent to forward-line, in the presence of fields.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sat, 19 Aug 2000 01:53:42 +0000 |
| parents | 4c05432300f8 |
| children | ec347dd209e8 |
| files | lisp/emacs-lisp/bytecomp.el |
| diffstat | 1 files changed, 1 insertions(+), 15 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el Fri Aug 18 21:12:54 2000 +0000 +++ b/lisp/emacs-lisp/bytecomp.el Sat Aug 19 01:53:42 2000 +0000 @@ -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 @@ (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 (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)