From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 10 Apr 1997 06:49:45 +0000 (+0000)
Subject: (frame-parameter): New function.
X-Git-Tag: emacs-20.1~2588
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b5d48854deae08700a84578e2797157e74130091;p=emacs.git

(frame-parameter): New function.
---

diff --git a/lisp/frame.el b/lisp/frame.el
index dca7f816777..1396aa11785 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -578,6 +578,10 @@ is given and non-nil, the unwanted frames are iconified instead."
 ;;;; Convenience functions for accessing and interactively changing
 ;;;; frame parameters.
 
+(defun frame-parameter (frame parameter)
+  "Return FRAME's value for parameter PARAMETER."
+  (cdr (assq parameter(frame-parameters frame))))
+
 (defun frame-height (&optional frame)
   "Return number of lines available for display on FRAME.
 If FRAME is omitted, describe the currently selected frame."