From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 30 May 1995 18:39:33 +0000 (+0000)
Subject: (frame-configuration-p): Moved here from frame.el.
X-Git-Tag: emacs-19.34~3842
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4809d0dd988ea98407e03e407fd4fd249e7f5bd8;p=emacs.git

(frame-configuration-p): Moved here from frame.el.
---

diff --git a/lisp/subr.el b/lisp/subr.el
index f3ab57a4955..93165de8c00 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -931,6 +931,15 @@ KEY is a string representing a sequence of keystrokes."
       (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.