If I had to guess its because I was unaware of that command when I wrote
those functions ;)

John

-----------------------------------
Professor John Kitchin
Doherty Hall A207F
Department of Chemical Engineering
Carnegie Mellon University
Pittsburgh, PA 15213
412-268-7803
@johnkitchin
http://kitchingroup.cheme.cmu.edu


On Thu, Dec 1, 2016 at 3:43 PM, Joost Kremers <joostkremers@fastmail.fm>
wrote:

>
> On Thu, Dec 01 2016, John Kitchin wrote:
>
>> I use:
>>
>> ;;;###autoload
>> (defun tq-increase-text-size ()
>>   "Increase text size."
>>   (interactive)
>>   (set-face-attribute 'default nil :height
>>      (truncate (* 1.1 (face-attribute 'default :height)))))
>>
>> ;;;###autoload
>> (defun tq-decrease-text-size ()
>>   "Decrease text size."
>>   (interactive)
>>   (set-face-attribute 'default nil :height
>>      (truncate (* 0.9 (face-attribute 'default :height)))))
>>
>> which I bind to C-- and  C-= to shrink the font size down until it fits,
>> then when I am done increase it.
>>
>
> Why not use `text-scale-adjust`? This function has convenient bindings in
> the form `C-x C-+` to increase text size, `C-x C--` to decrease, and `C-x
> C-0` to reset to default size. Furthermore, once you press any of these,
> you can simply use `+`, `-` and `0` for increasing, decreasing and
> resetting until you've found your preferred text size.
>
> --
> Joost Kremers
> Life has its moments
>