[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master f0a0665 2/4: update
From: |
Stefan Monnier |
Subject: |
[elpa] master f0a0665 2/4: update |
Date: |
Wed, 18 Feb 2015 14:22:34 +0000 |
branch: master
commit f0a06654092bcd4ccbcceb9566673e6dd8b01e9e
Author: Deepak Goel <address@hidden>
Commit: Emacsmirror <address@hidden>
update
---
timerfunctions.el | 18 +++++++++++++++++-
1 files changed, 17 insertions(+), 1 deletions(-)
diff --git a/timerfunctions.el b/timerfunctions.el
index 5b357ee..42e7bfd 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