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

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

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

revision 1.1 by eliz, Tue Nov 6 18:59:06 2001 UTC revision 1.2 by eliz, Tue Nov 13 07:30:25 2001 UTC
# Line 1  Line 1 
1  ;; Calculator for GNU Emacs, part II [calc-sel.el]  ;; Calculator for GNU Emacs, part II [calc-sel.el]
2  ;; Copyright (C) 1990, 1991, 1992, 1993 Free Software Foundation, Inc.  ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.
3  ;; Written by Dave Gillespie, daveg@synaptics.com.  ;; Written by Dave Gillespie, daveg@synaptics.com.
4    
5  ;; This file is part of GNU Emacs.  ;; This file is part of GNU Emacs.
# Line 672  Line 672 
672            (sel (or (calc-auto-selection entry) expr))            (sel (or (calc-auto-selection entry) expr))
673            alg)            alg)
674       (let ((str (math-showing-full-precision       (let ((str (math-showing-full-precision
675                   (math-format-nice-expr sel (screen-width)))))                   (math-format-nice-expr sel (frame-width)))))
676         (calc-edit-mode (list 'calc-finish-selection-edit         (calc-edit-mode (list 'calc-finish-selection-edit
677                               num (list 'quote sel) reselect))                               num (list 'quote sel) reselect))
678         (insert str "\n"))))         (insert str "\n"))))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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