Rename .l(, .l) to .(l, .)l

This fits better with established practice (see the me macros).

1 files changed, 3 insertions, 3 deletions

diff --git a/list/list b/list/list
index 11ec7c1..c3933e4 100755
--- a/list/list
+++ b/list/list
@@ -9,12 +9,12 @@
 use Getopt::Std;
 BEGIN { getopt('Ep:s:') }
 
-if (/^\.\s*l\(\s*$/ .. /^\.\s*l\)\s*$/) {
+if (/^\.\s*\(l\s*$/ .. /^\.\s*\)l\s*$/) {
 	not $opt_E and s/^\\!// and next;
-	if (/^\.\s*l\(\s*$/) {
+	if (/^\.\s*\(l\s*$/) {
 		$_ = '';
 		$_ = "$opt_p\n" if $opt_p;
-	} elsif (/^\.\s*l\)\s*$/) {
+	} elsif (/^\.\s*\)l\s*$/) {
 		$_ = '';
 		$_ = "$opt_s\n" if $opt_s;
 	} else {