[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calc/calc-misc.el
From: |
Colin Walters |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calc/calc-misc.el |
Date: |
Mon, 19 Nov 2001 02:36:42 -0500 |
Index: emacs/lisp/calc/calc-misc.el
diff -u emacs/lisp/calc/calc-misc.el:1.3 emacs/lisp/calc/calc-misc.el:1.4
--- emacs/lisp/calc/calc-misc.el:1.3 Wed Nov 14 04:06:05 2001
+++ emacs/lisp/calc/calc-misc.el Mon Nov 19 02:36:42 2001
@@ -1,6 +1,9 @@
-;; Calculator for GNU Emacs, part I [calc-misc.el]
+;;; calc-misc.el --- miscellaenous functions for Calc
+
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.
-;; Written by Dave Gillespie, address@hidden
+
+;; Author: David Gillespie <address@hidden>
+;; Maintainer: Colin Walters <address@hidden>
;; This file is part of GNU Emacs.
@@ -19,7 +22,9 @@
;; file named COPYING. Among other things, the copyright notice
;; and this notice must be preserved on all copies.
+;;; Commentary:
+;;; Code:
;; This file is autoloaded from calc.el.
(require 'calc)
@@ -121,8 +126,8 @@
(calc-quit)
(calc nil calc-full-mode nil))))
(message (if calc-full-mode
- "Now using full screen for Calc."
- "Now using partial screen for Calc."))))
+ "Now using full screen for Calc"
+ "Now using partial screen for Calc"))))
(defun calc-other-window ()
"Invoke the Calculator in another window."
@@ -630,8 +635,8 @@
((equal a '(var inf var-inf)) t))
(> a 0)))
-(defalias math-fixnump 'integerp)
-(defalias math-fixnatnump 'natnump)
+(defalias 'math-fixnump 'integerp)
+(defalias 'math-fixnatnump 'natnump)
;;; True if A is an even integer. [P R R] [Public]
@@ -678,7 +683,7 @@
(math-scale-int (nth 1 a) (nth 2 a)))
(t (calc-extensions)
(math-trunc-fancy a))))
-(defalias calcFunc-trunc 'math-trunc)
+(defalias 'calcFunc-trunc 'math-trunc)
;;; Coerce A to be an integer (by truncation toward minus infinity). [I N]
(defun math-floor (a &optional prec) ; [Public]
@@ -693,7 +698,7 @@
(math-trunc a)))
(t (calc-extensions)
(math-floor-fancy a))))
-(defalias calcFunc-floor 'math-floor)
+(defalias 'calcFunc-floor 'math-floor)
(defun math-imod (a b) ; [I I I] [Public]
@@ -821,7 +826,7 @@
(mail nil calc-bug-address topic)
(goto-char (point-max))
(insert "\nIn Calc " calc-version ", Emacs " (emacs-version) "\n\n")
- (message (substitute-command-keys "Type \\[mail-send] to send bug report.")))
-(defalias calc-report-bug 'report-calc-bug)
+ (message (substitute-command-keys "Type \\[mail-send] to send bug report")))
+(defalias 'calc-report-bug 'report-calc-bug)
;;; calc-misc.el ends here