[Emacs-diffs] Changes to emacs/lisp/mouse.el

[Richard M. Stallman]

Index: emacs/lisp/mouse.el
diff -u emacs/lisp/mouse.el:1.287 emacs/lisp/mouse.el:1.288
--- emacs/lisp/mouse.el:1.287   Sun Nov 27 19:28:58 2005
+++ emacs/lisp/mouse.el Mon Dec 12 05:21:33 2005
@@ -594,14 +594,15 @@
                ((null (car (cdr mouse)))
                 nil)
                (t
-                (save-selected-window
-                  ;; If the scroll bar is on the window's left,
-                  ;; adjust the window on the left.
-                  (unless (eq which-side 'right)
-                    (select-window (previous-window)))
+                (let ((window
+                       ;; If the scroll bar is on the window's left,
+                       ;; adjust the window on the left.
+                       (if (eq which-side 'right)
+                           (selected-window)
+                         (previous-window))))
                   (setq x (- (car (cdr mouse))
                              (if (eq which-side 'right) 0 2))
-                        edges (window-edges)
+                        edges (window-edges window)
                         left (nth 0 edges)
                         right (nth 2 edges))
                   ;; scale back a move that would make the
@@ -609,19 +610,10 @@
                   (if (< (- x left -1) window-min-width)
                       (setq x (+ left window-min-width -1)))
                   ;; compute size change needed
-                  (setq growth (- x right -1)
-                        wconfig (current-window-configuration))
-                  (enlarge-window growth t)
-                  ;; if this window's growth caused another
-                  ;; window to be deleted because it was too
-                  ;; thin, rescind the change.
-                  ;;
-                  ;; if size change caused space to be stolen
-                  ;; from a window to the left of this one,
-                  ;; rescind the change.
-                  (if (or (/= start-nwindows (count-windows t))
-                          (/= left (nth 0 (window-edges))))
-                      (set-window-configuration wconfig))))))))))
+                  (setq growth (- x right -1))
+                  (condition-case nil
+                      (adjust-window-trailing-edge window growth t)
+                    (error nil))))))))))
 
 (defun mouse-set-point (event)
   "Move point to the position clicked on with the mouse.