diff options
author | Martin Rudalics <rudalics@gmx.at> | 2018-01-27 08:29:18 +0100 |
---|---|---|
committer | Martin Rudalics <rudalics@gmx.at> | 2018-01-27 08:29:18 +0100 |
commit | d1cfe4641d89259210304cf75011a22cc765e2ed (patch) | |
tree | d2d0ab654648b20f7b85ef5134bd91943802fe97 /lisp/bindings.el | |
parent | 2ce56c51a83f6658cc6c79e4cc3716cfddbb03ff (diff) | |
download | emacs-d1cfe4641d89259210304cf75011a22cc765e2ed.tar.gz |
In bindings.el fix check whether mode line can be dragged
* lisp/bindings.el (mode-line-default-help-echo): Use check
whether mode line can be dragged from 'mouse-drag-mode-line'.
Diffstat (limited to 'lisp/bindings.el')
-rw-r--r-- | lisp/bindings.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/bindings.el b/lisp/bindings.el index 9960ba615a0..60823445b97 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -125,15 +125,18 @@ corresponding to the mode line clicked." ;;; Mode line contents (defun mode-line-default-help-echo (window) - "Return default help echo text for WINDOW's mode-line." + "Return default help echo text for WINDOW's mode line." (let* ((frame (window-frame window)) (line-1a ;; Show text to select window only if the window is not ;; selected. (not (eq window (frame-selected-window frame)))) (line-1b - ;; Show text to drag modeline if and only if it can be done. - (or (window-in-direction 'below window) + ;; Show text to drag mode line if either the window is not + ;; at the bottom of its frame or the minibuffer window of + ;; this frame can be resized. This matches a corresponding + ;; check in `mouse-drag-mode-line'. + (or (not (window-at-side-p window 'bottom)) (let ((mini-window (minibuffer-window frame))) (and (eq frame (window-frame mini-window)) (or (minibuffer-window-active-p mini-window) @@ -166,7 +169,7 @@ corresponding to the mode line clicked." If the value is a string, it specifies the tooltip or echo area message to display when the mouse is moved over the mode line. If the value is a function, call that function with one argument -- the window whose mode-line to display. If the text at the +- the window whose mode line to display. If the text at the mouse position has a `help-echo' text property, that overrides this variable." :type '(choice |