# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1176177317 0
# Node ID 43beb362565feb5dc95fb8d4a877ff3393bcfed4
# Parent  14feb20665af4511c65a70d7bede886aef082c50
Markus Triska  <markus.triska at gmx.at>:

(byte-optimize-char-before): Remove (move to bytecomp.el as
byte-compile-char-before).

diff -r 14feb20665af -r 43beb362565f lisp/emacs-lisp/byte-opt.el
--- a/lisp/emacs-lisp/byte-opt.el	Tue Apr 10 03:54:36 2007 +0000
+++ b/lisp/emacs-lisp/byte-opt.el	Tue Apr 10 03:55:17 2007 +0000
@@ -1137,14 +1137,6 @@
 	 '(forward-word -1))
 	(t form)))
 
-(put 'char-before 'byte-optimizer 'byte-optimize-char-before)
-(defun byte-optimize-char-before (form)
-  (cond ((= 2 (safe-length form))
-	 `(char-after (1- ,(nth 1 form))))
-	((= 1 (safe-length form))
-	 '(char-after (1- (point))))
-	(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.