Insert message before adding cross reference.

src/ChangeLog

+2001-05-30  Joel Rosdahl  <joel@rosdahl.net>
+
+	* swedish-strings.el (lyskom-message): New string:
+	adding-cross-reference.
+
+	* english-strings.el (lyskom-message): Likewise.
+
+	* commands1.el (lyskom-add-cross-reference): Insert "Adding..."
+	text before adding cross reference.
+
 2001-05-25  Joel Rosdahl  <joel@rosdahl.net>
 
 	* english-strings.el: Marked strings for new days in lyskom-times

src/commands1.el

@@ -3777,6 +3777,7 @@ Arguments:
         (aux-item (lyskom-read-cross-reference-and-get-aux-item)))
     (when (and text-no aux-item)
       (cache-del-text-stat text-no)
+      (lyskom-insert 'adding-cross-reference)
       (lyskom-report-command-answer
        (blocking-do 'modify-text-info
                     text-no

src/english-strings.el

@@ -480,6 +480,7 @@ Read all about it at http://www.lysator.liu.se/history/")
     (adding-name-as-copy . "%#1M will receive a carbon copy of text %#2n...")
     (remove-name-as-recipient .
      "Removing %#1M as recipient of text %#2n...")
+    (adding-cross-reference . "Adding cross reference...")
 
     (error-recipient-limit . "Text %#1n has too many recipients.\n")
     (error-already-recipient . "%#2M is already a recipient of text %#1n.\n")

src/swedish-strings.el

@@ -469,6 +469,8 @@ i svensk datorhistoria. L
     (adding-name-as-copy . "Adderar %#1M som kopiemottagare till text %#2n...")
     (remove-name-as-recipient .
 			      "Subtraherar %#1M som mottagare frn text %#2n...")
+    (adding-cross-reference . "Adderar referens...")
+
     (error-recipient-limit . "Text %#1n har fr mnga mottagare.\n")
     (error-already-recipient . "%#2M r redan mottagare till inlgg %#1n.\n")
     (error-permission-denied-add-recpt . "Bara frfattaren till %#1n eller organisatren fr %#2M kan ndra mottagartyp.\n")