[elpa] externals/heap 304c604 13/31: Fixed bug in heap-copy.

[Stefan Monnier]

branch: externals/heap
commit 304c60408b5a74b86d82cb3ae8e3cc61a6f084ec
Author: Toby S. Cubitt <toby-predictive@dr-qubit.org>
Commit: Toby S. Cubitt <toby-predictive@dr-qubit.org>

    Fixed bug in heap-copy.
---
 heap.el | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/heap.el b/heap.el
index 5d9fb7a..2e6d6bc 100644
--- a/heap.el
+++ b/heap.el
@@ -2,10 +2,10 @@
 ;;; heap.el --- heap (a.k.a. priority queue) data structure package
 
 
-;; Copyright (C) 2004-2006, 2008 Toby Cubitt
+;; Copyright (C) 2004-2006, 2008, 2012 Toby Cubitt
 
 ;; Author: Toby Cubitt <toby-predictive@dr-qubit.org>
-;; Version: 0.2.1
+;; Version: 0.2.2
 ;; Keywords: heap, priority queue
 ;; URL: http://www.dr-qubit.org/emacs.php
 
@@ -71,6 +71,9 @@
 
 ;;; Change log:
 ;;
+;; Version 0.2.2
+;; * fixed bug in `heap-copy'
+;;
 ;; Version 0.2.1
 ;; * modified Commentary
 ;;
@@ -236,10 +239,11 @@ defaulting to 1.5"
 
 
 (defun heap-copy (heap)
-  "Return a copy of heap HEAP."
-  (let ((newheap (heap-create (heap--size heap) (heap--cmpfun heap))))
-    (heap--set-vect newheap (vconcat (heap--vect heap) []))
-    newheap))
+ "Return a copy of heap HEAP."
+ (let ((newheap (heap-create (heap--cmpfun heap) (heap--size heap))))
+   (heap--set-vect newheap (vconcat (heap--vect heap) []))
+   (heap--set-count newheap (heap--count heap))
+   newheap))
 
 
 (defun heap-p (obj)