Commit eb1358af authored by David Byers's avatar David Byers

Fixed bug in lyskom-indirect-assq

parent 7e85cbe9
2007-06-26 <David Byers@GULAG>
* utilities.el (lyskom-indirect-assq): If assoc-list is t, then
return t. This is a (very) special case.
2007-06-24 <David Byers@GULAG>
More customization:
......
......@@ -219,10 +219,12 @@ other atom Return the cdr of the element if KEY is eq
If an element in ASSOC-LIST is not a cons, but is eq KEY, return
the default return value (which defaults to t, but can be changed
when recursing due to bound symbols being used as keys."
(catch 'lyskom-indirect-assq-return
(let ((memo-list (cons nil nil)))
(lyskom-indirect-assq-2 key assoc-list memo-list t)
(car memo-list))))
(if (listp assoc-list)
(catch 'lyskom-indirect-assq-return
(let ((memo-list (cons nil nil)))
(lyskom-indirect-assq-2 key assoc-list memo-list t)
(car memo-list)))
(eq assoc-list t)))
(defun lyskom-indirect-assq-2 (key assoc-list &optional memo-list default-return)
"Internal function to implement lyskom-indirect-assoc."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment