レス数が950を超えています。1000を超えると表示できなくなるよ。

Emacs part6

631 ：606 ：02/11/23 06:33

(defun elscreen-screen-list-string ()
(interactive)
(if (string-match "Minibuf" (buffer-name (current-buffer)))
"*Minibuffer active*"
(do ((lst-mine nil) (s (elscreen-get-current-screen)) (i 0 (+ i 1)))
((>= i 10)
(when (elscreen-get-winconf s) (elscreen-goto0 s))
(apply #'concat
(mapcar (lambda (e) (concat (int-to-string (car e))
(if (eq (car e) s) "+ " "- ")
(cdr e) " "))
(nreverse lst-mine))))
(when (elscreen-get-winconf i)
(elscreen-goto0 i)
(setq elscreen-mode-names (elscreen-get-mode-list))
(setq elscreen-buffer-names (elscreen-get-buffer-name-list))
(cond
((string-match "^navi2ch-" elscreen-mode-names) (setq lst-mine (cons "navi2ch" lst-mine)))
((string-match "^wl-" elscreen-mode-names) (setq lst-mine (cons "Wanderlust" lst-mine)))
((string-match "^msn-" elscreen-mode-names) (setq lst-mine (cons "MSN" lst-mine)))
(t (setq lst-mine (cons (cons i (elscreen-get-buffer-name-list)) lst-mine))))))))

read.cgi ver5.26+ (01/10/21-)