# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 801859173 0
# Node ID 3fd7ef954be670de658cc573cc8a1d273ef62e28
# Parent  27a219ed150592969749c216586f5b346193dc13
(frame-configuration-p): Moved here from frame.el.

diff -r 27a219ed1505 -r 3fd7ef954be6 lisp/subr.el
--- a/lisp/subr.el	Tue May 30 18:39:22 1995 +0000
+++ b/lisp/subr.el	Tue May 30 18:39:33 1995 +0000
@@ -931,6 +931,15 @@
       (local-set-key key nil))
   nil)
 
+;; We put this here instead of in frame.el so that it's defined even on
+;; systems where frame.el isn't loaded.
+(defun frame-configuration-p (object)
+  "Return non-nil if OBJECT seems to be a frame configuration.
+Any list whose car is `frame-configuration' is assumed to be a frame
+configuration."
+  (and (consp object)
+       (eq (car object) 'frame-configuration)))
+
 ;; now in fns.c
 ;(defun nth (n list)
 ;  "Returns the Nth element of LIST.