aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/emacs-lisp/byte-opt.el8
2 files changed, 5 insertions, 8 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 99d9518beb7..3c4bad3c162 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
12007-04-10 Glenn Morris <rgm@gnu.org>
2
3 * dframe.el (dframe-frame-mode): Do not set auto-show-mode, since
4 it is obsolete and has no effect.
5
12007-04-10 Markus Triska <markus.triska@gmx.at> 62007-04-10 Markus Triska <markus.triska@gmx.at>
2 7
3 * emacs-lisp/byte-opt.el (byte-optimize-char-before): Remove (move 8 * emacs-lisp/byte-opt.el (byte-optimize-char-before): Remove (move
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 @@
1137 '(forward-word -1)) 1137 '(forward-word -1))
1138 (t form))) 1138 (t form)))
1139 1139
1140(put 'char-before 'byte-optimizer 'byte-optimize-char-before)
1141(defun byte-optimize-char-before (form)
1142 (cond ((= 2 (safe-length form))
1143 `(char-after (1- ,(nth 1 form))))
1144 ((= 1 (safe-length form))
1145 '(char-after (1- (point))))
1146 (t form)))
1147
1148;; Fixme: delete-char -> delete-region (byte-coded) 1140;; Fixme: delete-char -> delete-region (byte-coded)
1149;; optimize string-as-unibyte, string-as-multibyte, string-make-unibyte, 1141;; optimize string-as-unibyte, string-as-multibyte, string-make-unibyte,
1150;; string-make-multibyte for constant args. 1142;; string-make-multibyte for constant args.