Mercurial > emacs
changeset 77097:43beb362565f
Markus Triska <markus.triska at gmx.at>:
(byte-optimize-char-before): Remove (move to bytecomp.el as
byte-compile-char-before).
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 10 Apr 2007 03:55:17 +0000 |
| parents | 14feb20665af |
| children | 870bcb0caea2 |
| files | lisp/emacs-lisp/byte-opt.el |
| diffstat | 1 files changed, 0 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- 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.