mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(profile-million): Variable moved.

Browse source
This commit is contained in:
Richard M. Stallman 1997-06-23 19:12:42 +00:00
parent c88cd504f0
commit 51eb91c27c
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/profile.el
View file

@ -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."