diff options
| author | Richard M. Stallman <[email protected]> | 1997-06-23 19:12:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1997-06-23 19:12:42 +0000 |
| commit | 51eb91c27c2b04515fb4cc8632209fb51be10621 (patch) | |
| tree | cb706e0c92f08dcbdcfd0cca147c75ba2bd3bda0 | |
| parent | c88cd504f06bd7b478e07fcf52f2c77fa8140897 (diff) | |
(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 a7e137332e..1f17a66310 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." |