From: Eli Zaretskii Date: Sat, 2 Jul 2022 14:52:23 +0000 (+0300) Subject: ; Minor fixes for 'global-text-scale-adjust' X-Git-Tag: emacs-29.0.90~1447^2~1266 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d06bc48716e53b77b39026db813bb0386ae53209;p=emacs.git ; Minor fixes for 'global-text-scale-adjust' * doc/emacs/display.texi (Text Scale): Improve indexing. * lisp/mwheel.el (mouse-wheel-global-text-scale): Doc fix. * lisp/face-remap.el (global-text-scale-adjust-resizes-frames): Fix a typo. (global-text-scale-adjust-limits): Doc fix. (Bug#48307) --- diff --git a/doc/emacs/display.texi b/doc/emacs/display.texi index 5e4728c8da9..cadac7e4538 100644 --- a/doc/emacs/display.texi +++ b/doc/emacs/display.texi @@ -895,6 +895,7 @@ the same as typing @kbd{C-x C-0}. @cindex ajust global font size @findex global-text-scale-adjust +@vindex global-text-scale-adjust-resizes-frames @kindex C-x C-M-+ @kindex C-x C-M-= @kindex C-x C-M-- diff --git a/lisp/face-remap.el b/lisp/face-remap.el index bfc138b043f..ade650c629e 100644 --- a/lisp/face-remap.el +++ b/lisp/face-remap.el @@ -452,12 +452,12 @@ See also the related command `global-text-scale-adjust'." :type '(choice (const :tag "Off" nil) (const :tag "On" t)) :group 'display - :version "28.1") + :version "29.1") (defcustom global-text-scale-adjust-limits '(10 . 500) "Min/max values for `global-text-scale-adjust'. This is a cons cell where the `car' has the minimum font size and -the `cdr' has the max font size." +the `cdr' has the maximum font size, in units of 1/10 pt." :version "29.1" :group 'display :type '(cons (integer :tag "Min") diff --git a/lisp/mwheel.el b/lisp/mwheel.el index 7963eaf4a45..062c98b53ec 100644 --- a/lisp/mwheel.el +++ b/lisp/mwheel.el @@ -43,7 +43,8 @@ (defvar mouse-wheel-mode) (defun mouse-wheel-global-text-scale (event) - "Increase or decrease the global font size according to the EVENT." + "Increase or decrease the global font size according to the EVENT. +This invokes `global-text-scale-adjust', which see." (interactive (list last-input-event)) (let ((button (mwheel-event-button event))) (unwind-protect