emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] scratch/add-vdiff 03e1b64 186/258: Remove unnecessary unique name


From: Justin Burkett
Subject: [elpa] scratch/add-vdiff 03e1b64 186/258: Remove unnecessary unique name function
Date: Wed, 17 May 2017 08:13:48 -0400 (EDT)

branch: scratch/add-vdiff
commit 03e1b6473dcb4eddc250fee853a9185c57cb27b2
Author: justbur <address@hidden>
Commit: justbur <address@hidden>

    Remove unnecessary unique name function
---
 vdiff.el | 13 ++-----------
 1 file changed, 2 insertions(+), 11 deletions(-)

diff --git a/vdiff.el b/vdiff.el
index 40e3133..f0f4f48 100644
--- a/vdiff.el
+++ b/vdiff.el
@@ -1525,20 +1525,11 @@ with non-nil USE-FOLDS."
 
 ;; * Session
 
-;; modified from ediff
-(defun vdiff--unique-buffer-name (name)
-  (if (null (get-buffer name))
-      name
-    (let ((n 2))
-      (while (get-buffer (format "%s<%d>" name n))
-        (setq n (1+ n)))
-      (format "%s<%d>" name n))))
-
 (defun vdiff--init-session (buffer-a buffer-b &optional buffer-c on-quit)
   (make-vdiff-session
    :buffers (vdiff--non-nil-list buffer-a buffer-b buffer-c)
-   :process-buffer (vdiff--unique-buffer-name " *vdiff* ")
-   :word-diff-output-buffer (vdiff--unique-buffer-name " *vdiff-word* ")
+   :process-buffer (generate-new-buffer-name " *vdiff* ")
+   :word-diff-output-buffer (generate-new-buffer-name " *vdiff-word* ")
    :case-args ""
    :whitespace-args ""
    :on-quit on-quit))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]