(jump-to-register): Don't fail if frame-configuration-p is unbound.

bf77ce53 · Richard M. Stallman · 9daefb36 · bf77ce53
Commit bf77ce53 authored May 24, 1993 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

lisp/register.el lisp/register.el +2 -1

No files found.
--- 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))