Mercurial > emacs

comparison lisp/calc/calc-mode.el @ 58665:eb797263e910

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add a provide statement. (calc-Need-calc-mode): Remove it.
author Jay Belanger <jay.p.belanger@gmail.com>
date Tue, 30 Nov 2004 17:18:19 +0000
parents 4bde174d41de
children 8cb9d2c5b48e f2ebccfa87d4
comparison
equal deleted inserted replaced
58664:f23c98cc77a1 58665:eb797263e910
1 ;;; calc-mode.el --- calculator modes for Calc 1 ;;; calc-mode.el --- calculator modes for Calc
2 2
3 ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. 3 ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.
4 4
5 ;; Author: David Gillespie <daveg@synaptics.com> 5 ;; Author: David Gillespie <daveg@synaptics.com>
6 ;; Maintainers: D. Goel <deego@gnufans.org> 6 ;; Maintainer: Jay Belanger <belanger@truman.edu>
7 ;; Colin Walters <walters@debian.org>
8 7
9 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
10 9
11 ;; GNU Emacs is distributed in the hope that it will be useful, 10 ;; GNU Emacs is distributed in the hope that it will be useful,
12 ;; but WITHOUT ANY WARRANTY. No author or distributor 11 ;; but WITHOUT ANY WARRANTY. No author or distributor
25 24
26 ;;; Commentary: 25 ;;; Commentary:
27 26
28 ;;; Code: 27 ;;; Code:
29 28
30
31 ;; This file is autoloaded from calc-ext.el. 29 ;; This file is autoloaded from calc-ext.el.
30
32 (require 'calc-ext) 31 (require 'calc-ext)
33
34 (require 'calc-macs) 32 (require 'calc-macs)
35
36 (defun calc-Need-calc-mode () nil)
37
38 33
39 (defun calc-line-numbering (n) 34 (defun calc-line-numbering (n)
40 (interactive "P") 35 (interactive "P")
41 (calc-wrapper 36 (calc-wrapper
42 (message (if (calc-change-mode 'calc-line-numbering n t t) 37 (message (if (calc-change-mode 'calc-line-numbering n t t)
670 (bad (string-match "[^rRoOcCpP ]" arg))) 665 (bad (string-match "[^rRoOcCpP ]" arg)))
671 (if bad 666 (if bad
672 (error "Unrecognized character: %c" (aref arg bad))) 667 (error "Unrecognized character: %c" (aref arg bad)))
673 (calc-change-mode 'calc-matrix-brackets code t)))) 668 (calc-change-mode 'calc-matrix-brackets code t))))
674 669
670 (provide 'calc-mode)
671
675 ;;; arch-tag: ecc70eea-c712-43f2-9085-4205e58d6ddf 672 ;;; arch-tag: ecc70eea-c712-43f2-9085-4205e58d6ddf
676 ;;; calc-mode.el ends here 673 ;;; calc-mode.el ends here