1 |
;; Calculator for GNU Emacs, part I [calc-misc.el] |
;;; calc-misc.el --- miscellaenous functions for Calc |
2 |
|
|
3 |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. |
4 |
;; Written by Dave Gillespie, daveg@synaptics.com. |
|
5 |
|
;; Author: David Gillespie <daveg@synaptics.com> |
6 |
|
;; Maintainer: Colin Walters <walters@debian.org> |
7 |
|
|
8 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
9 |
|
|
22 |
;; file named COPYING. Among other things, the copyright notice |
;; file named COPYING. Among other things, the copyright notice |
23 |
;; and this notice must be preserved on all copies. |
;; and this notice must be preserved on all copies. |
24 |
|
|
25 |
|
;;; Commentary: |
26 |
|
|
27 |
|
;;; Code: |
28 |
|
|
29 |
;; This file is autoloaded from calc.el. |
;; This file is autoloaded from calc.el. |
30 |
(require 'calc) |
(require 'calc) |
126 |
(calc-quit) |
(calc-quit) |
127 |
(calc nil calc-full-mode nil)))) |
(calc nil calc-full-mode nil)))) |
128 |
(message (if calc-full-mode |
(message (if calc-full-mode |
129 |
"Now using full screen for Calc." |
"Now using full screen for Calc" |
130 |
"Now using partial screen for Calc.")))) |
"Now using partial screen for Calc")))) |
131 |
|
|
132 |
(defun calc-other-window () |
(defun calc-other-window () |
133 |
"Invoke the Calculator in another window." |
"Invoke the Calculator in another window." |
635 |
((equal a '(var inf var-inf)) t)) |
((equal a '(var inf var-inf)) t)) |
636 |
(> a 0))) |
(> a 0))) |
637 |
|
|
638 |
(defalias math-fixnump 'integerp) |
(defalias 'math-fixnump 'integerp) |
639 |
(defalias math-fixnatnump 'natnump) |
(defalias 'math-fixnatnump 'natnump) |
640 |
|
|
641 |
|
|
642 |
;;; True if A is an even integer. [P R R] [Public] |
;;; True if A is an even integer. [P R R] [Public] |
683 |
(math-scale-int (nth 1 a) (nth 2 a))) |
(math-scale-int (nth 1 a) (nth 2 a))) |
684 |
(t (calc-extensions) |
(t (calc-extensions) |
685 |
(math-trunc-fancy a)))) |
(math-trunc-fancy a)))) |
686 |
(defalias calcFunc-trunc 'math-trunc) |
(defalias 'calcFunc-trunc 'math-trunc) |
687 |
|
|
688 |
;;; Coerce A to be an integer (by truncation toward minus infinity). [I N] |
;;; Coerce A to be an integer (by truncation toward minus infinity). [I N] |
689 |
(defun math-floor (a &optional prec) ; [Public] |
(defun math-floor (a &optional prec) ; [Public] |
698 |
(math-trunc a))) |
(math-trunc a))) |
699 |
(t (calc-extensions) |
(t (calc-extensions) |
700 |
(math-floor-fancy a)))) |
(math-floor-fancy a)))) |
701 |
(defalias calcFunc-floor 'math-floor) |
(defalias 'calcFunc-floor 'math-floor) |
702 |
|
|
703 |
|
|
704 |
(defun math-imod (a b) ; [I I I] [Public] |
(defun math-imod (a b) ; [I I I] [Public] |
826 |
(mail nil calc-bug-address topic) |
(mail nil calc-bug-address topic) |
827 |
(goto-char (point-max)) |
(goto-char (point-max)) |
828 |
(insert "\nIn Calc " calc-version ", Emacs " (emacs-version) "\n\n") |
(insert "\nIn Calc " calc-version ", Emacs " (emacs-version) "\n\n") |
829 |
(message (substitute-command-keys "Type \\[mail-send] to send bug report."))) |
(message (substitute-command-keys "Type \\[mail-send] to send bug report"))) |
830 |
(defalias calc-report-bug 'report-calc-bug) |
(defalias 'calc-report-bug 'report-calc-bug) |
831 |
|
|
832 |
;;; calc-misc.el ends here |
;;; calc-misc.el ends here |