/[emacs]/emacs/lisp/calc/calc-aent.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-aent.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by walters, Mon Nov 19 07:30:57 2001 UTC revision 1.5.4.1 by miles, Fri Apr 4 06:20:15 2003 UTC
# Line 3  Line 3 
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    
# Line 431  Line 432 
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))

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.5.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26