[Emacs-diffs] Changes to emacs/lisp/obsolete/sun-fns.el

[Juanma Barranquero]

Index: emacs/lisp/obsolete/sun-fns.el
diff -c emacs/lisp/obsolete/sun-fns.el:1.5 emacs/lisp/obsolete/sun-fns.el:1.6
*** emacs/lisp/obsolete/sun-fns.el:1.5  Sat Aug  6 17:48:15 2005
--- emacs/lisp/obsolete/sun-fns.el      Mon Aug 29 10:12:36 2005
***************
*** 85,91 ****
        (setq this-command 'mouse-yank-move))
    )
  
! (defun mouse-set-mark (window x y)
    "Set mark at mouse cursor."
    (eval-in-window window      ;; use this to get the unwind protect
      (let ((point (point)))
--- 85,91 ----
        (setq this-command 'mouse-yank-move))
    )
  
! (defun mouse-set-mark (&optional window x y)
    "Set mark at mouse cursor."
    (eval-in-window window      ;; use this to get the unwind protect
      (let ((point (point)))
***************
*** 137,143 ****
    "Select window if not selected, otherwise do mouse-drag-move-point."
    (if (eq (selected-window) window)
        (mouse-drag-move-point window x y)
!     (mouse-select-window window x y)))
  
  ;;;
  ;;; esoterica:
--- 137,143 ----
    "Select window if not selected, otherwise do mouse-drag-move-point."
    (if (eq (selected-window) window)
        (mouse-drag-move-point window x y)
!     (mouse-select-window window)))
  
  ;;;
  ;;; esoterica:
***************
*** 283,297 ****
    "Split the window vertically at the mouse cursor."
    (eval-in-window window (split-window-vertically (1+ y))))
  
! (defun mouse-select-window (window x y)
    "Selects the window, restoring point."
    (select-window window))
  
! (defun mouse-delete-other-windows (window x y)
    "Deletes all windows except the one mouse is in."
    (delete-other-windows window))
  
! (defun mouse-delete-window (window x y)
    "Deletes the window mouse is in."
    (delete-window window))
  
--- 283,297 ----
    "Split the window vertically at the mouse cursor."
    (eval-in-window window (split-window-vertically (1+ y))))
  
! (defun mouse-select-window (&optional window x y)
    "Selects the window, restoring point."
    (select-window window))
  
! (defun mouse-delete-other-windows (&optional window x y)
    "Deletes all windows except the one mouse is in."
    (delete-other-windows window))
  
! (defun mouse-delete-window (window &optional x y)
    "Deletes the window mouse is in."
    (delete-window window))