Re: set window width

[Harald Hanche-Olsen]

+ Dimitrios Apostolou <jimis@gmx.net>:

> I've been searching for some M-x set-window-width function but I can't
> find anything. The closer solution I've found is
>
>   M-x set-variable window-min-width 80
>
> and then drag the fringe with the mouse. That's suboptimal imho. Any
> better ideas?

I wrote this pair of functions to do this recently.

(defun set-frame-width-interactive (width)
  "Set the width of the curent frame."
  (interactive "NNew width: ")
  (let ((old-width (frame-width)))
    (set-frame-width nil width)
    (message "Old width was %d" old-width)))

(defun set-frame-height-interactive (height)
  "Set the height of the curent frame."
  (interactive "NNew height: ")
  (let ((old-height (frame-height)))
    (set-frame-height nil height)
    (message "Old height was %d" old-height)))

-- 
* Harald Hanche-Olsen     <URL:http://www.math.ntnu.no/~hanche/>
- It is undesirable to believe a proposition
  when there is no ground whatsoever for supposing it is true.
  -- Bertrand Russell