ob: only call copy-seq on proper lists

* lisp/ob.el (org-babel-sha1-hash): Only call copy-seq on proper
  lists.
This commit is contained in:
Eric Schulte 2011-07-21 11:05:19 -06:00
parent 4fd9989b58
commit 4b6bfab817
1 changed files with 1 additions and 1 deletions

View 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)