Commit 694ce148 authored by Linus Tolke Y's avatar Linus Tolke Y

kom-bury added

parent 58f22941
No preview for this file type
......@@ -1368,4 +1368,28 @@ current conference to another session."
(read-list-delete-text nil lyskom-reading-list)
(read-list-delete-text nil lyskom-to-do-list)))
(lyskom-end-of-command))
\ No newline at end of file
(lyskom-end-of-command))
;;; ================================================================
;;; Begrav lyskom-sessionen - kom-bury
;;; Author: Linus Tolke
(defun kom-bury ()
"Puts the kom-session in the background."
(interactive)
(let ((session-name (buffer-name (current-buffer)))
(buffer (current-buffer)))
(if lyskom-debug-communications-to-buffer
(bury-buffer lyskom-debug-communications-to-buffer))
(if lyskom-who-info-buffer
(bury-buffer lyskom-who-info-buffer))
(bury-buffer)
(while (and (string-match (regexp-quote session-name) (buffer-name (current-buffer)))
(not (eq buffer (current-buffer))))
(bury-buffer (current-buffer)))))
......@@ -849,6 +849,7 @@ Cf. paragraph-start.")
(define-key lyskom-mode-map "nm" 'kom-go-to-next-conf)
(define-key lyskom-mode-map "S" 'kom-quit)
(define-key lyskom-mode-map "q" 'kom-quit)
(define-key lyskom-mode-map "z" 'kom-bury)
(define-key lyskom-mode-map "r" 'kom-recover)
(define-key lyskom-mode-map "t" 'kom-display-time)
(define-key lyskom-mode-map "fu" 'kom-get-appreciation)
......
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