[Emacs-diffs] trunk r115059: * lisp/emacs-lisp/cconv.el (cconv-convert): Print warning instead of

[Stefan Monnier]

------------------------------------------------------------
revno: 115059
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=15814
author: Nathan Trapuzzano <address@hidden>
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Sun 2013-11-10 23:55:39 -0500
message:
  * lisp/emacs-lisp/cconv.el (cconv-convert): Print warning instead of
  throwing error over malformed let/let*.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/cconv.el       cconv.el-20101015215845-f7w7g0kxa4xzdjdx-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-11-11 04:50:56 +0000
+++ b/lisp/ChangeLog    2013-11-11 04:55:39 +0000
@@ -1,3 +1,8 @@
+2013-11-11  Nathan Trapuzzano  <address@hidden>  (tiny change)
+
+       * emacs-lisp/cconv.el (cconv-convert): Print warning instead of
+       throwing error over malformed let/let* (bug#15814).
+
 2013-11-11  Stefan Monnier  <address@hidden>
 
        * iswitchb.el (iswitchb-mode): Mark obsolete.
@@ -16,14 +21,13 @@
 
 2013-11-09  Andreas Schwab  <address@hidden>
 
-       * progmodes/sh-script.el (sh-font-lock-keywords-var): Force
-       highlighting text after Summary keyword in doc face for rpm.
+       * progmodes/sh-script.el (sh-font-lock-keywords-var):
+       Force highlighting text after Summary keyword in doc face for rpm.
 
 2013-11-09  Dmitry Gutov  <address@hidden>
 
        * textmodes/ispell.el (ispell-lookup-words): When `look' is not
-       available and the word has no wildcards, append one to the grep
-       pattern.
+       available and the word has no wildcards, append one to the grep pattern.
        http://lists.gnu.org/archive/html/emacs-devel/2013-11/msg00258.html
        (ispell-complete-word): Call `ispell-lookup-words' with the value
        independent of `ispell-look-p'.

=== modified file 'lisp/emacs-lisp/cconv.el'
--- a/lisp/emacs-lisp/cconv.el  2013-11-04 19:48:07 +0000
+++ b/lisp/emacs-lisp/cconv.el  2013-11-11 04:55:39 +0000
@@ -291,9 +291,9 @@
          (let* ((value nil)
                (var (if (not (consp binder))
                         (prog1 binder (setq binder (list binder)))
-                      (cl-assert (null (cdr (cdr binder))) nil
-                                 "malformed let binding: `%s'"
-                                  (prin1-to-string binder))
+                       (when (cddr binder)
+                         (byte-compile-log-warning
+                          (format "Malformed `%S' binding: %S" letsym binder)))
                       (setq value (cadr binder))
                       (car binder)))
                (new-val