[Emacs-diffs] /srv/bzr/emacs/emacs-24 r108481: * lisp/emacs-lisp/cl-lib.el (cl-values, cl-values-list): Fix up last change.

[Stefan Monnier]

------------------------------------------------------------
revno: 108481
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2012-06-04 10:08:33 -0400
message:
  * lisp/emacs-lisp/cl-lib.el (cl-values, cl-values-list): Fix up last change.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/cl-lib.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-06-04 13:02:23 +0000
+++ b/lisp/ChangeLog    2012-06-04 14:08:33 +0000
@@ -1,7 +1,11 @@
+2012-06-04  Stefan Monnier  <address@hidden>
+
+       * emacs-lisp/cl-lib.el (cl-values, cl-values-list): Fix up last change.
+
 2012-06-04  Chong Yidong  <address@hidden>
 
-       * 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  <address@hidden>

=== modified file 'lisp/emacs-lisp/cl-lib.el'
--- a/lisp/emacs-lisp/cl-lib.el 2012-06-04 01:05:17 +0000
+++ b/lisp/emacs-lisp/cl-lib.el 2012-06-04 14:08:33 +0000
@@ -227,6 +227,7 @@
 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 @@
 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.