/[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.14 by jpb, Thu Nov 11 05:48:50 2004 UTC revision 1.15 by jpb, Tue Nov 23 05:58:20 2004 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  ;; Maintainers: D. Goel <deego@gnufans.org>  ;; Maintainer: Jay Belanger <belanger@truman.edu>
 ;;              Colin Walters <walters@debian.org>  
7    
8  ;; This file is part of GNU Emacs.  ;; This file is part of GNU Emacs.
9    
# Line 473  Line 472 
472          (math-exp-old-pos 0)          (math-exp-old-pos 0)
473          (math-exp-keep-spaces nil)          (math-exp-keep-spaces nil)
474          math-exp-token math-expr-data)          math-exp-token math-expr-data)
475        (setq math-exp-str (math-read-preprocess-string math-exp-str))
476      (if calc-language-input-filter      (if calc-language-input-filter
477          (setq math-exp-str (funcall calc-language-input-filter math-exp-str)))          (setq math-exp-str (funcall calc-language-input-filter math-exp-str)))
478      (while (setq math-exp-token (string-match "\\.\\.\\([^.]\\|.[^.]\\)" math-exp-str))      (while (setq math-exp-token (string-match "\\.\\.\\([^.]\\|.[^.]\\)" math-exp-str))

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

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