From a048073e243c62bae2727e70913ec54133ae8746 Mon Sep 17 00:00:00 2001 From: Martin Rudalics Date: Sat, 13 Nov 2010 13:49:22 -0500 Subject: [PATCH] * src/window.c (Fwindow_use_time): New function. --- src/ChangeLog | 4 ++++ src/window.c | 10 ++++++++++ 2 files changed, 14 insertions(+) diff --git a/src/ChangeLog b/src/ChangeLog index 2bac819c0d5..b821d17e29c 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2010-11-13 Martin Rudalics + + * window.c (Fwindow_use_time): New function. + 2010-11-13 Eli Zaretskii * xdisp.c (set_cursor_from_row): Fix cursor positioning on diff --git a/src/window.c b/src/window.c index 7591401ee42..086cd858c2e 100644 --- a/src/window.c +++ b/src/window.c @@ -2420,6 +2420,16 @@ check_all_windows (void) window_loop (CHECK_ALL_WINDOWS, Qnil, 1, Qt); } +DEFUN ("window-use-time", Fwindow_use_time, Swindow_use_time, 0, 1, 0, + doc: /* Return WINDOW's use time. +WINDOW defaults to the selected window. The window with the highest use +time is the most recently selected one. The window with the lowest use +time is the least recently selected one. */) + (Lisp_Object window) +{ + return decode_window (window)->use_time; +} + DEFUN ("get-lru-window", Fget_lru_window, Sget_lru_window, 0, 2, 0, doc: /* Return the window least recently selected or used for display. \(LRU means Least Recently Used.) -- 2.39.5