diff --git a/src/compatibility.el b/src/compatibility.el
index b4c1c0404a10d88865dfb0f7fd4f3f9d646ea4f9..9030afd976140041c2d5709ccb0dabe31d6945fc 100644
--- a/src/compatibility.el
+++ b/src/compatibility.el
@@ -503,31 +503,6 @@ See `walk-windows' for the meaning of MINIBUF and FRAME."
 		  minibuf frame)
     windows))
 
-(lyskom-provide-function window-list (&optional frame minibuf window)
-  "Return a list of windows on FRAME, beginning with WINDOW.
-FRAME and WINDOW default to the selected ones.  
-Optional second arg MINIBUF t means count the minibuffer window
-even if not active.  If MINIBUF is neither t nor nil it means
-not to count the minibuffer even if it is active."
-  (setq window (or window (selected-window))
-	frame (or frame (selected-frame)))
-  (if (not (eq (window-frame window) frame))
-      (error "Window must be on frame."))
-  (let ((current-frame (selected-frame))
-	list)
-    (unwind-protect
-	(save-window-excursion
-	  (select-frame frame)
-	  (walk-windows
-	   (function (lambda (cur-window)
-		       (if (not (eq window cur-window))
-			   (setq list (cons cur-window list)))))
-	   minibuf)
-	  (setq list (cons window list)))
-      (select-frame current-frame))))
-
-
-
 (lyskom-provide-function 
  replace-in-string (str regexp newtext &optional literal)
   "Replaces all matches in STR for REGEXP with NEWTEXT string.