Index: openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl,v
diff -u -N -r1.48.2.8 -r1.48.2.9
--- openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	22 Apr 2017 18:21:46 -0000	1.48.2.8
+++ openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	19 May 2017 16:25:00 -0000	1.48.2.9
@@ -71,10 +71,19 @@
     is the message key, and the third sub match is the message text in en_US locale.
 
     @author Peter marklund (peter@collaboraid.biz)
+    @see lang::util::message_key_regexp
 } {
     return {(<#\s*?([-a-zA-Z0-9_:\.]+)\s+(.+?)\s*?#>)}
 }
 
+ad_proc lang::util::message_key_regexp {} {
+    Regular expression for recongnizing message keys in the form #package_name.key#.
+    @see lang::util::message_tag_regexp
+} {
+    return {\#([-a-zA-Z0-9_]+[.][-a-zA-Z0-9_]+)\#}
+}
+
+
 ad_proc lang::util::get_temporary_tags_indices { adp_file_string } {
     Given the contents of an adp file return the indices of the
     start and end chars of embedded message keys on the syntax: