From: yamaoka <yamaoka>
Date: Mon, 26 Aug 2002 23:50:10 +0000 (+0000)
Subject: * gnus-util.el (frame-parameter): New function for oldies.
X-Git-Tag: t-gnus-6_15_8-01-quimby~19
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d4428ff8b4c074dd024174ca57f585b47c82de65;p=elisp%2Fgnus.git-

* gnus-util.el (frame-parameter): New function for oldies.
---

diff --git a/ChangeLog b/ChangeLog
index 0a04534..5fcb3ae 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2002-08-26  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* lisp/gnus-util.el (frame-parameter): New function for oldies.
+
 2002-08-21  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* lisp/gnus.el (gnus-frame): Remove.
diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 946f6a8..b299dd4 100644
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -1335,6 +1335,13 @@ CHOICE is a list of the choice char and help message at IDX."
 		   (symbol-value 'focus-follows-mouse))
 	   (set-mouse-position frame (1- (frame-width frame)) 0)))))
 
+(unless (fboundp 'frame-parameter)
+  (defalias 'frame-parameter
+    (lambda (frame parameter)
+      "Return FRAME's value for parameter PARAMETER.
+If FRAME is nil, describe the currently selected frame."
+      (cdr (assq parameter (frame-parameters frame))))))
+
 (defun gnus-frame-or-window-display-name (object)
   "Given a frame or window, return the associated display name.
 Return nil otherwise."