[AUCTeX-diffs] Changes to auctex/style/prosper.el,v

[Ralf Angeli]

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Changes by:     Ralf Angeli <angeli>    08/05/25 06:50:33

Index: style/prosper.el
===================================================================
RCS file: /cvsroot/auctex/auctex/style/prosper.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- style/prosper.el    3 Feb 2008 14:53:29 -0000       1.4
+++ style/prosper.el    25 May 2008 06:50:33 -0000      1.5
@@ -62,7 +62,7 @@
 
 
 (defconst LaTeX-prosper-version
-  "$Id: prosper.el,v 1.4 2008/02/03 14:53:29 angeli Exp $"
+  "$Id: prosper.el,v 1.5 2008/05/25 06:50:33 angeli Exp $"
   "prosper.el version.")
 
 (defconst LaTeX-prosper-transition-styles '("Split"
@@ -83,8 +83,7 @@
 
 (defun LaTeX-prosper-insert-title (optional)
   (newline)
-  (mapcar
-   (lambda(f)
+  (mapc (lambda(f)
      (TeX-insert-macro f)
      (newline))
    '("title" "subtitle" "author" "email" "institution" "slideCaption"
@@ -122,8 +121,7 @@
 (defun LaTeX-prosper-insert-options(environment)
   (insert "[" )
   (insert (LaTeX-prosper-slide-style-prompt) " ")
-  (mapcar 
-   (lambda(f)
+  (mapc (lambda(f)
      (if (y-or-n-p (car f))
          (insert (car (cdr f)) " ")))
    '(("Draft?" "draft")
@@ -141,7 +139,7 @@
                  (progn 
                    (goto-char (+ 1 (point))) 
                    (insert "%\n"))))) 
-  (let ((title (read-input "Title: "))) 
+  (let ((title (read-string "Title: "))) 
     (LaTeX-insert-environment "slide" (concat TeX-grop title TeX-grcl))))