Commit 05fbc4a9 authored by Miles Bader's avatar Miles Bader
Browse files

Add `text-scale-set' function

Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1607
parent e65f32c1
2009-06-23 Miles Bader <miles@gnu.org> 2009-06-23 Miles Bader <miles@gnu.org>
* display.texi (Scrolling): Document `recenter-redisplay' * display.texi (Scrolling): Document `recenter-redisplay'
(Temporary Face Changes): Document `text-scale-set'.
2009-06-21 Chong Yidong <cyd@stupidchicken.com> 2009-06-21 Chong Yidong <cyd@stupidchicken.com>
......
...@@ -509,6 +509,12 @@ default face, just like @kbd{C-x C-+} and @kbd{C-x C--} respectively. ...@@ -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 You may find it convenient to bind to these commands, rather than
@code{text-scale-adjust}. @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 @findex text-scale-mode
The above commands automatically enable or disable the minor mode The above commands automatically enable or disable the minor mode
@code{text-scale-mode}, depending on whether the current font scaling @code{text-scale-mode}, depending on whether the current font scaling
......
2009-06-23 Miles Bader <miles@gnu.org>
* face-remap.el (text-scale-set): New function.
2009-06-23 Glenn Morris <rgm@gnu.org> 2009-06-23 Glenn Morris <rgm@gnu.org>
   
* pcmpl-rpm.el (pcomplete/rpm): Doc fix. * pcmpl-rpm.el (pcomplete/rpm): Doc fix.
......
...@@ -211,10 +211,10 @@ The amount of scaling is determined by the variable ...@@ -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' face size by the value of the variable `text-scale-mode-step'
\(a negative amount shrinks the text). \(a negative amount shrinks the text).
The `text-scale-increase' and `text-scale-decrease' functions may The `text-scale-increase', `text-scale-decrease', and
be used to interactively modify the variable `text-scale-set' functions may be used to interactively modify
`text-scale-mode-amount' (they also enable or disable the variable `text-scale-mode-amount' (they also enable or
`text-scale-mode' as necessary)." disable `text-scale-mode' as necessary)."
:lighter (" " text-scale-mode-lighter) :lighter (" " text-scale-mode-lighter)
(when text-scale-mode-remapping (when text-scale-mode-remapping
(face-remap-remove-relative text-scale-mode-remapping)) (face-remap-remove-relative text-scale-mode-remapping))
...@@ -229,6 +229,19 @@ be used to interactively modify the variable ...@@ -229,6 +229,19 @@ be used to interactively modify the variable
text-scale-mode-amount)))) text-scale-mode-amount))))
(force-window-update (current-buffer))) (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 ;;;###autoload
(defun text-scale-increase (inc) (defun text-scale-increase (inc)
"Increase the height of the default face in the current buffer by INC steps. "Increase the height of the default face in the current buffer by INC steps.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment