Ronan Waide <[EMAIL PROTECTED]> writes:
>
> Hi Stefan,
>
> any chance you could give me a full stack trace from an uncompiled
> BBDB? The message above isn't particularly useful on its own,
> especially since I can't seem to reproduce the bug.
>
> Cheers,
> Waider.
O.k. I tried it again with the following record:
Dummy Foo
net: [EMAIL PROTECTED], [EMAIL PROTECTED]
-- in the .bbdb
["Dummy" "Foo" nil nil nil nil ("[EMAIL PROTECTED]" "[EMAIL PROTECTED]") ((creation-date .
"2002-04-04") (timestamp . "2002-04-04")) nil]
Debugger entered--Lisp error: (wrong-type-argument arrayp (["Dummy" "Foo" nil nil nil
nil ("[EMAIL PROTECTED]" "[EMAIL PROTECTED]") ((creation-date . "2002-04-04") (timestamp .
"2002-04-04")) ["Dummy Foo" nil #<marker at 1499 in .bbdb> nil]]))
aref((["Dummy" "Foo" nil nil nil nil ("[EMAIL PROTECTED]" "[EMAIL PROTECTED]") (... ...) ["Dummy
Foo" nil #<marker at 1499 in .bbdb> nil]]) 8)
(bbdb-record-cache record)
(aref (bbdb-record-cache record) 0)
(bbdb-cache-namecache (bbdb-record-cache record))
(or (bbdb-cache-namecache (bbdb-record-cache record)) (bbdb-record-name-1 record))
bbdb-record-name((["Dummy" "Foo" nil nil nil nil ("[EMAIL PROTECTED]" "[EMAIL PROTECTED]") (...
...) ["Dummy Foo" nil #<marker at 1499 in .bbdb> nil]]))
(error "net address \"%s\" is used by \"%s\"" (car rest) (bbdb-record-name old))
(if (and old (not ...)) (error "net address \"%s\" is used by \"%s\"" (car rest)
(bbdb-record-name old)))
(let ((old ...)) (if (and old ...) (error "net address \"%s\" is used by \"%s\"" ...
...)))
(while rest (let (...) (if ... ...)) (setq rest (cdr rest)))
(let ((rest newnets)) (while rest (let ... ...) (setq rest ...)))
(if bbdb-no-duplicates-p (let (...) (while rest ... ...)))
(let ((oldnets ...) (newnets ...)) (if bbdb-no-duplicates-p (let ... ...)) (let
(...) (while rest ... ...)) (let (...) (while nets ... ...)) (bbdb-record-set-net
bbdb-record newnets))
(let ((str ...)) (let (... ...) (if bbdb-no-duplicates-p ...) (let ... ...) (let ...
...) (bbdb-record-set-net bbdb-record newnets)))
bbdb-record-edit-net(["Dummy" "Foo" nil nil nil nil ("[EMAIL PROTECTED]" "[EMAIL PROTECTED]")
((creation-date . "2002-04-04") (timestamp . "2002-04-04")) ["Dummy Foo" nil #<marker
at 1499 in .bbdb> nil]])
(cond ((eq field ...) (bbdb-record-edit-name record)) ((eq field ...)
(bbdb-record-edit-company record)) ((eq field ...) (bbdb-record-edit-net record)) ((eq
field ...) (bbdb-record-edit-aka record)) ((eq field ...) (bbdb-record-edit-phone
which location)) ((eq field ...) (bbdb-record-edit-address which location)) ((eq field
...) (bbdb-record-edit-property record ...)) (t (error "doubleplus ungood: unknown
field type %s" field)))
bbdb-record-edit-field-internal(["Dummy" "Foo" nil nil nil nil ("[EMAIL PROTECTED]"
"[EMAIL PROTECTED]") ((creation-date . "2002-04-04") (timestamp . "2002-04-04")) ["Dummy
Foo" nil #<marker at 1499 in .bbdb> nil]] net)
apply(bbdb-record-edit-field-internal ["Dummy" "Foo" nil nil nil nil ("[EMAIL PROTECTED]"
"[EMAIL PROTECTED]") ((creation-date . "2002-04-04") (timestamp . "2002-04-04")) ["Dummy
Foo" nil #<marker at 1499 in .bbdb> nil]] net)
(setq need-to-sort (apply (quote bbdb-record-edit-field-internal) record field))
(let* ((record ...) (field ...) need-to-sort) (or field (error "on an unfield"))
(setq need-to-sort (apply ... record field)) (bbdb-change-record record need-to-sort)
(bbdb-redisplay-one-record record))
bbdb-edit-current-field()
* call-interactively(bbdb-edit-current-field)
_______________________________________________
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/
