# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738281549 0
# Node ID 7520bbbe91002eb83192a5fc8e512856adceba66
# Parent  4bdac10d920a94cb48573b3a0d50184f3e166c35
(jump-to-register): Don't fail if frame-configuration-p is unbound.

diff -r 4bdac10d920a -r 7520bbbe9100 lisp/register.el
--- a/lisp/register.el	Mon May 24 21:45:20 1993 +0000
+++ b/lisp/register.el	Mon May 24 22:12:29 1993 +0000
@@ -84,7 +84,8 @@
   (interactive "cJump to register: ")
   (let ((val (get-register char)))
     (cond
-     ((frame-configuration-p val)
+     ((and (fboundp 'frame-configuration-p)
+	   (frame-configuration-p val))
       (set-frame-configuration val))
      ((window-configuration-p val)
       (set-window-configuration val))