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

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

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

revision 1.10 by jpb, Tue Nov 30 17:02:05 2004 UTC revision 1.11 by jpb, Mon May 2 19:41:27 2005 UTC
# Line 1  Line 1 
1  ;;; calc-bin.el --- binary functions for Calc  ;;; calc-bin.el --- binary functions for Calc
2    
3  ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.  ;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2005 Free Software Foundation, Inc.
4    
5  ;; Author: David Gillespie <daveg@synaptics.com>  ;; Author: David Gillespie <daveg@synaptics.com>
6  ;; Maintainer: Jay Belanger <belanger@truman.edu>  ;; Maintainer: Jay Belanger <belanger@truman.edu>
# Line 135  Line 135 
135                 (if (equal n "")                 (if (equal n "")
136                     calc-word-size                     calc-word-size
137                   (if (string-match "\\`[-+]?[0-9]+\\'" n)                   (if (string-match "\\`[-+]?[0-9]+\\'" n)
138                       (string-to-int n)                       (string-to-number n)
139                     (error "Expected an integer")))                     (error "Expected an integer")))
140               (prefix-numeric-value n)))               (prefix-numeric-value n)))
141     (or (= n calc-word-size)     (or (= n calc-word-size)

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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