1 |
;; Calculator for GNU Emacs, part I [calc-aent.el] |
;; Calculator for GNU Emacs, part I [calc-aent.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. |
298 |
|
|
299 |
(defun calc-do-alg-entry (&optional initial prompt no-normalize) |
(defun calc-do-alg-entry (&optional initial prompt no-normalize) |
300 |
(let* ((calc-buffer (current-buffer)) |
(let* ((calc-buffer (current-buffer)) |
301 |
(blink-paren-hook 'calcAlg-blink-matching-open) |
(blink-paren-function 'calcAlg-blink-matching-open) |
302 |
(alg-exp 'error)) |
(alg-exp 'error)) |
303 |
(if (boundp 'calc-alg-ent-map) |
(if (boundp 'calc-alg-ent-map) |
304 |
() |
() |