From 7a146405067c656eb8349af92d091dbaa453deae Mon Sep 17 00:00:00 2001
From: John Ankarstrom <john@ankarstrom.se>
Date: Sun, 4 Jul 2021 20:38:22 +0200
Subject: Rename .l(, .l) to .(l, .)l

This fits better with established practice (see the me macros).
---
 list/list | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'list/list')

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 {
-- 
cgit v1.2.3