Lines Matching +defs:previous +defs:window
1 ;;; scroll-bar.el --- window system-independent scroll bar support
61 (let* ((wsb (window-scroll-bars))
80 (defvar previous-scroll-bar-mode nil)
92 (setq previous-scroll-bar-mode scroll-bar-mode))
146 (or previous-scroll-bar-mode
178 (defun scroll-bar-set-window-start (event)
179 "Set the window start according to where the scroll bar is dragged.
183 (window (nth 0 end-position))
186 (set-buffer (window-buffer window))
192 (set-window-start window (point))))))
195 "Calculate new window start for drag event."
203 (defun scroll-bar-maybe-set-window-start (event)
204 "Set the window start according to where the scroll bar is dragged.
205 Only change window start if the new start is substantially different.
209 (window (nth 0 end-position))
215 (current-start (window-start window)))
217 (set-buffer (window-buffer window))
224 (set-window-start window portion-start)
225 ;; Always set window start, to ensure scroll bar position is updated.
226 (set-window-start window current-start)))))
228 ;; Scroll the window to the proper position for EVENT.
231 (window (nth 0 start-position))
234 (set-buffer (window-buffer window))
239 (vertical-motion 0 window)
240 (set-window-start window (point)))))
243 "Scroll the window by dragging the scroll bar slider.
244 If you click outside the slider, the window scrolls to bring the slider there."
249 (window (nth 0 end-position))
251 (with-current-buffer (window-buffer window)
253 (save-selected-window
254 (select-window window)
269 (with-current-buffer (window-buffer window)
273 "Scroll the window's top line down to the location of the scroll bar click.
277 (window (nth 0 end-position))
279 (with-current-buffer (window-buffer window)
282 (save-selected-window
284 (select-window window)
288 (scroll-bar-scale portion-whole (1- (window-height)))))
290 (with-current-buffer (window-buffer window)
294 "Scroll the line next to the scroll bar click to the top of the window.
298 (window (nth 0 end-position))
300 (with-current-buffer (window-buffer window)
303 (save-selected-window
305 (select-window window)
309 (scroll-bar-scale portion-whole (1- (window-height)))))
311 (with-current-buffer (window-buffer window)
321 (window (nth 0 end-position))
326 (with-current-buffer (window-buffer window)
328 (save-selected-window
329 (select-window window)
338 (1- (window-height)))))
347 (set-window-start window (point-min)))
354 (with-current-buffer (window-buffer window)