ob: only call copy-seq on proper lists
authorEric Schulte <schulte.eric@gmail.com>
Thu, 21 Jul 2011 17:05:19 +0000 (11:05 -0600)
committerEric Schulte <schulte.eric@gmail.com>
Thu, 21 Jul 2011 17:05:33 +0000 (11:05 -0600)
* lisp/ob.el (org-babel-sha1-hash): Only call copy-seq on proper
  lists.

lisp/ob.el

index c1d750a..28aeb24 100644 (file)
@@ -754,7 +754,7 @@ the current subtree."
                   (setq lst (remove p lst)))
                 lst)
             (norm (arg)
-                  (let ((v (if (listp (cdr arg))
+                  (let ((v (if (and (listp (cdr arg)) (null (cddr arg)))
                                (copy-seq (cdr arg))
                              (cdr arg))))
                     (when (and v (not (and (sequencep v)