[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/byte-opt.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       07/04/10 03:55:17

Index: byte-opt.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/byte-opt.el,v
retrieving revision 1.91
retrieving revision 1.92
diff -u -b -r1.91 -r1.92
--- byte-opt.el 9 Apr 2007 16:33:01 -0000       1.91
+++ byte-opt.el 10 Apr 2007 03:55:17 -0000      1.92
@@ -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.