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

[Ralf Angeli]

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

Index: style/letter.el
===================================================================
RCS file: /cvsroot/auctex/auctex/style/letter.el,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- style/letter.el     5 Jan 1994 19:09:22 -0000       1.3
+++ style/letter.el     25 May 2008 06:50:33 -0000      1.4
@@ -1,6 +1,6 @@
 ;;; letter.el - Special code for letter style.
 
-;; $Id: letter.el,v 1.3 1994/01/05 19:09:22 amanda Exp $
+;; $Id: letter.el,v 1.4 2008/05/25 06:50:33 angeli Exp $
 
 ;;; Code:
 
@@ -23,15 +23,15 @@
 
 (defun LaTeX-env-recipient (environment)
   "Insert ENVIRONMENT and prompt for recipient and address."
-  (let ((sender (read-input "Sender: " (user-full-name)))
-       (sender-address (read-input "Sender address: "
+  (let ((sender (read-string "Sender: " (user-full-name)))
+       (sender-address (read-string "Sender address: "
                                    LaTeX-letter-sender-address))
-       (recipient (read-input "Recipient: "))
-       (address (read-input "Recipient address: "))
-       (signature (read-input "Signature: "))
-       (opening (read-input "Opening: "))
-       (closing (read-input "Closing: "))
-       (date (read-input "Date: " (LaTeX-today))))
+       (recipient (read-string "Recipient: "))
+       (address (read-string "Recipient address: "))
+       (signature (read-string "Signature: "))
+       (opening (read-string "Opening: "))
+       (closing (read-string "Closing: "))
+       (date (read-string "Date: " (LaTeX-today))))
 
     (insert TeX-esc "name" TeX-grop sender TeX-grcl)
     (newline-and-indent)