From: Glenn Morris <rgm@gnu.org>
Date: Tue, 10 Apr 2007 03:58:03 +0000 (+0000)
Subject: Markus Triska  <markus.triska at gmx.at>:
X-Git-Tag: emacs-pretest-22.0.98~163
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=17975ebf234f8ac8899397e5849cb5992bbfb52a;p=emacs.git

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

(byte-optimize-char-before): Remove (move to bytecomp.el as
byte-compile-char-before).
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 99d9518beb7..3c4bad3c162 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+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
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.