diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -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." |