diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/faces.el | 7 | ||||
| -rw-r--r-- | lisp/mwheel.el | 3 | ||||
| -rw-r--r-- | lisp/scroll-bar.el | 12 | ||||
| -rw-r--r-- | lisp/window.el | 2 |
4 files changed, 17 insertions, 7 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index e62561a63a5..a6ffd1ecd33 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -2629,6 +2629,13 @@ the same as `window-divider' face." :group 'window-divider :group 'basic-faces) +(defface internal-border + '((t nil)) + "Basic face for the internal border." + :version "26.1" + :group 'frames + :group 'basic-faces) + (defface minibuffer-prompt '((((background dark)) :foreground "cyan") ;; Don't use blue because many users of the MS-DOS port customize diff --git a/lisp/mwheel.el b/lisp/mwheel.el index 73fd2b7e115..1428e5f4d01 100644 --- a/lisp/mwheel.el +++ b/lisp/mwheel.el @@ -220,6 +220,9 @@ non-Windows systems." (mods (delq 'click (delq 'double (delq 'triple (event-modifiers event))))) (amt (assoc mods mouse-wheel-scroll-amount))) + (unless (eq scroll-window selected-window) + ;; Mark window to be scrolled for redisplay. + (select-window scroll-window 'mark-for-redisplay)) ;; Extract the actual amount or find the element that has no modifiers. (if amt (setq amt (cdr amt)) (let ((list-elt mouse-wheel-scroll-amount)) diff --git a/lisp/scroll-bar.el b/lisp/scroll-bar.el index 5290a7b3bee..58352740447 100644 --- a/lisp/scroll-bar.el +++ b/lisp/scroll-bar.el @@ -281,7 +281,7 @@ If you click outside the slider, the window scrolls to bring the slider there." (with-current-buffer (window-buffer window) (setq before-scroll point-before-scroll)) (save-selected-window - (select-window window) + (select-window window 'mark-for-redisplay) (setq before-scroll (or before-scroll (point)))) (scroll-bar-drag-1 event) @@ -326,7 +326,7 @@ If you click outside the slider, the window scrolls to bring the slider there." (with-current-buffer (window-buffer window) (setq before-scroll point-before-scroll)) (save-selected-window - (select-window window) + (select-window window 'mark-for-redisplay) (setq before-scroll (or before-scroll (point)))) (scroll-bar-horizontal-drag-1 event) @@ -356,7 +356,7 @@ EVENT should be a scroll bar click." (unwind-protect (save-selected-window (let ((portion-whole (nth 2 end-position))) - (select-window window) + (select-window window 'mark-for-redisplay) (setq before-scroll (or before-scroll (point))) (scroll-down @@ -377,7 +377,7 @@ EVENT should be a scroll bar click." (unwind-protect (save-selected-window (let ((portion-whole (nth 2 end-position))) - (select-window window) + (select-window window 'mark-for-redisplay) (setq before-scroll (or before-scroll (point))) (scroll-up @@ -402,7 +402,7 @@ EVENT should be a scroll bar click." (with-current-buffer (window-buffer window) (setq before-scroll point-before-scroll)) (save-selected-window - (select-window window) + (select-window window 'mark-for-redisplay) (setq before-scroll (or before-scroll (point))) (cond ((eq part 'above-handle) @@ -449,7 +449,7 @@ EVENT should be a scroll bar click." (with-current-buffer (window-buffer window) (setq before-scroll point-before-scroll)) (save-selected-window - (select-window window) + (select-window window 'mark-for-redisplay) (setq before-scroll (or before-scroll (point))) (cond ((eq part 'before-handle) diff --git a/lisp/window.el b/lisp/window.el index bea8383fcde..f4a834c0d8c 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -8855,7 +8855,7 @@ is active. This function is run by `mouse-autoselect-window-timer'." (raise-frame frame)) (t ;; Just focus frame. - (x-focus-frame frame)))))) + (x-focus-frame frame t)))))) (defun truncated-partial-width-window-p (&optional window) "Return non-nil if lines in WINDOW are specifically truncated due to its width. |