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. |
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")))) |