From 4809d0dd988ea98407e03e407fd4fd249e7f5bd8 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 30 May 1995 18:39:33 +0000 Subject: [PATCH] (frame-configuration-p): Moved here from frame.el. --- lisp/subr.el | 9 +++++++++ 1 file changed, 9 insertions(+) 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. -- 2.39.2