Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
eaf9b564
Commit
eaf9b564
authored
Oct 06, 2009
by
Glenn Morris
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Use window-full-height-p.
parent
25ab0302
Changes
9
Hide whitespace changes
Inline
Side-by-side
Showing
9 changed files
with
27 additions
and
14 deletions
+27
-14
lisp/ChangeLog
lisp/ChangeLog
+8
-0
lisp/calc/calc-ext.el
lisp/calc/calc-ext.el
+1
-1
lisp/calc/calc-graph.el
lisp/calc/calc-graph.el
+1
-1
lisp/calc/calc-misc.el
lisp/calc/calc-misc.el
+2
-2
lisp/calc/calc.el
lisp/calc/calc.el
+1
-1
lisp/calendar/calendar.el
lisp/calendar/calendar.el
+2
-2
lisp/emerge.el
lisp/emerge.el
+3
-4
lisp/mh-e/ChangeLog
lisp/mh-e/ChangeLog
+4
-0
lisp/mh-e/mh-show.el
lisp/mh-e/mh-show.el
+5
-3
No files found.
lisp/ChangeLog
View file @
eaf9b564
2009-10-06 Glenn Morris <rgm@gnu.org>
* emerge.el (emerge-show-file-name):
* calc/calc.el (calc-quit):
* calc/calc-misc.el (calc-big-or-small):
* calc/calc-graph.el (calc-graph-view):
* calc/calc-ext.el (calc-reset):
* calendar/calendar.el (calendar-basic-setup):
Use window-full-height-p.
* mail/rmailedit.el (rmail-cease-edit): If there is a Content-Type
header we don't understand, don't insert another. (Bug#4624)
If changing mime charset, insert the new one in the right place.
...
...
lisp/calc/calc-ext.el
View file @
eaf9b564
...
...
@@ -1343,7 +1343,7 @@ calc-kill calc-kill-region calc-yank))))
;; take up the whole height of the frame.
(
if
(
and
win
(
<
(
window-
height
win
)
(
1-
(
frame
-height
)
)))
(
not
(
window-
full
-height
-p
)))
(
let
((
height
(
-
(
window-height
win
)
2
)))
(
set-window-point
win
(
point
))
(
or
(
=
height
calc-window-height
)
...
...
lisp/calc/calc-graph.el
View file @
eaf9b564
...
...
@@ -1388,7 +1388,7 @@ This \"dumb\" driver will be present in Gnuplot 3.0."
(
set-window-buffer
win
buf
)
(
if
(
eq
major-mode
'calc-mode
)
(
if
(
or
need
(
<
(
window-
height
)
(
1-
(
frame
-height
)
)))
(
not
(
window-
full
-height
-p
)))
(
display-buffer
buf
))
(
switch-to-buffer
buf
)))))
(
save-excursion
...
...
lisp/calc/calc-misc.el
View file @
eaf9b564
...
...
@@ -140,8 +140,8 @@ Calc user interface as before (either C-x * C or C-x * K; initially C-x * C).
(
if
cwin
(
setq
calc-full-mode
(
if
kwin
(
and
twin
(
eq
(
window-width
twin
)
(
frame-width
))
)
(
eq
(
window-height
cwin
)
(
1-
(
frame-height
)))
)))
(
and
twin
(
window-
full-
width
-p
twin
))
(
window-
full-
height
-p
cwin
))))
(
setq
calc-full-mode
(
if
arg
(
>
(
prefix-numeric-value
arg
)
0
)
(
not
calc-full-mode
)))
...
...
lisp/calc/calc.el
View file @
eaf9b564
...
...
@@ -1496,7 +1496,7 @@ commands given here will actually operate on the *Calculator* stack."
;; next time Calc is called, the window will be the same size
;; as the current window.
(
if
(
and
win
(
<
(
window-height
win
)
(
1-
(
frame-height
))
)
(
not
(
window-
full-
height
-p
win
))
(
window-full-width-p
win
)
; avoid calc-keypad
(
not
(
get-buffer-window
"*Calc Keypad*"
)))
(
setq
calc-window-height
(
-
(
window-height
win
)
2
)))
...
...
lisp/calendar/calendar.el
View file @
eaf9b564
...
...
@@ -1320,9 +1320,9 @@ display the generated calendar."
;; Is this a wide frame? If so, split it horizontally.
(
if
(
window-splittable-p
t
)
(
split-window-horizontally
))
(
pop-to-buffer
calendar-buffer
)
;; Has the window already been split vertically?
(See bug#4543)
;; Has the window already been split vertically?
(
when
(
and
(
not
(
window-dedicated-p
))
(
=
(
window-
height
)
(
window-height
(
frame-root-window
))
))
(
window-
full-height-p
))
(
let
((
win
(
split-window-vertically
)))
;; Show something else in the upper window.
(
switch-to-buffer
(
other-buffer
))
...
...
lisp/emerge.el
View file @
eaf9b564
...
...
@@ -3103,10 +3103,9 @@ SPC, it is ignored; if it is anything else, it is processed as a command."
(
progn
(
erase-buffer
)
(
insert
name
)
(
if
(
not
(
pos-visible-in-window-p
))
(
while
(
and
(
not
(
pos-visible-in-window-p
))
(
>
(
1-
(
frame-height
))
(
window-height
)))
(
enlarge-window
1
)))
(
while
(
and
(
not
(
pos-visible-in-window-p
))
(
not
(
window-full-height-p
)))
(
enlarge-window
1
))
(
let*
((
echo-keystrokes
0
)
(
c
(
read-event
)))
(
if
(
not
(
eq
c
32
))
...
...
lisp/mh-e/ChangeLog
View file @
eaf9b564
2009
-
10
-
06
Glenn
Morris
<
rgm
@
gnu
.
org
>
*
mh
-
show
.
el
(
mh
-
show
-
msg
):
Use
window
-
full
-
height
-
p
.
2009
-
08
-
28
Stefan
Monnier
<
monnier
@
iro
.
umontreal
.
ca
>
*
mh
-
comp
.
el
(
mh
-
send
-
letter
):
default
-
buffer
-
file
-
coding
-
system
...
...
lisp/mh-e/mh-show.el
View file @
eaf9b564
...
...
@@ -148,9 +148,11 @@ displayed."
(
if
(
not
clean-message-header
)
(
mh-start-of-uncleaned-message
)))
(
mh-display-msg
msg
folder
)))
(
if
(
not
(
=
(
1+
(
window-height
))
(
frame-height
)))
;not horizontally split
(
shrink-window
(
-
(
window-height
)
(
or
mh-summary-height
(
mh-summary-height
)))))
(
unless
(
if
(
fbound
'window-full-height-p
)
(
window-full-height-p
)
(
=
(
1+
(
window-height
))
(
frame-height
)))
; not vertically split
(
shrink-window
(
-
(
window-height
)
(
or
mh-summary-height
(
mh-summary-height
)))))
(
mh-recenter
nil
)
;; The following line is a nop which forces update of the scan line so
;; that font-lock will update it (if needed)...
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment