emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master c81ed19: packages/transcribe.el - minor bug corrections


From: David Gonzalez Gandara
Subject: [elpa] master c81ed19: packages/transcribe.el - minor bug corrections
Date: Wed, 27 Jul 2016 08:56:27 +0000 (UTC)

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

    packages/transcribe.el - minor bug corrections
---
 packages/transcribe/transcribe.el |   11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/packages/transcribe/transcribe.el 
b/packages/transcribe/transcribe.el
index 48497b4..1ae4696 100644
--- a/packages/transcribe/transcribe.el
+++ b/packages/transcribe/transcribe.el
@@ -3,7 +3,7 @@
 ;; Copyright 2014-2016  Free Software Foundation, Inc.
 
 ;; Author: David Gonzalez Gandara <address@hidden>
-;; Version: 1.5.0
+;; Version: 1.5.1
 
 ;; This program is free software: you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -285,10 +285,11 @@
            (transcribe-analyze number participant))))))
 
 
-(defun transcribe-xml-tag-person (xmltag)
+(defun transcribe-xml-tag-person (xmltag move)
   "This function allows the automatic insetion of a speaker xml tag and places 
the cursor."
-  (interactive "stag:")
-  (insert (format "<%s move=\"\"></%s>" xmltag xmltag))
+  (interactive (list(read-string "Person:")(completing-read "move:" 
transcribe-move-list))) 
+  ;;(interactive "stag:")
+  (insert (format "<%s move=\"%s\"></%s>" xmltag move xmltag))
   (backward-char 3)
   (backward-char (string-width xmltag)))
 
@@ -311,7 +312,7 @@
 
 (defun transcribe-add-attribute (att val)
   "Adds a xml attribute at cursor with the name and value specified 
(autocompletion possible)"
-  (interactive (list(completing-read "attibute name:" 
transcribe-attribute-list)(read-string "value:")))
+  (interactive (list(completing-read "attribute name:" 
transcribe-attribute-list)(read-string "value:")))
   (insert (format "%s=\"%s\"" att val)))
 
 (defun transcribe-add-attribute-function (val)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]