Hello,

I think bbdb should remain at current-record when
bbdb-display-all-records.

The following is my naive attempt. `naive' in that I don't like invoking
(sit-for 0), which causes flickering but without it `search-forward' can
fail. Ideas?

Leo

diff --git a/lisp/bbdb-com.el b/lisp/bbdb-com.el
index 7ce8898d..0e0b21b2 100644
--- a/lisp/bbdb-com.el
+++ b/lisp/bbdb-com.el
@@ -1399,7 +1399,11 @@ (defun bbdb-delete-records (records &optional noprompt)
 (defun bbdb-display-all-records (&optional layout)
   "Show all records."
   (interactive (list (bbdb-layout-prefix)))
-  (bbdb-display-records (bbdb-records) layout))
+  (let ((current (ignore-errors (bbdb-record-name (bbdb-current-record)))))
+    (bbdb-display-records (bbdb-records) layout)
+    (sit-for 0)
+    (when (and current (search-forward current nil t))
+      (forward-line 0))))
 
 (defun bbdb-change-records-layout (records layout)
   (dolist (record records)




------------------------------------------------------------------------------
WhatsUp Gold - Download Free Network Management Software
The most intuitive, comprehensive, and cost-effective network 
management toolset available today.  Delivers lowest initial 
acquisition cost and overall TCO of any competing solution.
http://p.sf.net/sfu/whatsupgold-sd
_______________________________________________
bbdb-info@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/

Reply via email to