Commit 17975ebf authored by Glenn Morris's avatar Glenn Morris
Browse files

Markus Triska <markus.triska at gmx.at>:

(byte-optimize-char-before): Remove (move to bytecomp.el as
byte-compile-char-before).
parent ec448ae2
2007-04-10 Glenn Morris <rgm@gnu.org>
* dframe.el (dframe-frame-mode): Do not set auto-show-mode, since
it is obsolete and has no effect.
2007-04-10 Markus Triska <markus.triska@gmx.at>
 
* emacs-lisp/byte-opt.el (byte-optimize-char-before): Remove (move
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment