diff options
author | Glenn Morris <rgm@gnu.org> | 2007-04-10 03:55:17 +0000 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2007-04-10 03:55:17 +0000 |
commit | 3e628abcddb5d61e79175a6bc463071d914d9411 (patch) | |
tree | a7b68ce247a64a47a12dd51e7978f62b2ac11267 /lisp/emacs-lisp | |
parent | ff4c5ca1ec175eb596f045a1d30a8733cd626ab2 (diff) | |
download | emacs-3e628abcddb5d61e79175a6bc463071d914d9411.tar.gz |
Markus Triska <markus.triska at gmx.at>:
(byte-optimize-char-before): Remove (move to bytecomp.el as
byte-compile-char-before).
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 5215e6e9db7..a6e4d8a91e0 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -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. |