(add-minor-mode): Handle AFTER for keymaps. Don't

[gnu-emacs] / lisp / tempo.el

diff --git a/lisp/tempo.el b/lisp/tempo.el
index 5434a5f331735349552bbcc9a9ba9c479cc8c37b..098c6d5535f1b56295f7770ecd9533aff607b52f 100644 (file)
--- a/lisp/tempo.el
+++ b/lisp/tempo.el
@@ -101,7 +101,7 @@
 ;; tempo.el. Thanks.
 
 ;; Nelson Minar <nelson@santafe.edu>
-;; Richard Stallman <rms@gnu.ai.mit.edu>
+;; Richard Stallman <rms@gnu.org>
 ;; Lars Lindberg <Lars.Lindberg@sypro.cap.se>
 ;; Glen Whitney <Glen.Whitney@math.lsa.umich.edu>
 
@@ -218,23 +218,6 @@ it recognizes the argument, and NIL otherwise")
 
 ;;; Functions
 
-;;; First some useful functions and macros
-
-(defun tempo-mapc (fun lst)
-  (if (null lst) nil
-    (funcall fun (car lst))
-    (tempo-mapc fun (cdr lst))))
-
-(defmacro tempo-dolist (il &rest forms)
-  (let ((i (car il))
-       (l (car (cdr il))))
-    (list 'tempo-mapc
-         (list 'function (append (list 'lambda
-                                       (list i))
-                                 forms))
-         l)))
-(put 'tempo-dolist 'lisp-indent-function 1)
-
 ;;
 ;; tempo-define-template
 
@@ -539,7 +522,7 @@ and insert the results."
         (setq string
               (funcall tempo-insert-string-functions string)))
        ((listp tempo-insert-string-functions)
-        (tempo-dolist (fn tempo-insert-string-functions)
+        (dolist (fn tempo-insert-string-functions)
           (setq string (funcall fn string))))
        (t
         (error "Bogus value in tempo-insert-string-functions: %s"