Commit b9e186a0 authored by Linus Tolke Y's avatar Linus Tolke Y
Browse files

Bugfix kom-bury skall fungera även om vi har

lyskom-debug-communications-to-buffer sannt.
parent 06d88b52
...@@ -489,7 +489,7 @@ Args: MEMBERSHIP-LIST CONF-STAT." ...@@ -489,7 +489,7 @@ Args: MEMBERSHIP-LIST CONF-STAT."
(condition-case error (condition-case error
(lyskom-send-message (lyskom-send-message
(lyskom-read-conf-no (lyskom-get-string 'who-to-send-message-to) (lyskom-read-conf-no (lyskom-get-string 'who-to-send-message-to)
'pers t)) 'all t))
(quit (lyskom-end-of-command) (quit (lyskom-end-of-command)
(signal 'quit "Quitting in kom-send-message")))) (signal 'quit "Quitting in kom-send-message"))))
...@@ -1412,7 +1412,7 @@ current conference to another session." ...@@ -1412,7 +1412,7 @@ current conference to another session."
(let ((session-name (buffer-name (current-buffer))) (let ((session-name (buffer-name (current-buffer)))
(buffer (current-buffer))) (buffer (current-buffer)))
(if lyskom-debug-communications-to-buffer (if lyskom-debug-communications-to-buffer
(bury-buffer lyskom-debug-communications-to-buffer)) (bury-buffer lyskom-debug-communications-to-buffer-buffer))
(if lyskom-who-info-buffer (if lyskom-who-info-buffer
(bury-buffer lyskom-who-info-buffer)) (bury-buffer lyskom-who-info-buffer))
(bury-buffer) (bury-buffer)
...@@ -1441,3 +1441,27 @@ current conference to another session." ...@@ -1441,3 +1441,27 @@ current conference to another session."
(kom-bury) (kom-bury)
(switch-to-buffer (car buffers)))))) (switch-to-buffer (car buffers))))))
;;; =======================================================
;;; Listing people using regexps.
(defun kom-list-re (regexp)
"List all persons and conferences whose name matches REGEXP."
(interactive "sSearch regexp: ")
(lyskom-start-of-command 'kom-list-re)
(lyskom-format-insert 'matching-regexp regexp)
(initiate-re-z-lookup 'main 'lyskom-list-re regexp 1 1))
(defun lyskom-list-re (conf-list)
(mapcar
(function (lambda (czi)
(lyskom-insert
(concat
(format "%4d %c %s\n"
(conf-z-info->conf-no czi)
(if (conf-type->letterbox
(conf-z-info->conf-type czi))
?P ?M)
(conf-z-info->name czi))))))
(conf-z-info-list->conf-z-infos conf-list))
(lyskom-end-of-command))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment