projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(U-i002+4E8B): Add HNG-GOK0478-0.
[chise/xemacs-chise.git-]
/
lisp
/
alist.el
diff --git
a/lisp/alist.el
b/lisp/alist.el
index
fbd409a
..
05d1267
100644
(file)
--- a/
lisp/alist.el
+++ b/
lisp/alist.el
@@
-22,7
+22,18
@@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
-;;; Code:
+
\f
+;;;###autoload
+(defun vassoc (key valist)
+ "Search VALIST for a vector whose first element is equal to KEY.
+See also `assoc'."
+ ;; by Stig@hackvan.com
+ (let (el)
+ (catch 'done
+ (while (setq el (pop valist))
+ (and (equal key (aref el 0))
+ (throw 'done el))))))
+
\f
;;;###autoload
(defun put-alist (item value alist)
;;;###autoload
(defun put-alist (item value alist)