[elpa] master 252f454: /packages/transcribe.el: Fix global variables

[David Gonzalez Gandara]

branch: master
commit 252f45498621b7255c7413934153da951c93bbc4
Author: David Gonzalez Gandara <address@hidden>
Commit: David Gonzalez Gandara <address@hidden>

    /packages/transcribe.el: Fix global variables
---
 packages/transcribe/transcribe.el |   16 ++++++++--------
 1 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/packages/transcribe/transcribe.el 
b/packages/transcribe/transcribe.el
index 2312cf5..e4a51bc 100644
--- a/packages/transcribe/transcribe.el
+++ b/packages/transcribe/transcribe.el
@@ -158,14 +158,14 @@
   (reverse interventionsl2)
   (reverse interventionsl1)
   ;(print interventions) ;uncomment to display all the interventions on screen
-  (setq asunitspersecondl2 (/ asunitsl2 (string-to-number duration)))
-  (setq clausesperasunitl2 (/ clausesl2 asunitsl2))
-  (setq asunitspersecondl1 (/ asunitsl1 (string-to-number duration)))
-  (setq clausesperasunitl1 (/ clausesl1 asunitsl1))
-  (princ (format "episode: %s, duration: %s, person: %s\n" number duration 
personid))
-  (princ (format "L2(Asunits/second): %s, L2(clauses/Asunit): %s, 
L1(Asunits/second): %s" 
-          asunitspersecondl2 clausesperasunitl2 asunitspersecondl1)))
-)
+  (let((asunitspersecondl2 (/ asunitsl2 (string-to-number duration)))
+    (clausesperasunitl2 (/ clausesl2 asunitsl2))
+    (asunitspersecondl1 (/ asunitsl1 (string-to-number duration)))
+    (clausesperasunitl1 (/ clausesl1 asunitsl1)))
+  
+    (princ (format "episode: %s, duration: %s, person: %s\n" episodenumber 
duration personid))
+    (princ (format "L2(Asunits/second): %s, L2(clauses/Asunit): %s, 
L1(Asunits/second): %s" 
+          asunitspersecondl2 clausesperasunitl2 asunitspersecondl1)))))
 
 (defun transcribe-define-xml-tag (xmltag)
   "This function allows the automatic insetion of a xml tag and places the 
cursor."