From 4d8454b6dbe8da7c3b2a18d93acc443b49e3b076 Mon Sep 17 00:00:00 2001
From: Aleteoryx <alyx@aleteoryx.me>
Date: Sun, 4 Aug 2024 01:09:02 +0100
Subject: [PATCH] irc::src typo fix

---
 irc.tcl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/irc.tcl b/irc.tcl
index f23fe09..9554027 100755
--- a/irc.tcl
+++ b/irc.tcl
@@ -414,6 +414,7 @@ namespace eval ::irc {
   }
 
 
+  # documented
   proc ::irc::src {subcommand args} {
     switch -- $subcommand {
       parse {
@@ -437,7 +438,7 @@ namespace eval ::irc {
           return server
         } else { return -code error "argument is not a src" }
       }
-      servername {
+      server {
         if {[llength $args] != 1} { return -code error "wrong # args: should be \"irc::src server servername\"" }
         lassign $args servername
         if ![irc::is src::servername $servername] { return -code error "argument is not a servername" }
@@ -469,6 +470,7 @@ namespace eval ::irc {
     }
   }
 
+  # documented
   proc ::irc::tags {subcommand args} {
     switch -- $subcommand {
       exists {
-- 
2.43.4