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

1 files changed, 0 insertions, 8 deletions

diff --git a/lisp/frame.el b/lisp/frame.el
index 4e9fee8ec2a..e1fb765a13b 100644
--- 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)))
-
 
 ;;;; Convenience functions for accessing and interactively changing
 ;;;; frame parameters.