Satzzeichen am Ende von Kurzbeschreibungen.

Auch andere Satzzeichen als Punkte am Ende von Kurzbeschreibungen
ermoeglichen. Um Probleme mit alten Objekten zu vermeiden weiterhin
einen Punkt anfuegen, wenn das letzte Zeichen kein Punkt, Fragezeichen
oder Ausrufezeichen ist.

Change-Id: Idb9494516daf6c2315e4546f85eb413e9e4968ef
diff --git a/std/thing/description.c b/std/thing/description.c
index a3d959f..afbb16e 100644
--- a/std/thing/description.c
+++ b/std/thing/description.c
@@ -438,8 +438,16 @@
   // Unsichtbar? Dann gibts nichts zu sehen ...
   if (QueryProp(P_INVIS)||!(sh=QueryProp(P_SHORT)))
     return 0;
-  
-  return process_string(sh)+".\n";
+
+  sh=process_string(sh);
+
+  // Ist das letzte Zeichen kein Satzzeichen, einen Punkt anhaengen.
+  // Note: matchen mit regexp [[:punct:]]$ waere sauberer bzgl. non-ASCII.
+  int i=sh[<1];
+  if(i!='.' && i!='!' && i!='?')
+    return sh+".\n";
+
+  return sh+"\n";
 }
 
 // Namens-Adjektive setzen