[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/byte-opt.el,v
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/byte-opt.el,v |
Date: |
Wed, 11 Apr 2007 03:57:11 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 07/04/11 03:57:11
Index: byte-opt.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/byte-opt.el,v
retrieving revision 1.92
retrieving revision 1.93
diff -u -b -r1.92 -r1.93
--- byte-opt.el 10 Apr 2007 03:55:17 -0000 1.92
+++ byte-opt.el 11 Apr 2007 03:57:11 -0000 1.93
@@ -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.
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/byte-opt.el,v, Chong Yidong, 2007/04/05
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/byte-opt.el,v, Chong Yidong, 2007/04/06
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/byte-opt.el,v, Chong Yidong, 2007/04/09
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/byte-opt.el,v, Glenn Morris, 2007/04/09
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/byte-opt.el,v,
Glenn Morris <=
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/byte-opt.el,v, Chong Yidong, 2007/04/11