[Emacs-diffs] master 9a17d24: * lisp/emacs-lisp/cl.el (cl--function-convert): Simplify.

[Stefan Monnier]

branch: master
commit 9a17d246eabeb5a365bfebce5ec3862e42c8b132
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * lisp/emacs-lisp/cl.el (cl--function-convert): Simplify.
---
 lisp/ChangeLog        |   12 ++++++++----
 lisp/emacs-lisp/cl.el |    5 +----
 2 files changed, 9 insertions(+), 8 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 90681c8..ddad9d4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2015-01-28  Stefan Monnier  <address@hidden>
+
+       * emacs-lisp/cl.el (cl--function-convert): Simplify.
+
 2015-01-28  Tassilo Horn  <address@hidden>
 
        * textmodes/reftex.el (reftex-syntax-table-for-bib): Give ( and )
@@ -11,8 +15,8 @@
        python.el: New non-global state dependent indentation engine.
        (Bug#18319, Bug#19595)
 
-       * progmodes/python.el (python-syntax-comment-or-string-p): Accept
-       PPSS as argument.
+       * progmodes/python.el (python-syntax-comment-or-string-p):
+       Accept PPSS as argument.
        (python-syntax-closing-paren-p): New function.
        (python-indent-current-level)
        (python-indent-levels): Mark obsolete.
@@ -30,8 +34,8 @@
 
        * subr.el (posnp): Correct docstring of `posnp'.
        (posn-col-row): Make it work with all mouse position objects.
-       * textmodes/artist.el (artist-mouse-draw-continously): Cancel
-       timers if an error occurs during continuous drawing.  (Bug#6130)
+       * textmodes/artist.el (artist-mouse-draw-continously):
+       Cancel timers if an error occurs during continuous drawing.  (Bug#6130)
 
 2015-01-20  Eli Zaretskii  <address@hidden>
 
diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el
index 1b20463..5da1cea 100644
--- a/lisp/emacs-lisp/cl.el
+++ b/lisp/emacs-lisp/cl.el
@@ -376,10 +376,7 @@ The two cases that are handled are:
           (setq cl--function-convert-cache (cons newf res))
           res))))
    (t
-    (setq cl--labels-convert-cache cl--function-convert-cache)
-    (prog1
-       (cl--labels-convert f)
-      (setq cl--function-convert-cache cl--labels-convert-cache)))))
+    (cl--labels-convert f))))
 
 (defmacro lexical-let (bindings &rest body)
   "Like `let', but lexically scoped.