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

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

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

revision 1.1 by eliz, Tue Nov 6 18:59:06 2001 UTC revision 1.2 by eliz, Tue Nov 13 07:28:37 2001 UTC
# Line 1  Line 1 
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.
# Line 352  Line 352 
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)))
# Line 1370  This \"dumb\" driver will be present in Line 1370  This \"dumb\" driver will be present in
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

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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