/[emacs]/emacs/lisp/calc/calc-ext.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-ext.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.32 by jpb, Sun Jan 9 15:55:08 2005 UTC revision 1.33 by jpb, Mon Jan 10 16:54:15 2005 UTC
# Line 1263  calc-kill calc-kill-region calc-yank)))) Line 1263  calc-kill calc-kill-region calc-yank))))
1263    (calc-wrapper    (calc-wrapper
1264     (let ((win (get-buffer-window (current-buffer))))     (let ((win (get-buffer-window (current-buffer))))
1265       (calc-realign 0)       (calc-realign 0)
1266       (if win       ;; Adjust the window height if the window is visible, but doesn't
1267         ;; take up the whole height of the frame.
1268         (if (and
1269              win
1270              (< (window-height win) (1- (frame-height))))
1271           (let ((height (- (window-height win) 2)))           (let ((height (- (window-height win) 2)))
1272             (set-window-point win (point))             (set-window-point win (point))
1273             (or (= height calc-window-height)             (or (= height calc-window-height)

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26