I'd like to get some feedback on whether this is idiomatic elisp, whether it's any good, and any small modifications that would be useful. Thanks
(defun jump-to-register-other-window (register-name)
"Open a register in the other window if file"
;; Should also display register contents if register is text
;; jump-to-register allows it to fail silently if non-legit
;; register is passed in
(interactive "cJump to register: \n")
(let ((cur-buff (buffer-name)))
(jump-to-register register-name)
(let ((register-buffer (buffer-name)))
(switch-to-buffer cur-buff)
(switch-to-buffer-other-window register-buffer))))
(global-set-key (kbd "C-x 4 j") 'jump-to-register-other-window)