diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-06-23 19:12:42 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-06-23 19:12:42 +0000 |
commit | 18ac01eecca835b3464145c24f5fc04c0f93b10b (patch) | |
tree | c8ab960b33183a5a00a9c15c1eb0705c70340882 | |
parent | 181f1ee5a649aba67bbc0b7aef0dbfac75ab9691 (diff) | |
download | emacs-18ac01eecca835b3464145c24f5fc04c0f93b10b.tar.gz |
(profile-million): Variable moved.
-rw-r--r-- | lisp/emacs-lisp/profile.el | 4 |
1 files changed, 2 insertions, 2 deletions
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." |