From e364a2b7e15b4d8e4b36361138781d49720b6c95 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 4 Jun 2012 10:08:33 -0400 Subject: [PATCH] * lisp/emacs-lisp/cl-lib.el (cl-values, cl-values-list): Fix up last change. --- lisp/ChangeLog | 8 ++++++-- lisp/emacs-lisp/cl-lib.el | 2 ++ 2 files changed, 8 insertions(+), 2 deletions(-) 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 + + * emacs-lisp/cl-lib.el (cl-values, cl-values-list): Fix up last change. + 2012-06-04 Chong Yidong - * 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 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. -- 2.39.2