Mercurial > hg > xemacs-beta

diff lisp/itimer.el @ 286:57709be46d1b r21-0b41

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b41
author cvs
date Mon, 13 Aug 2007 10:35:03 +0200
parents c5d627a313b1
children 8e84bee8ddd0
line wrap: on
line diff
--- a/lisp/itimer.el	Mon Aug 13 10:34:15 2007 +0200
+++ b/lisp/itimer.el	Mon Aug 13 10:35:03 2007 +0200
@@ -357,7 +357,7 @@
   (let ((oname name)
 	(num 2))
     (while (get-itimer name)
-      (setq name (concat oname "<" num ">"))
+      (setq name (format "%s<%d>" oname num))
       (itimer-increment num)))
   (activate-itimer (list name value restart function is-idle
 			 with-args function-arguments (list 0 0 0)))
@@ -395,7 +395,7 @@
 	    (oname "itimer-")
 	    (num 1))
 	(while (get-itimer name)
-	  (setq name (concat oname "<" num ">"))
+	  (setq name (format "%s<%d>" oname num))
 	  (itimer-increment num))
 	(setcar itimer name))
     ;; signal an error if the timer's name matches an already