[nongnu] elpa/subed 905c9da310: subed-create-file: Save file automatically; subed-wpm: return list

[ELPA Syncer]

branch: elpa/subed
commit 905c9da310a3fa5f1394a26afb08500d868b92b6
Author: Sacha Chua <sacha@sachachua.com>
Commit: Sacha Chua <sacha@sachachua.com>

    subed-create-file: Save file automatically; subed-wpm: return list
    
    * subed/subed-common.el: Fix typo.
    (subed-wpm): Return a list including word count and minutes.
    (subed-create-file): Save file automatically.
---
 subed/subed-common.el | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/subed/subed-common.el b/subed/subed-common.el
index 89ee166307..66e0053e9f 100644
--- a/subed/subed-common.el
+++ b/subed/subed-common.el
@@ -2098,7 +2098,7 @@ if PRINT-MESSAGE is non-nil, display a message."
 
 (defun subed-wpm (&optional subtitles)
   "Display words per minute.
-Use SUBTITILES if specified."
+Use SUBTITLES if specified."
   (interactive)
   (setq subtitles (or subtitles (subed-subtitle-list)))
   (let (word-count
@@ -2118,7 +2118,8 @@ Use SUBTITILES if specified."
          (/ (* 1.0 word-count) minutes)
          word-count
          minutes)
-      (/ (* 1.0 word-count) minutes))))
+      (list (/ (* 1.0 word-count) minutes)
+            word-count minutes))))
 
 ;;; Trimming overlaps
 
@@ -2295,11 +2296,11 @@ If INIT-FUNC is non-nil, call that function to 
initialize."
   (when (and (file-exists-p filename) (not ok-if-exists))
     (error "File %s already exists" filename))
   (let ((subed-auto-play-media nil))
-    (find-file filename)
-    (erase-buffer)
-    (if init-func (funcall init-func))
-    (subed-auto-insert)
-    (subed-append-subtitle-list subtitles)))
+    (with-temp-file filename
+      (subed-guess-format filename)
+      (if init-func (funcall init-func))
+      (subed-auto-insert)
+      (subed-append-subtitle-list subtitles))))
 
 (defun subed-convert (format &optional include-comments)
   "Create a buffer with the current subtitles converted to FORMAT.