update

diff --git a/timerfunctions.el b/timerfunctions.el
index 5b357ee656f2c9a27635a3d6e870590bbf34c146..42e7bfdc5e05af571d5f48e4da99db6d049fdc84 100644 (file)
--- 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