Commit d5dae21c authored by David Kågedal's avatar David Kågedal
Browse files

(lyskom): Lägg inte till dubletter i lyskom-buffer-list.

parent df60f81b
......@@ -176,7 +176,13 @@ See lyskom-mode for details."
(setq lyskom-executing-command nil)
;; Log in
(kom-start-anew t)
(setq lyskom-buffer-list (cons lyskom-buffer lyskom-buffer-list))
(if (memq lyskom-buffer lyskom-buffer-list)
(while (not (eq lyskom-buffer (car lyskom-buffer-list)))
(setq lyskom-buffer-list
(nconc (cdr lyskom-buffer-list)
(list (car lyskom-buffer-list)))))
(setq lyskom-buffer-list
(cons lyskom-buffer lyskom-buffer-list)))
(setq init-done t))
;; Something went wrong. Lets cleanup everything. :->
(if init-done
......
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