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

src/startup.el

@@ -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