1 |
;; Calculator for GNU Emacs, part II [calc-graph.el] |
;; Calculator for GNU Emacs, part II [calc-graph.el] |
2 |
;; Copyright (C) 1990, 1991, 1992, 1993 Free Software Foundation, Inc. |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. |
3 |
;; Written by Dave Gillespie, daveg@synaptics.com. |
;; Written by Dave Gillespie, daveg@synaptics.com. |
4 |
|
|
5 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
352 |
"dumb" "postscript"))))) |
"dumb" "postscript"))))) |
353 |
(if (equal device "dumb") |
(if (equal device "dumb") |
354 |
(setq device (format "dumb %d %d" |
(setq device (format "dumb %d %d" |
355 |
(1- (screen-width)) (1- (screen-height))))) |
(1- (frame-width)) (1- (frame-height))))) |
356 |
(if (equal device "big") |
(if (equal device "big") |
357 |
(setq device (format "dumb %d %d" |
(setq device (format "dumb %d %d" |
358 |
(* 4 (- (screen-width) 3)) |
(* 4 (- (frame-width) 3)) |
359 |
(* 4 (- (screen-height) 3))))) |
(* 4 (- (frame-height) 3))))) |
360 |
(if (stringp output) |
(if (stringp output) |
361 |
(if (or (equal output "auto") |
(if (or (equal output "auto") |
362 |
(and (equal output "tty") (setq tty-output t))) |
(and (equal output "tty") (setq tty-output t))) |
1370 |
(set-window-buffer win buf) |
(set-window-buffer win buf) |
1371 |
(if (eq major-mode 'calc-mode) |
(if (eq major-mode 'calc-mode) |
1372 |
(if (or need |
(if (or need |
1373 |
(< (window-height) (1- (screen-height)))) |
(< (window-height) (1- (frame-height)))) |
1374 |
(display-buffer buf)) |
(display-buffer buf)) |
1375 |
(switch-to-buffer buf))))) |
(switch-to-buffer buf))))) |
1376 |
(save-excursion |
(save-excursion |