From: Richard M. Stallman Date: Mon, 23 Jun 1997 19:12:42 +0000 (+0000) Subject: (profile-million): Variable moved. X-Git-Tag: emacs-20.1~1523 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=51eb91c27c2b04515fb4cc8632209fb51be10621;p=emacs.git (profile-million): Variable moved. --- diff --git a/lisp/emacs-lisp/profile.el b/lisp/emacs-lisp/profile.el index a7e137332e7..1f17a66310c 100644 --- a/lisp/emacs-lisp/profile.el +++ b/lisp/emacs-lisp/profile.el @@ -92,6 +92,8 @@ Both how many times invoked and real time of start.") (defvar profile-time (cons 0 0) "Used to return result from a filter.") (defvar profile-buffer "*profile*" "Name of profile buffer.") +(defconst profile-million 1000000) + ;;; ;;; F U N C T I O N S ;;; @@ -188,8 +190,6 @@ With argument FLIST, use the list FLIST instead." (setcar init-time (car profile-time)) (setcdr init-time (cdr profile-time))) )) - -(defconst profile-million 1000000) (defun profile-update-function (fun) "When the call to the function FUN is finished, add its run time."