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

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

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

revision 1.3 by walters, Wed Nov 14 09:06:05 2001 UTC revision 1.4 by walters, Mon Nov 19 07:36:42 2001 UTC
# Line 1  Line 1 
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    
# Line 19  Line 22 
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)
# Line 121  Calc user interface as before (either M- Line 126  Calc user interface as before (either M-
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."
# Line 630  loaded and the keystroke automatically r Line 635  loaded and the keystroke automatically r
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]
# Line 678  loaded and the keystroke automatically r Line 683  loaded and the keystroke automatically r
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]
# Line 693  loaded and the keystroke automatically r Line 698  loaded and the keystroke automatically r
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]
# Line 821  Prompts for bug subject.  Leaves you in Line 826  Prompts for bug subject.  Leaves you in
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

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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