Set racket-repl-buffer-name only when nil; fixes #655

greghendershott · Nov 9, 2023 · 51535ef · 51535ef
1 parent 38e0a3e
commit 51535ef
Showing 1 changed file with 7 additions and 3 deletions.
diff --git 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 ()