From d4428ff8b4c074dd024174ca57f585b47c82de65 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 26 Aug 2002 23:50:10 +0000 Subject: [PATCH] * gnus-util.el (frame-parameter): New function for oldies. --- ChangeLog | 4 ++++ lisp/gnus-util.el | 7 +++++++ 2 files changed, 11 insertions(+) diff --git a/ChangeLog b/ChangeLog index 0a04534..5fcb3ae 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2002-08-26 Katsumi Yamaoka + + * lisp/gnus-util.el (frame-parameter): New function for oldies. + 2002-08-21 Katsumi Yamaoka * 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." -- 1.7.10.4