Mercurial > emacs

changeset 90045:dfd72aa2c4e2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-71 Merge from emacs--cvs-trunk--0 Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-692 Update from CVS
author Miles Bader <miles@gnu.org>
date Fri, 12 Nov 2004 07:43:06 +0000
parents cb7f41387eb3 (current diff) e0ba1fe44b88 (diff)
children b637c617432f
files lisp/ChangeLog lisp/emacs-lisp/byte-opt.el
diffstat 2 files changed, 19 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Fri Nov 12 02:53:04 2004 +0000
+++ b/lisp/ChangeLog	Fri Nov 12 07:43:06 2004 +0000
@@ -13,6 +13,21 @@
 
 2004-11-11  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* emacs-lisp/byte-opt.el (byte-compile-inline-expand): Understand the
+	new byte-compile-function-environment binding to t.
+
+	* font-lock.el (font-lock-fontify-syntactically-region):
+	Don't forget to highlight the last char when we hit `end'.
+
+	* mwheel.el (mouse-wheel-progressive-speed): Fix typo in name.
+	(mwheel-scroll): Adjust accordingly.
+
+	* cvs-status.el: Reduce spurious warnings.
+	(cvs-status-checkout): Remove.
+	(cvs-status-mode-map): Use cvs-mode-checkout instead.
+
+	* pcvs.el (cvs-mode-checkout): New command.
+
 	* international/iso-cvt.el (iso-cvt-define-menu): Fix typo.
 
 	* tooltip.el: Require CL.
--- a/lisp/emacs-lisp/byte-opt.el	Fri Nov 12 02:53:04 2004 +0000
+++ b/lisp/emacs-lisp/byte-opt.el	Fri Nov 12 07:43:06 2004 +0000
@@ -1,6 +1,7 @@
 ;;; byte-opt.el --- the optimization passes of the emacs-lisp byte compiler
 
-;; Copyright (c) 1991,1994,2000,01,02,2004  Free Software Foundation, Inc.
+;; Copyright (c) 1991, 1994, 2000, 2001, 2002, 2004
+;;           Free Software Foundation, Inc.
 
 ;; Author: Jamie Zawinski <jwz@lucid.com>
 ;;	Hallvard Furuseth <hbf@ulrik.uio.no>
@@ -266,7 +267,7 @@
 		     (cdr (assq name byte-compile-function-environment)))))
       (if (and (consp fn) (eq (car fn) 'autoload))
 	  (error "File `%s' didn't define `%s'" (nth 1 fn) name))
-      (if (symbolp fn)
+      (if (and (symbolp fn) (not (eq fn t)))
 	  (byte-compile-inline-expand (cons fn (cdr form)))
 	(if (byte-code-function-p fn)
 	    (let (string)
@@ -2037,5 +2038,5 @@
 		 byte-optimize-lapcode))))
  nil)
 
-;;; arch-tag: 0f14076b-737e-4bef-aae6-908826ec1ff1
+;; arch-tag: 0f14076b-737e-4bef-aae6-908826ec1ff1
 ;;; byte-opt.el ends here