From bf77ce530a39c3ec748fa1f85f0544cecd750b0e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 24 May 1993 22:12:29 +0000 Subject: [PATCH] (jump-to-register): Don't fail if frame-configuration-p is unbound. --- lisp/register.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/register.el b/lisp/register.el index 114f25fa8fd..bae40ee165c 100644 --- a/lisp/register.el +++ b/lisp/register.el @@ -84,7 +84,8 @@ Argument is a character, naming the register." (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))