* completing-read.el (lyskom-read-conf-no): Hantera även en

conf-stat.
(lyskom-read-conf-stat): Dito.
(lyskom-read-conf-name): Dito.

src/completing-read.el

@@ -117,6 +117,7 @@ See lyskom-read-conf for a description of the parameters."
   (let ((conf-z-info (lyskom-read-conf prompt type empty initial mustmatch)))
     (cond ((null conf-z-info) 0)
           ((stringp conf-z-info) 0)
+	  ((lyskom-conf-stat-p conf-z-info) (conf-stat->conf-no conf-z-info))
           (t (conf-z-info->conf-no conf-z-info)))))
 
 (defun lyskom-read-conf-stat (prompt type &optional empty initial mustmatch)
@@ -127,6 +128,7 @@ See lyskom-read-conf for a description of the parameters."
   (let ((conf-z-info (lyskom-read-conf prompt type empty initial mustmatch)))
     (cond ((null conf-z-info) nil)
           ((stringp conf-z-info) nil)
+	  ((lyskom-conf-stat-p conf-z-info) conf-z-info)
           (t (blocking-do 'get-conf-stat 
                           (conf-z-info->conf-no conf-z-info))))))
 
@@ -138,6 +140,7 @@ See lyskom-read-conf for a description of the parameters."
   (let ((conf-z-info (lyskom-read-conf prompt type empty initial mustmatch)))
     (cond ((null conf-z-info) "")
           ((stringp conf-z-info) conf-z-info)
+	  ((lyskom-conf-stat-p conf-z-info) (conf-stat->name conf-z-info)
           (t (conf-z-info->name conf-z-info)))))
 
 (defun lyskom-read-conf (prompt type &optional empty initial mustmatch)