[nongnu] elpa/racket-mode 51535efa52 4/4: Set racket-repl-buffer-name only when nil; fixes #655

[ELPA Syncer]

branch: elpa/racket-mode
commit 51535efa5202c422eebaff01652cea9b83bfb200
Author: Greg Hendershott <git@greghendershott.com>
Commit: Greg Hendershott <git@greghendershott.com>

    Set racket-repl-buffer-name only when nil; fixes #655
---
 racket-repl-buffer-name.el | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/racket-repl-buffer-name.el b/racket-repl-buffer-name.el
index 61dc28bcce..2e234d7357 100644
--- a/racket-repl-buffer-name.el
+++ b/racket-repl-buffer-name.el
@@ -16,9 +16,13 @@
 
 ;;;###autoload
 (defun racket-call-racket-repl-buffer-name-function ()
-  (funcall (or (and (functionp racket-repl-buffer-name-function)
-                    racket-repl-buffer-name-function)
-               #'racket-repl-buffer-name-shared)))
+  "Unless it already has a value, set the buffer-local value of
+the variable `racket-repl-buffer-name' according to the user's
+customization."
+  (unless racket-repl-buffer-name ;#655
+    (funcall (or (and (functionp racket-repl-buffer-name-function)
+                      racket-repl-buffer-name-function)
+                 #'racket-repl-buffer-name-shared))))
 
 ;;;###autoload
 (defun racket-repl-buffer-name-shared ()