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.

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:17 PM, David Talmage <david.talmage@shoutpoint.com>
wrote:

> I'm looking for ways to make a wide table more readable.  My motivation is
> from a table that is too wide to fit on my screen.  I need to be able to
> see all of the contents of a cell. If it were just text, I'd use M-q
> (fill-paragraph).  I've already tried org-table-wrap-region and couldn't
> figure it out.
>
>
>