Commits

Anonymous committed 214d430

Remove old and now erroneous get-buffer-window-list definition.

  • Participants
  • Parent commits 0984a95

Comments (0)

Files changed (2)

+2004-08-24  Jerry James  <james@xemacs.org>
+
+	* sun-eos-debugger-extra.el (get-buffer-window-list): Removed.
+
 2003-10-31  Norbert Koch  <viteno@xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.15 released.

File sun-eos-debugger-extra.el

 ;; client
 ;;
 
-(defun get-buffer-window-list (buffer)
-  ;; like get-buffer-window except that will generate a list of windows
-  ;; instead of just the first one"
-  (let* ((buf (get-buffer buffer))
-	 (win1 (next-window nil 'foo t t))
-	 (win win1)
-	 (first t)
-	 (ret nil)
-	 )
-    (if (null buf)
-	nil
-      (while (or
-	      (and first win)
-	      (not (or first (equal win win1)))
-	      )
-	(setq first nil)
-	(if (equal
-	     buf
-	     (window-buffer win))
-	    (setq ret (cons win ret)))
-	(setq win (next-window win t t t))
-	)
-      ret)))
-
 (defun eos::dbx-process ()
   ;; Returns nil, or the corresponding process where to insert
   (let ((pl (process-list))