(frame-configuration-p): Moved to subr.el.

diff --git a/lisp/frame.el b/lisp/frame.el
index 4e9fee8ec2a9fe6daf307220f91ef3a810000a81..e1fb765a13b4cac63478dc1d09f59bf8d6bed625 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -557,14 +557,6 @@ is given and non-nil, the unwanted frames are iconified instead."
        ;; for where to put it.
        (mapcar 'iconify-frame frames-to-delete)
       (mapcar 'delete-frame frames-to-delete))))
-
-(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)))
-
 \f
 ;;;; Convenience functions for accessing and interactively changing
 ;;;; frame parameters.