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)
_______________________________________________
auctex-diffs mailing list
[EMAIL PROTECTED]
http://lists.gnu.org/mailman/listinfo/auctex-diffs
