mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

Handle text scale and global text scale during DND wheel movement

Browse Source 
* lisp/x-dnd.el (x-dnd-mwheel-scroll): Handle `text-scale' and
`global-text-scale' mwheel actions.
This commit is contained in:
Po Lu 2022-07-23 14:18:18 +08:00
parent 825f4fdb51
commit 33602132ac
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/x-dnd.el
View File

@ -778,7 +778,11 @@ has been pressed."
(* 1 count))))
(unless (and (not mouse-wheel-tilt-scroll)
(or (eq button 6) (eq button 7)))
(let ((function (cond ((eq button 4)
(let ((function (cond ((eq type 'text-scale)
#'text-scale-adjust)
((eq type 'global-text-scale)
#'global-text-scale-adjust)
((eq button 4)
(if hscroll
mwheel-scroll-right-function
mwheel-scroll-down-function))
@ -794,9 +798,17 @@ has been pressed."
(if mouse-wheel-flip-direction
mwheel-scroll-left-function
mwheel-scroll-right-function)))))
;; Button5 should decrease the text scale, not increase it.
(when (and (memq type '(text-scale global-text-scale))
(eq button 5))
(setq amt (- amt)))
(when function
(condition-case nil
(funcall function amt)
;; Don't overwrite any echo-area message that might
;; already be shown, since this can be called from
;; `x-begin-drag'.
(let ((inhibit-message t))
(funcall function amt))
;; Do not error at buffer limits. Show a message instead.
;; This is especially important here because signalling an
;; error will mess up the drag-and-drop operation.