diff options
Diffstat (limited to 'lisp/emacs-lisp/bytecomp.el')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 16 |
1 files changed, 1 insertions, 15 deletions
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) |