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(...)
-- Sam Steingold (http://sds.podval.org/) on Ubuntu 12.04 (precise) X 11.0.11103000 http://www.childpsy.net/ http://think-israel.org http://jihadwatch.org http://www.memritv.org http://www.PetitionOnline.com/tap12009/ 186,000 Miles per Second. It's not just a good idea. IT'S THE LAW. ------------------------------------------------------------------------------ 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/
