Mercurial > emacs
changeset 12016:3fd7ef954be6
(frame-configuration-p): Moved here from frame.el.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 30 May 1995 18:39:33 +0000 |
| parents | 27a219ed1505 |
| children | 0d73575a1c0e |
| files | lisp/subr.el |
| diffstat | 1 files changed, 9 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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.