From 53b28c2299f809a02bbc40bc3d262c1396254e94 Mon Sep 17 00:00:00 2001
From: Joel Rosdahl <joel@rosdahl.net>
Date: Tue, 20 Feb 2001 20:43:52 +0000
Subject: [PATCH] Use name of current user as default in
 kom-change-parenthesis.

---
 src/commands1.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/commands1.el b/src/commands1.el
index 922efa64..b69e5c9c 100644
--- a/src/commands1.el
+++ b/src/commands1.el
@@ -1762,7 +1762,12 @@ converted so that the search is case insensitive."
   (interactive)
   (let ((conf-stat (lyskom-read-conf-stat 
 		    (lyskom-get-string 'name-to-be-changed)
-		    '(all) nil nil t)))
+		    '(all)
+                    nil
+                    (cons
+                     (conf-stat->name (blocking-do 'get-conf-stat lyskom-pers-no))
+                     0)
+                    t)))
     (if (null conf-stat)
 	(lyskom-insert-string 'no-such-conf-or-pers)
       (if (string-match "^\\(.*\\)(\\(.*\\))\\(.*\\)$" (conf-stat->name conf-stat))
-- 
GitLab