mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Martin Rudalics <rudalics at gmx.at>

Browse source 
(fortran-mode-map, fortran-window-create): Use window-full-width-p.
This commit is contained in:
Glenn Morris 2007-10-22 07:40:37 +00:00
parent ea161fff14
commit ca03b5a94d
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2007-10-22 Martin Rudalics <rudalics@gmx.at>
* progmodes/fortran.el (fortran-mode-map, fortran-window-create):
Use window-full-width-p.
2007-10-22 Dan Nicolaescu <dann@ics.uci.edu>
* mail/vms-pmail.el (insert-signature): Don't use end-of-buffer.

4
lisp/progmodes/fortran.el
View file

@ -622,7 +622,7 @@ Used in the Fortran entry in `hs-special-modes-alist'.")
["72-column window" fortran-window-create t]
["Full Width Window"
(enlarge-window-horizontally (- (frame-width) (window-width)))
(< (window-width) (frame-width))]
(not (window-full-width-p))]
["Momentary 72-column window" fortran-window-create-momentarily t]
"--"
["Break Line at Point" fortran-split-line t]
@ -1010,7 +1010,7 @@ The next key typed is executed unless it is SPC."
See also `fortran-window-create-momentarily'."
(interactive)
(let ((window-min-width 2))
(if (< (window-width) (frame-width))
(unless (window-full-width-p)
(enlarge-window-horizontally (- (frame-width)
(window-width) 1)))
(let* ((window-edges (window-edges))