From: Deepak Goel <deego@gnufans.org>
Date: Thu, 6 Oct 2011 17:32:32 +0000 (+0200)
Subject: update
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/f0a06654092bcd4ccbcceb9566673e6dd8b01e9e?hp=9b7cfcdf581eea3344d84fd5ca86a6ae5b082547

update
---

diff --git a/timerfunctions.el b/timerfunctions.el
index 5b357ee65..42e7bfdc5 100644
--- a/timerfunctions.el
+++ b/timerfunctions.el
@@ -1,5 +1,5 @@
 ;;; timerfunctions.el---enhanced versions of some timer.el functions.
-;; Time-stamp: <2003-05-09 08:23:24 deego>
+;; Time-stamp: <2011-10-04 21:58:10 deego>
 ;; Copyright (C) Deepak Goel 2000, 2001, 2002
 ;; Emacs Lisp Archive entry
 ;; Filename: timerfunctions.el
@@ -170,6 +170,7 @@ numbers.. In particular, they can simply be numbers..
 ;;;TESTS FOLLOW
 (defun tf-test-display-time-internal
   ()
+  (interactive)
   (let ((thisbuffer (buffer-name)))
     (switch-to-buffer-other-window "*scratch*")
     (goto-char (point-max))
@@ -259,6 +260,21 @@ unless you are an expert, that is.."
     a))
 
 
+
+(defvar tf-internal-var-recenter 1)
+(defun tf-internal-recenter-toggle-my ()
+  (interactive)
+  (recenter tmpp)
+  (setq tf-internal-var-recenter (- 0 tf-internal-var-recenter)))
+
+(defun tf-example-timer-recenter ()
+  "Changes the screen display every 3 seconds, thus ensuring that you
+  don't time out of ssh sessions."
+  tf-run-with-idle-timer 3 t 3 t nil 'tf-internal-recenter-toggle-my)
+
+
+
+
 (defun tf-wait-until-idle (&optional secs)
   "DOES NOT WORK YET. Waits until idle. 
 Will help run processes in background.  This function will NOT create