Mercurial > emacs
changeset 77118:c7fe4de39577
Markus Triska <markus.triska at gmx.at>:
(byte-optimize-backward-char, byte-optimize-backward-word): Remove -
move to bytecomp.el.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 11 Apr 2007 03:57:11 +0000 |
| parents | 27bacd1b1a1f |
| children | 8e8844e56964 |
| files | lisp/emacs-lisp/byte-opt.el |
| diffstat | 1 files changed, 0 insertions(+), 20 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/byte-opt.el Wed Apr 11 03:55:50 2007 +0000 +++ b/lisp/emacs-lisp/byte-opt.el Wed Apr 11 03:57:11 2007 +0000 @@ -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.