diff options
| author | Colin Walters <walters@gnu.org> | 2001-11-19 07:44:56 +0000 |
|---|---|---|
| committer | Colin Walters <walters@gnu.org> | 2001-11-19 07:44:56 +0000 |
| commit | 3132f345bc1ab68e4425178266e3d4ad1b2ccd02 (patch) | |
| tree | 43339ccf578fb555b44dd0c84aa0e7b0389dc8b0 /lisp/calc/calc-cplx.el | |
| parent | f269b73e3ea3de8c539d544fd0310b63fc029f20 (diff) | |
| download | emacs-3132f345bc1ab68e4425178266e3d4ad1b2ccd02.tar.gz | |
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.
Diffstat (limited to 'lisp/calc/calc-cplx.el')
| -rw-r--r-- | lisp/calc/calc-cplx.el | 19 |
1 files changed, 12 insertions, 7 deletions
diff --git a/lisp/calc/calc-cplx.el b/lisp/calc/calc-cplx.el index df0ebffc74b..e888758ae0d 100644 --- a/lisp/calc/calc-cplx.el +++ b/lisp/calc/calc-cplx.el @@ -1,6 +1,9 @@ -;; Calculator for GNU Emacs, part II [calc-cplx.el] +;;; calc-cplx.el --- Complex number functions for Calc + ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. -;; Written by Dave Gillespie, daveg@synaptics.com. + +;; Author: David Gillespie <daveg@synaptics.com> +;; Maintainer: Colin Walters <walters@debian.org> ;; 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-ext.el. (require 'calc-ext) @@ -61,19 +66,19 @@ (interactive) (calc-wrapper (calc-change-mode 'calc-complex-format nil t) - (message "Displaying complex numbers in (X,Y) format."))) + (message "Displaying complex numbers in (X,Y) format"))) (defun calc-i-notation () (interactive) (calc-wrapper (calc-change-mode 'calc-complex-format 'i t) - (message "Displaying complex numbers in X+Yi format."))) + (message "Displaying complex numbers in X+Yi format"))) (defun calc-j-notation () (interactive) (calc-wrapper (calc-change-mode 'calc-complex-format 'j t) - (message "Displaying complex numbers in X+Yj format."))) + (message "Displaying complex numbers in X+Yj format"))) (defun calc-polar-mode (n) @@ -84,9 +89,9 @@ (eq calc-complex-mode 'cplx)) (progn (calc-change-mode 'calc-complex-mode 'polar) - (message "Preferred complex form is polar.")) + (message "Preferred complex form is polar")) (calc-change-mode 'calc-complex-mode 'cplx) - (message "Preferred complex form is rectangular.")))) + (message "Preferred complex form is rectangular")))) ;;;; Complex numbers. |