comparison .elisp/settings/50.localfuncs.el @ 238:3d5c595c229e

emacs: slightly better window-width resizing behavior
author Lucas Bergman <slb@google.com>
date Thu, 24 Feb 2011 09:21:57 -0600
parents b9f4d059eb69
children 026344f083ef
comparison
equal deleted inserted replaced
237:b9f4d059eb69 238:3d5c595c229e
125 125
126 Interactively, if no argument is given, make selected window 80 126 Interactively, if no argument is given, make selected window 80
127 columns wide. 127 columns wide.
128 " 128 "
129 (interactive "p") 129 (interactive "p")
130 (let* ((cols (if (or (not columns) (> 0 columns)) 80 columns))) 130 (let* ((cols (if (or (not columns) (>= 0 columns)) 80 columns)))
131 (shrink-window-horizontally (- (window-width) cols)))) 131 (shrink-window-horizontally (- (window-width) cols))))