1 |
;; Calculator for GNU Emacs, part I [calc-misc.el] |
;; Calculator for GNU Emacs, part I [calc-misc.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. |
108 |
(if cwin |
(if cwin |
109 |
(setq calc-full-mode |
(setq calc-full-mode |
110 |
(if kwin |
(if kwin |
111 |
(and twin (eq (window-width twin) (screen-width))) |
(and twin (eq (window-width twin) (frame-width))) |
112 |
(eq (window-height cwin) (1- (screen-height)))))) |
(eq (window-height cwin) (1- (frame-height)))))) |
113 |
(setq calc-full-mode (if arg |
(setq calc-full-mode (if arg |
114 |
(> (prefix-numeric-value arg) 0) |
(> (prefix-numeric-value arg) 0) |
115 |
(not calc-full-mode))) |
(not calc-full-mode))) |
759 |
|
|
760 |
|
|
761 |
(defun math-do-working (msg arg) |
(defun math-do-working (msg arg) |
762 |
(or executing-macro |
(or executing-kbd-macro |
763 |
(progn |
(progn |
764 |
(calc-set-command-flag 'clear-message) |
(calc-set-command-flag 'clear-message) |
765 |
(if math-working-step |
(if math-working-step |