diff options
author | Bozhidar Batsov <bozhidar@batsov.com> | 2018-06-18 08:14:43 +0300 |
---|---|---|
committer | Bozhidar Batsov <bozhidar@batsov.com> | 2018-06-18 08:14:43 +0300 |
commit | 6981c3125fdd4173fecbc652d44ae9d0562cfbe6 (patch) | |
tree | 4db423808e4c04f611a7c6ac47e24e728a64bd3d | |
parent | 674f34e00e477c97e78823049dc1aa4fe2390d97 (diff) |
Remove some dead code
-rw-r--r-- | cider.el | 12 |
1 files changed, 0 insertions, 12 deletions
@@ -814,18 +814,6 @@ Return REPL-TYPE if requirements are met." (when (y-or-n-p (format "Visit ā%sā in a browser? " url)) (browse-url url))))))) -(defun cider--select-zombie-buffer (repl-buffers) - "Return a zombie buffer from REPL-BUFFERS, or nil if none exists." - (when-let* ((zombie-buffs (seq-remove #'get-buffer-process repl-buffers))) - (when (y-or-n-p - (format "Zombie REPL buffers exist (%s). Reuse? " - (mapconcat #'buffer-name zombie-buffs ", "))) - (if (= (length zombie-buffs) 1) - (car zombie-buffs) - (completing-read "Choose REPL buffer: " - (mapcar #'buffer-name zombie-buffs) - nil t))))) - ;;; Barefoot Connectors |