mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Add `text-scale-set' function

Browse source 
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1607
This commit is contained in:
Miles Bader 2009-06-23 08:27:58 +00:00
parent e65f32c1d8
commit 05fbc4a9f1
4 changed files with 28 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

1
doc/emacs/ChangeLog
View file

@ -1,6 +1,7 @@
2009-06-23 Miles Bader <miles@gnu.org>
* display.texi (Scrolling): Document `recenter-redisplay'
(Temporary Face Changes): Document `text-scale-set'.
2009-06-21 Chong Yidong <cyd@stupidchicken.com>

6
doc/emacs/display.texi
View file

@ -509,6 +509,12 @@ default face, just like @kbd{C-x C-+} and @kbd{C-x C--} respectively.
You may find it convenient to bind to these commands, rather than
@code{text-scale-adjust}.
@cindex set buffer face height
@findex text-scale-set
The command @code{text-scale-set} sets the height of the default face
in the current buffer to an absolute level specified by its prefix
argument.
@findex text-scale-mode
The above commands automatically enable or disable the minor mode
@code{text-scale-mode}, depending on whether the current font scaling

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2009-06-23 Miles Bader <miles@gnu.org>
* face-remap.el (text-scale-set): New function.
2009-06-23 Glenn Morris <rgm@gnu.org>
* pcmpl-rpm.el (pcomplete/rpm): Doc fix.

21
lisp/face-remap.el
View file

@ -211,10 +211,10 @@ The amount of scaling is determined by the variable
face size by the value of the variable `text-scale-mode-step'
\(a negative amount shrinks the text).
The `text-scale-increase' and `text-scale-decrease' functions may
be used to interactively modify the variable
`text-scale-mode-amount' (they also enable or disable
`text-scale-mode' as necessary)."
The `text-scale-increase', `text-scale-decrease', and
`text-scale-set' functions may be used to interactively modify
the variable `text-scale-mode-amount' (they also enable or
disable `text-scale-mode' as necessary)."
:lighter (" " text-scale-mode-lighter)
(when text-scale-mode-remapping
(face-remap-remove-relative text-scale-mode-remapping))
@ -229,6 +229,19 @@ be used to interactively modify the variable
text-scale-mode-amount))))
(force-window-update (current-buffer)))
;;;###autoload
(defun text-scale-set (level)
"Set the scale factor of the default face in the current buffer to LEVEL.
If LEVEL is non-zero, `text-scale-mode' is enabled, otherwise it is disabled.
LEVEL is a number of steps, with 0 representing the default size.
Each step scales the height of the default face by the variable
`text-scale-mode-step' (a negative number decreases the height by
the same amount)."
(interactive "p")
(setq text-scale-mode-amount level)
(text-scale-mode (if (zerop text-scale-mode-amount) -1 1)))
;;;###autoload
(defun text-scale-increase (inc)
"Increase the height of the default face in the current buffer by INC steps.