anchor.diff:  
   (defun delete-window (window)
     (%delete-window window)
  -  (when (window-delete-hook window)
  -    (funcall (window-delete-hook window)))
  +  (run-hooks (window-delete-hook window))
     (%free-window window)
     t)
   
  
positive.code:     :type point)
     (delete-hook
      :initform nil
      :reader window-delete-hook
      :writer set-window-delete-hook
      :type (or null function))
     (use-modeline-p
      :initarg :use-modeline-p
      :initform nil
  
negative.code:           window-buffer
            window-view
            window-parameter
            window-delete-hook
            window-redraw
            current-window
            window-list
  