Do you have a recipe to reproduce the backtrace below? On Mon Aug 20 2012 Sam Steingold wrote: > Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil) > /=(909445 nil) > (and (/= (point) bbdb-end-marker) (not (looking-at "\\["))) > (if (and (/= (point) bbdb-end-marker) (not (looking-at "\\["))) (error "Not > inserting before a record (%s)" (point))) > (let ((debug-on-error t)) (if (and (/= (point) bbdb-end-marker) (not > (looking-at "\\["))) (error "Not inserting before a record (%s)" (point)))) > (bbdb-debug (if (and (/= (point) bbdb-end-marker) (not (looking-at "\\["))) > (error "Not inserting before a record (%s)" (point)))) > (let* ((print-escape-newlines t) (tail (memq record bbdb-records)) (_ > (unless tail (error "BBDB record absent: %s" record))) (cache > (bbdb-record-cache record))) (bbdb-debug (if (<= (bbdb-cache-marker cache) > (point-min)) (error "Cache marker is %s" (bbdb-cache-marker cache)))) > (goto-char (bbdb-cache-marker cache)) (bbdb-debug (if (and (/= (point) > bbdb-end-marker) (not (looking-at "\\["))) (error "Not inserting before a > record (%s)" (point)))) (bbdb-record-set-cache record nil) (insert > (prin1-to-string record) "\n") (delete-region (point) (if (cdr tail) > (bbdb-record-marker (car (cdr tail))) bbdb-end-marker)) (bbdb-record-set-cache > record cache) (bbdb-debug (if (<= (if (cdr tail) (bbdb-record-marker (car (cdr > tail))) bbdb-end-marker) (bbdb-record-marker record)) (error "Overwrite > failed"))) (setq bbdb-modified t) record) > (save-current-buffer (set-buffer buffer) (let* ((print-escape-newlines t) > (tail (memq record bbdb-records)) (_ (unless tail (error "BBDB record absent: > %s" record))) (cache (bbdb-record-cache record))) (bbdb-debug (if (<= > (bbdb-cache-marker cache) (point-min)) (error "Cache marker is %s" > (bbdb-cache-marker cache)))) (goto-char (bbdb-cache-marker cache)) (bbdb-debug > (if (and (/= (point) bbdb-end-marker) (not (looking-at "\\["))) (error "Not > inserting before a record (%s)" (point)))) (bbdb-record-set-cache record nil) > (insert (prin1-to-string record) "\n") (delete-region (point) (if (cdr tail) > (bbdb-record-marker (car (cdr tail))) bbdb-end-marker)) (bbdb-record-set-cache > record cache) (bbdb-debug (if (<= (if (cdr tail) (bbdb-record-marker (car > ...)) bbdb-end-marker) (bbdb-record-marker record)) (error "Overwrite > failed"))) (setq bbdb-modified t) record)) > (with-current-buffer buffer (let* ((print-escape-newlines t) (tail (memq > record bbdb-records)) (_ (unless tail (error "BBDB record absent: %s" > record))) (cache (bbdb-record-cache record))) (bbdb-debug (if (<= > (bbdb-cache-marker cache) (point-min)) (error "Cache marker is %s" > (bbdb-cache-marker cache)))) (goto-char (bbdb-cache-marker cache)) (bbdb-debug > (if (and (/= (point) bbdb-end-marker) (not (looking-at "\\["))) (error "Not > inserting before a record (%s)" (point)))) (bbdb-record-set-cache record nil) > (insert (prin1-to-string record) "\n") (delete-region (point) (if (cdr tail) > (bbdb-record-marker (car (cdr tail))) bbdb-end-marker)) (bbdb-record-set-cache > record cache) (bbdb-debug (if (<= (if (cdr tail) (bbdb-record-marker (car > ...)) bbdb-end-marker) (bbdb-record-marker record)) (error "Overwrite > failed"))) (setq bbdb-modified t) record)) > (if window (with-selected-window window . #1=((let* ((print-escape-newlines > t) (tail (memq record bbdb-records)) (_ (unless tail (error "BBDB record > absent: %s" record))) (cache (bbdb-record-cache record))) (bbdb-debug (if (<= > (bbdb-cache-marker cache) (point-min)) (error "Cache marker is %s" > (bbdb-cache-marker cache)))) (goto-char (bbdb-cache-marker cache)) (bbdb-debug > (if (and (/= ... bbdb-end-marker) (not ...)) (error "Not inserting before a > record (%s)" (point)))) (bbdb-record-set-cache record nil) (insert > (prin1-to-string record) "\n") (delete-region (point) (if (cdr tail) > (bbdb-record-marker (car ...)) bbdb-end-marker)) (bbdb-record-set-cache record > cache) (bbdb-debug (if (<= (if ... ... bbdb-end-marker) (bbdb-record-marker > record)) (error "Overwrite failed"))) (setq bbdb-modified t) record))) > (with-current-buffer buffer . #1#)) > (let* ((buffer (bbdb-buffer)) (window (get-buffer-window buffer))) (if > window (with-selected-window window . #1=((let* ((print-escape-newlines t) > (tail (memq record bbdb-records)) (_ (unless tail ...)) (cache > (bbdb-record-cache record))) (bbdb-debug (if (<= ... ...) (error "Cache marker > is %s" ...))) (goto-char (bbdb-cache-marker cache)) (bbdb-debug (if (and ... > ...) (error "Not inserting before a record (%s)" ...))) (bbdb-record-set-cache > record nil) (insert (prin1-to-string record) "\n") (delete-region (point) (if > (cdr tail) (bbdb-record-marker ...) bbdb-end-marker)) (bbdb-record-set-cache > record cache) (bbdb-debug (if (<= ... ...) (error "Overwrite failed"))) (setq > bbdb-modified t) record))) (with-current-buffer buffer . #1#))) > (bbdb-with-db-buffer (let* ((print-escape-newlines t) (tail (memq record > bbdb-records)) (_ (unless tail (error "BBDB record absent: %s" record))) > (cache (bbdb-record-cache record))) (bbdb-debug (if (<= (bbdb-cache-marker > cache) (point-min)) (error "Cache marker is %s" (bbdb-cache-marker cache)))) > (goto-char (bbdb-cache-marker cache)) (bbdb-debug (if (and (/= (point) > bbdb-end-marker) (not (looking-at "\\["))) (error "Not inserting before a > record (%s)" (point)))) (bbdb-record-set-cache record nil) (insert > (prin1-to-string record) "\n") (delete-region (point) (if (cdr tail) > (bbdb-record-marker (car (cdr tail))) bbdb-end-marker)) (bbdb-record-set-cache > record cache) (bbdb-debug (if (<= (if (cdr tail) (bbdb-record-marker (car > ...)) bbdb-end-marker) (bbdb-record-marker record)) (error "Overwrite > failed"))) (setq bbdb-modified t) record)) > bbdb-overwrite-record-internal(...)
------------------------------------------------------------------------------ Live Security Virtual Conference Exclusive live event will cover all the ways today's security and threat landscape has changed and how IT managers can respond. Discussions will include endpoint security, mobile security and the latest in malware threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/ _______________________________________________ bbdb-info@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/bbdb-info BBDB Home Page: http://bbdb.sourceforge.net/
