Hi Roland,
I am running emacs bzr. I get the following error from time to time:
Debugger entered--Lisp error: (error "#<window 94> is not a live window")
signal(error ("#<window 94> is not a live window"))
error("%s is not a live window" #<window 94>)
window-normalize-window(#<window 94> t)
quit-window(nil #<window 94>)
(progn (set-window-configuration bbdb-complete-mail-saved-window-config)
(quit-window nil window))
(if (window-live-p window) (progn (set-window-configuration
bbdb-complete-mail-saved-window-config) (quit-window nil window)))
(when (window-live-p window) (set-window-configuration
bbdb-complete-mail-saved-window-config) (quit-window nil window))
(let ((window (get-buffer-window "*Completions*"))) (when (window-live-p
window) (set-window-configuration bbdb-complete-mail-saved-window-config)
(quit-window nil window)))
(progn (let ((window (get-buffer-window "*Completions*"))) (when
(window-live-p window) (set-window-configuration
bbdb-complete-mail-saved-window-config) (quit-window nil window))) (setq
bbdb-complete-mail-saved-window-config nil))
(if bbdb-complete-mail-saved-window-config (progn (let ((window
(get-buffer-window "*Completions*"))) (when (window-live-p window)
(set-window-configuration bbdb-complete-mail-saved-window-config) (quit-window
nil window))) (setq bbdb-complete-mail-saved-window-config nil)))
(when bbdb-complete-mail-saved-window-config (let ((window (get-buffer-window
"*Completions*"))) (when (window-live-p window) (set-window-configuration
bbdb-complete-mail-saved-window-config) (quit-window nil window))) (setq
bbdb-complete-mail-saved-window-config nil))
(let* ((end (point)) (beg (or start-pos (save-excursion (re-search-backward
"\\(\\`\\|[\n:,]\\)[ ]*") (goto-char (match-end 0)) (point)))) (orig
(buffer-substring beg end)) (typed (downcase orig)) (pattern (bbdb-string-trim
typed)) (completion-ignore-case t) (completion (try-completion pattern
bbdb-hashtable (quote bbdb-completion-predicate))) all-completions
dwim-completions one-record done) (if (and (stringp completion) (string-match
"[:,]" completion)) (setq completion (substring completion 0 (match-beginning
0)))) (all-completions pattern bbdb-hashtable (lambda (sym) (if
(bbdb-completion-predicate sym) (push sym all-completions)))) (let ((records
(delete-dups (apply (quote append) (mapcar (quote symbol-value)
all-completions))))) (setq one-record (and (not (cdr records)) (car records))))
(when bbdb-complete-mail-saved-window-config (let ((window (get-buffer-window
"*Completions*"))) (when (window-live-p window) (set-window-configuration
bbdb-complete-mail-saved-window-config) (quit-window nil window))) (setq
bbdb-complete-mail-saved-window-config nil)) (cond (one-record (let (mail lst
elt matched) (unless (bbdb-record-mail one-record) (error "Matching record has
no mail field")) (setq matched (try-completion pattern (append (list ... ...)
(bbdb-record-aka one-record) (bbdb-record-organization one-record)))) (unless
matched (setq lst (bbdb-record-mail one-record)) (while (setq elt (pop lst))
(if (try-completion pattern ...) (setq mail elt lst nil matched t)))) (unless
matched (error "No match for %s" pattern)) (let ((address (bbdb-dwim-mail
one-record mail))) (if (string= address (buffer-substring-no-properties beg
end)) (unless (and bbdb-complete-mail-allow-cycling ...) (setq done ...))
(delete-region beg end) (insert address) (setq done (quote unique)))))) ((and
(stringp completion) (not (string= typed completion))) (delete-region beg end)
(insert completion) (setq done (quote partial))) (completion (let
((completion-list (if (eq t bbdb-completion-list) (quote ...)
bbdb-completion-list)) sname records) (dolist (sym all-completions) (setq sname
(symbol-name sym)) (dolist (record (symbol-value sym)) (unless (memq record
records) (push record records) (let ... ...)))) (cond ((not dwim-completions)
(error "No mail address for \"%s\"" orig)) ((eq 1 (length dwim-completions))
(delete-region beg end) (insert (car dwim-completions)) (setq done (quote
unique))) (t (setq done (quote choose))))))) (when (and (not done)
bbdb-complete-mail-allow-cycling) (let* ((address
(mail-extract-address-components orig)) (record (and (listp address) (car (or
... ...)))) (mails (and record (bbdb-record-mail record)))) (if mails (cond ((=
1 (length mails)) (setq done (quote unchanged))) (cycle-completion-buffer (setq
dwim-completions (mapcar ... mails) done (quote choose))) (t (let (...)
(delete-region beg end) (insert ...) (setq done ...))))))) (cond ((eq done
(quote unique)) (if (and (not (auto-fill-function)) (>= (current-column)
fill-column)) (save-excursion (when (search-backward ","
(line-beginning-position) t) (forward-char 1) (insert "\n ")))) (if
bbdb-completion-display-record (let ((bbdb-silent-internal t))
(bbdb-pop-up-window) (bbdb-display-records-internal (list one-record) nil t)))
(run-hooks (quote bbdb-complete-mail-hook))) ((eq done (quote choose)) (unless
(eq (selected-window) (minibuffer-window)) (message "Making completion
list...")) (unless (get-buffer-window "*Completions*") (setq
bbdb-complete-mail-saved-window-config (current-window-configuration))) (let
((completion-base-position (list beg end))) (with-output-to-temp-buffer
"*Completions*" (display-completion-list dwim-completions))) (unless (eq
(selected-window) (minibuffer-window)) (message "Making completion
list...done")))) done)
bbdb-complete-name()
message-expand-name()
#[(G53600) "J \210\301\207" [G53600 completion-attempted] 1](--fun--)
apply(#[(G53600) "J \210\301\207" [G53600 completion-attempted] 1] --fun--
nil)
(lambda (&rest --cl-rest--) (apply (quote #[(G53600) "J \210\301\207"
[G53600 completion-attempted] 1]) (quote --fun--) --cl-rest--))()
completion-at-point()
message-tab()
call-interactively(message-tab nil nil)
Debugger entered--Lisp error: (error "#<window 94> is not a live window")
signal(error ("#<window 94> is not a live window"))
error("%s is not a live window" #<window 94>)
window-normalize-window(#<window 94> t)
quit-window(nil #<window 94>)
(progn (set-window-configuration bbdb-complete-mail-saved-window-config)
(quit-window nil window))
(if (window-live-p window) (progn (set-window-configuration
bbdb-complete-mail-saved-window-config) (quit-window nil window)))
(when (window-live-p window) (set-window-configuration
bbdb-complete-mail-saved-window-config) (quit-window nil window))
(let ((window (get-buffer-window "*Completions*"))) (when (window-live-p
window) (set-window-configuration bbdb-complete-mail-saved-window-config)
(quit-window nil window)))
(progn (let ((window (get-buffer-window "*Completions*"))) (when
(window-live-p window) (set-window-configuration
bbdb-complete-mail-saved-window-config) (quit-window nil window))) (setq
bbdb-complete-mail-saved-window-config nil))
(if bbdb-complete-mail-saved-window-config (progn (let ((window
(get-buffer-window "*Completions*"))) (when (window-live-p window)
(set-window-configuration bbdb-complete-mail-saved-window-config) (quit-window
nil window))) (setq bbdb-complete-mail-saved-window-config nil)))
(when bbdb-complete-mail-saved-window-config (let ((window (get-buffer-window
"*Completions*"))) (when (window-live-p window) (set-window-configuration
bbdb-complete-mail-saved-window-config) (quit-window nil window))) (setq
bbdb-complete-mail-saved-window-config nil))
(let* ((end (point)) (beg (or start-pos (save-excursion (re-search-backward
"\\(\\`\\|[\n:,]\\)[ ]*") (goto-char (match-end 0)) (point)))) (orig
(buffer-substring beg end)) (typed (downcase orig)) (pattern (bbdb-string-trim
typed)) (completion-ignore-case t) (completion (try-completion pattern
bbdb-hashtable (quote bbdb-completion-predicate))) all-completions
dwim-completions one-record done) (if (and (stringp completion) (string-match
"[:,]" completion)) (setq completion (substring completion 0 (match-beginning
0)))) (all-completions pattern bbdb-hashtable (lambda (sym) (if
(bbdb-completion-predicate sym) (push sym all-completions)))) (let ((records
(delete-dups (apply (quote append) (mapcar (quote symbol-value)
all-completions))))) (setq one-record (and (not (cdr records)) (car records))))
(when bbdb-complete-mail-saved-window-config (let ((window (get-buffer-window
"*Completions*"))) (when (window-live-p window) (set-window-configuration
bbdb-complete-mail-saved-window-config) (quit-window nil window))) (setq
bbdb-complete-mail-saved-window-config nil)) (cond (one-record (let (mail lst
elt matched) (unless (bbdb-record-mail one-record) (error "Matching record has
no mail field")) (setq matched (try-completion pattern (append (list ... ...)
(bbdb-record-aka one-record) (bbdb-record-organization one-record)))) (unless
matched (setq lst (bbdb-record-mail one-record)) (while (setq elt (pop lst))
(if (try-completion pattern ...) (setq mail elt lst nil matched t)))) (unless
matched (error "No match for %s" pattern)) (let ((address (bbdb-dwim-mail
one-record mail))) (if (string= address (buffer-substring-no-properties beg
end)) (unless (and bbdb-complete-mail-allow-cycling ...) (setq done ...))
(delete-region beg end) (insert address) (setq done (quote unique)))))) ((and
(stringp completion) (not (string= typed completion))) (delete-region beg end)
(insert completion) (setq done (quote partial))) (completion (let
((completion-list (if (eq t bbdb-completion-list) (quote ...)
bbdb-completion-list)) sname records) (dolist (sym all-completions) (setq sname
(symbol-name sym)) (dolist (record (symbol-value sym)) (unless (memq record
records) (push record records) (let ... ...)))) (cond ((not dwim-completions)
(error "No mail address for \"%s\"" orig)) ((eq 1 (length dwim-completions))
(delete-region beg end) (insert (car dwim-completions)) (setq done (quote
unique))) (t (setq done (quote choose))))))) (when (and (not done)
bbdb-complete-mail-allow-cycling) (let* ((address
(mail-extract-address-components orig)) (record (and (listp address) (car (or
... ...)))) (mails (and record (bbdb-record-mail record)))) (if mails (cond ((=
1 (length mails)) (setq done (quote unchanged))) (cycle-completion-buffer (setq
dwim-completions (mapcar ... mails) done (quote choose))) (t (let (...)
(delete-region beg end) (insert ...) (setq done ...))))))) (cond ((eq done
(quote unique)) (if (and (not (auto-fill-function)) (>= (current-column)
fill-column)) (save-excursion (when (search-backward ","
(line-beginning-position) t) (forward-char 1) (insert "\n ")))) (if
bbdb-completion-display-record (let ((bbdb-silent-internal t))
(bbdb-pop-up-window) (bbdb-display-records-internal (list one-record) nil t)))
(run-hooks (quote bbdb-complete-mail-hook))) ((eq done (quote choose)) (unless
(eq (selected-window) (minibuffer-window)) (message "Making completion
list...")) (unless (get-buffer-window "*Completions*") (setq
bbdb-complete-mail-saved-window-config (current-window-configuration))) (let
((completion-base-position (list beg end))) (with-output-to-temp-buffer
"*Completions*" (display-completion-list dwim-completions))) (unless (eq
(selected-window) (minibuffer-window)) (message "Making completion
list...done")))) done)
bbdb-complete-name()
message-expand-name()
#[(G53600) "J \210\301\207" [G53600 completion-attempted] 1](--fun--)
apply(#[(G53600) "J \210\301\207" [G53600 completion-attempted] 1] --fun--
nil)
(lambda (&rest --cl-rest--) (apply (quote #[(G53600) "J \210\301\207"
[G53600 completion-attempted] 1]) (quote --fun--) --cl-rest--))()
completion-at-point()
message-tab()
call-interactively(message-tab nil nil)
--
Ivan Kanis
http://ivan.kanis.fr
The doctors told me I would never walk again, but my mother told me I
would, so I believed my mother.
-- Wilma Rudolph
------------------------------------------------------------------------------
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/
