diff options
author | Colin Walters <[email protected]> | 2001-11-19 07:36:42 +0000 |
---|---|---|
committer | Colin Walters <[email protected]> | 2001-11-19 07:36:42 +0000 |
commit | dac12d8087da08547a20840e8fd8a520c7a6ad37 (patch) | |
tree | 3fb7a2fb5d22ddeac66eccfc620fecfb65f4dd03 | |
parent | 3e3b3c7e386d4345dfb2d7537341de49ca4a3aac (diff) |
(math-fixnump, math-fixnatnump, calcFunc-trunc)
(calcFunc-floor): Ditto.
Change all toplevel `setq' forms to `defvar' forms, and move them
before their first use. Use `when', `unless'. Remove trailing
periods from error forms. Add description and headers suggested by
Emacs Lisp coding conventions.
-rw-r--r-- | lisp/calc/calc-misc.el | 25 |
1 files changed, 15 insertions, 10 deletions
diff --git a/lisp/calc/calc-misc.el b/lisp/calc/calc-misc.el index d1cecd2c70..226ba02de2 100644 --- a/lisp/calc/calc-misc.el +++ b/lisp/calc/calc-misc.el @@ -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, [email protected]. + +;; Author: David Gillespie <[email protected]> +;; Maintainer: Colin Walters <[email protected]> ;; 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 user interface as before (either M-# C or M-# K; initially M-# C)." (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 @@ loaded and the keystroke automatically re-typed." ((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 @@ loaded and the keystroke automatically re-typed." (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 @@ loaded and the keystroke automatically re-typed." (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 @@ Prompts for bug subject. Leaves you in a mail buffer." (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 |