Article View: gnu.emacs.vm.bug
Article #3vm-delete-duplicates ruthlessly discarding addresses
From: Joe Wells
Date: Fri, 30 Oct 1992 18:43
Date: Fri, 30 Oct 1992 18:43
22 lines
1086 bytes
1086 bytes
VM 5.32.
(vm-delete-duplicates '("a" "b" "b" "c" "c")) ==> ("a" "c")
The fix is to insert (setq prev (cdr prev)) at the right place:
----------------------------------------------------------------------
--- vm-misc.el-dist Thu Apr 9 01:30:54 1992
+++ vm-misc.el Fri Oct 30 13:42:19 1992
@@ -237,6 +237,7 @@
prev (if all nil p)
p (cdr p))
(setcdr prev (if all (cdr p) p))
+ (setq prev (cdr prev))
(setq p (cdr p)))))
list ))
----------------------------------------------------------------------
--
Joe Wells <jbw@cs.bu.edu>
Member of the League for Programming Freedom --- send e-mail for details
Technical Details
Message-ID:
<9210301843.AA25555@bigbird.bu.edu>Path:
arc1-ca.pugleaf.net!sparky!uunet!wendy-fate.uu.net!bug-vmShow Full Headers
Complete Article Headers
x-gateway: rodan.UU.NET from bug-vm to gnu.emacs.vm.bug; Fri, 30 Oct 1992 13:51:52 EST Date: Fri, 30 Oct 1992 13:43:31 -0500 From: jbw@bigbird.bu.edu (Joe Wells) Message-ID: <9210301843.AA25555@bigbird.bu.edu> Subject: vm-delete-duplicates ruthlessly discarding addresses Sent-Via: bug-vm@uunet.uu.net Newsgroups: gnu.emacs.vm.bug Path: arc1-ca.pugleaf.net!sparky!uunet!wendy-fate.uu.net!bug-vm Sender: bug-vm-request@uunet.uu.net Lines: 22