Mercurial > dotfiles
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)))) |