3 |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Dave Gillespie <daveg@synaptics.com> |
;; Author: Dave Gillespie <daveg@synaptics.com> |
6 |
;; Maintainer: Colin Walters <walters@debian.org> |
;; Maintainers: D. Goel <deego@gnufans.org> |
7 |
|
;; Colin Walters <walters@debian.org> |
8 |
|
|
9 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
10 |
|
|
432 |
|
|
433 |
|
|
434 |
(defun calc-alg-digit-entry () |
(defun calc-alg-digit-entry () |
435 |
(calc-alg-entry |
(calc-alg-entry |
436 |
(cond ((eq last-command-char ?e) |
(cond ((eq last-command-char ?e) |
437 |
(if (> calc-number-radix 14) (format "%d.^" calc-number-radix) "1e")) |
(if (> calc-number-radix 14) (format "%d.^" calc-number-radix) "1e")) |
438 |
((eq last-command-char ?#) (format "%d#" calc-number-radix)) |
((eq last-command-char ?#) (format "%d#" calc-number-radix)) |