(product-version-as-string): New function.

[elisp/apel.git] / alist.el

diff --git a/alist.el b/alist.el
index fbd409a..4ac3169 100644 (file)
--- a/alist.el
+++ b/alist.el
@@ -1,8 +1,8 @@
 ;;; alist.el --- utility functions about association-list
 
-;; Copyright (C) 1993,1994,1995,1996,1998 Free Software Foundation, Inc.
+;; Copyright (C) 1993,1994,1995,1996,1998,2000 Free Software Foundation, Inc.
 
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Author: MORIOKA Tomohiko <tomo@m17n.org>
 ;; Keywords: alist
 
 ;; This file is part of APEL (A Portable Emacs Library).
@@ -97,9 +97,24 @@ its value regard as nil."
   )
 
 
+;;; @ association-vector-list
+;;;
+
+;;;###autoload
+(defun vassoc (key avlist)
+  "Search AVLIST for a vector whose first element is equal to KEY.
+See also `assoc'."
+  (let (v)
+    (while (and (setq v (car avlist))
+               (not (equal key (aref v 0))))
+      (setq avlist (cdr avlist)))
+    v))
+
+
 ;;; @ end
 ;;;
 
-(provide 'alist)
+(require 'product)
+(product-provide (provide 'alist) (require 'apel-ver))
 
 ;;; alist.el ends here