[elpa] externals/ebdb 86a3aa9 180/350: Change signature of ebdb-undisplay-records

[Eric Abrahamsen]

branch: externals/ebdb
commit 86a3aa951f607a9645064b1cd146762487023b9f
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    Change signature of ebdb-undisplay-records
    
    * ebdb-com.el (ebdb-undisplay-records): When would you ever want to
      undisplay all EBDB buffers?  Instead, either pass an explicit BUFFER
      argument, or use `ebdb-make-buffer-name' to find the buffer to
      undisplay.  Should be much more useful.
---
 ebdb-com.el | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/ebdb-com.el b/ebdb-com.el
index 1565dd4..b215967 100644
--- a/ebdb-com.el
+++ b/ebdb-com.el
@@ -715,18 +715,18 @@ name based on the current major mode."
       (goto-char (point-min))
       (set-window-start (get-buffer-window (current-buffer)) (point)))))
 
-(defun ebdb-undisplay-records (&optional all-buffers)
-  "Undisplay records in *EBDB* buffer, leaving this buffer empty.
-If ALL-BUFFERS is non-nil undisplay records in all EBDB buffers."
-  (dolist (buffer (cond (all-buffers (buffer-list))
-                        ((let ((buffer (get-buffer ebdb-buffer-name)))
-                           (and (buffer-live-p buffer) (list buffer))))))
-    (with-current-buffer buffer
+(defun ebdb-undisplay-records (&optional buffer)
+  "Undisplay records in *EBDB* BUFFER, leaving the buffer empty.
+
+If BUFFER is nil, use the *EBDB* buffer associated with the
+current buffer."
+  (let ((buf (or buffer (ebdb-make-buffer-name))))
+    (with-current-buffer (get-buffer buf)
       (when (eq major-mode 'ebdb-mode)
-        (let (buffer-read-only)
-          (erase-buffer))
-        (setq ebdb-records nil)
-        (set-buffer-modified-p nil)))))
+       (let (buffer-read-only)
+         (erase-buffer))
+       (setq ebdb-records nil)
+       (set-buffer-modified-p nil)))))
 
 (defun ebdb-redisplay-all-records (_ignore-auto _noconfirm)
   "Used as the value of `revert-buffer-function' in *EBDB* buffers."