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 +++---
 list/list.1 | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)

(limited to '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 {
diff --git a/list/list.1 b/list/list.1
index 02a89d8..019c738 100644
--- a/list/list.1
+++ b/list/list.1
@@ -15,9 +15,9 @@
 .Pp
 .Nm
 escapes text between
-.Ql .l(
+.Ql .(l
 and
-.Ql .l)
+.Ql .)l
 lines for
 .Xr troff 1 .
 .Pp
-- 
cgit v1.2.3