From: Glenn Morris <rgm@gnu.org>
Date: Wed, 11 Apr 2007 03:57:11 +0000 (+0000)
Subject: Markus Triska  <markus.triska at gmx.at>:
X-Git-Tag: emacs-pretest-22.0.98~147
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6f7e29f1d2e5c71de825072c83803fd0640e8d84;p=emacs.git

Markus Triska  <markus.triska at gmx.at>:

(byte-optimize-backward-char, byte-optimize-backward-word): Remove -
move to bytecomp.el.
---

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index a6e4d8a91e0..a9dedae398c 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -1117,26 +1117,6 @@
 	(byte-optimize-predicate form))
     form))
 
-;; Avoid having to write forward-... with a negative arg for speed.
-;; Fixme: don't be limited to constant args.
-(put 'backward-char 'byte-optimizer 'byte-optimize-backward-char)
-(defun byte-optimize-backward-char (form)
-  (cond ((and (= 2 (safe-length form))
-	      (numberp (nth 1 form)))
-	 (list 'forward-char (eval (- (nth 1 form)))))
-	((= 1 (safe-length form))
-	 '(forward-char -1))
-	(t form)))
-
-(put 'backward-word 'byte-optimizer 'byte-optimize-backward-word)
-(defun byte-optimize-backward-word (form)
-  (cond ((and (= 2 (safe-length form))
-	      (numberp (nth 1 form)))
-	 (list 'forward-word (eval (- (nth 1 form)))))
-	((= 1 (safe-length form))
-	 '(forward-word -1))
-	(t form)))
-
 ;; Fixme: delete-char -> delete-region (byte-coded)
 ;; optimize string-as-unibyte, string-as-multibyte, string-make-unibyte,
 ;; string-make-multibyte for constant args.