From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 4 Jun 2012 14:08:33 +0000 (-0400)
Subject: * lisp/emacs-lisp/cl-lib.el (cl-values, cl-values-list): Fix up last change.
X-Git-Tag: emacs-24.2.90~1199^2~474^2~132
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e364a2b7e15b4d8e4b36361138781d49720b6c95;p=emacs.git

* lisp/emacs-lisp/cl-lib.el (cl-values, cl-values-list): Fix up last change.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c707d3a444d..2f4a5afe038 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,11 @@
+2012-06-04  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* emacs-lisp/cl-lib.el (cl-values, cl-values-list): Fix up last change.
+
 2012-06-04  Chong Yidong  <cyd@gnu.org>
 
-	* image.el (imagemagick-types-inhibit): Revert last change.  Add
-	INFO and M.
+	* image.el (imagemagick-types-inhibit): Revert last change.
+	Add INFO and M.
 	(imagemagick-enabled-types): Remove CIN and EPS*.
 
 2012-06-04  Stefan Monnier  <monnier@iro.umontreal.ca>
diff --git a/lisp/emacs-lisp/cl-lib.el b/lisp/emacs-lisp/cl-lib.el
index bb3fc5fde60..0dd8c9e1569 100644
--- a/lisp/emacs-lisp/cl-lib.el
+++ b/lisp/emacs-lisp/cl-lib.el
@@ -227,6 +227,7 @@ The arguments of `cl-values' are the values
 that the containing function should return.
 
 \(fn &rest VALUES)")
+(put 'cl-values 'byte-optimizer 'byte-compile-inline-expand)
 
 (defalias 'cl-values-list #'identity
   "Return multiple values, Common Lisp style, taken from a list.
@@ -234,6 +235,7 @@ LIST specifies the list of values
 that the containing function should return.
 
 \(fn LIST)")
+(put 'cl-values-list 'byte-optimizer 'byte-compile-inline-expand)
 
 (defsubst cl-multiple-value-list (expression)
   "Return a list of the multiple values produced by EXPRESSION.