ob: only call copy-seq on proper lists

* lisp/ob.el (org-babel-sha1-hash): Only call copy-seq on proper lists.
2011-07-21 11:05:19 -06:00 · 2011-07-21 11:05:19 -06:00 · 4b6bfab817
parent 4fd9989b58
commit 4b6bfab817
1 changed files with 1 additions and 1 deletions
--- a/lisp/ob.el
+++ b/lisp/ob.el
@ -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)