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

diff --git a/ChangeLog b/ChangeLog
index 0a04534..5fcb3ae 100644 (file)
--- 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 (file)
--- 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."