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

[Ralf Angeli]

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

Index: style/dinbrief.el
===================================================================
RCS file: /cvsroot/auctex/auctex/style/dinbrief.el,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- style/dinbrief.el   11 Jan 1994 23:01:25 -0000      1.1
+++ style/dinbrief.el   25 May 2008 06:50:32 -0000      1.2
@@ -33,19 +33,19 @@
 
 (defun LaTeX-recipient-hook (environment)
   "Insert ENVIRONMENT and prompt for recipient and address."
-  (let ((sender (read-input "Absender: " (user-full-name)))
-       (recipient (read-input "Empf\"anger: "))
-       (address (read-input "Anschrift: "))
-       (postvermerk (read-input "Postvermerk: "))
-       (date (read-input "Datum: " (LaTeX-today)))
-       (betreff (read-input "Betreff: "))
-       (vermerk (read-input "Behandlungsvermerk: "))
-       (verteil (read-input "Verteiler: "))
-       (anlage (read-input "Anlagen: "))
-       (opening (read-input "Anrede: "))
-       (closing (read-input "Schlu\"s: "))
-       (fenster (read-input "Fenster \(ja/nein\): "))
-       (signature (read-input "Unterschrift: "))
+  (let ((sender (read-string "Absender: " (user-full-name)))
+       (recipient (read-string "Empf\"anger: "))
+       (address (read-string "Anschrift: "))
+       (postvermerk (read-string "Postvermerk: "))
+       (date (read-string "Datum: " (LaTeX-today)))
+       (betreff (read-string "Betreff: "))
+       (vermerk (read-string "Behandlungsvermerk: "))
+       (verteil (read-string "Verteiler: "))
+       (anlage (read-string "Anlagen: "))
+       (opening (read-string "Anrede: "))
+       (closing (read-string "Schlu\"s: "))
+       (fenster (read-string "Fenster \(ja/nein\): "))
+       (signature (read-string "Unterschrift: "))
        )
 
     (if (not (zerop (length sender)))
@@ -75,7 +75,7 @@
     (if (string= fenster "ja")
        (progn
          (insert TeX-esc "Fenster")
-         (let ((retouradr (read-input "Retouradresse: " (user-full-name))))
+         (let ((retouradr (read-string "Retouradresse: " (user-full-name))))
            (newline-and-indent)
          (if (not (zerop (length retouradr)))
              (progn