Commit ca03b5a9 authored by Glenn Morris's avatar Glenn Morris
Browse files

Martin Rudalics <rudalics at gmx.at>

(fortran-mode-map, fortran-window-create): Use window-full-width-p.
parent ea161fff
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> 2007-10-22 Dan Nicolaescu <dann@ics.uci.edu>
* mail/vms-pmail.el (insert-signature): Don't use end-of-buffer. * mail/vms-pmail.el (insert-signature): Don't use end-of-buffer.
......
...@@ -622,7 +622,7 @@ Used in the Fortran entry in `hs-special-modes-alist'.") ...@@ -622,7 +622,7 @@ Used in the Fortran entry in `hs-special-modes-alist'.")
["72-column window" fortran-window-create t] ["72-column window" fortran-window-create t]
["Full Width Window" ["Full Width Window"
(enlarge-window-horizontally (- (frame-width) (window-width))) (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] ["Momentary 72-column window" fortran-window-create-momentarily t]
"--" "--"
["Break Line at Point" fortran-split-line t] ["Break Line at Point" fortran-split-line t]
...@@ -1010,7 +1010,7 @@ The next key typed is executed unless it is SPC." ...@@ -1010,7 +1010,7 @@ The next key typed is executed unless it is SPC."
See also `fortran-window-create-momentarily'." See also `fortran-window-create-momentarily'."
(interactive) (interactive)
(let ((window-min-width 2)) (let ((window-min-width 2))
(if (< (window-width) (frame-width)) (unless (window-full-width-p)
(enlarge-window-horizontally (- (frame-width) (enlarge-window-horizontally (- (frame-width)
(window-width) 1))) (window-width) 1)))
(let* ((window-edges (window-edges)) (let* ((window-edges (window-edges))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment