1 |
;;; calc.el --- the GNU Emacs calculator |
;;; calc.el --- the GNU Emacs calculator |
2 |
|
|
3 |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: David Gillespie <daveg@synaptics.com> |
;; Author: David Gillespie <daveg@synaptics.com> |
6 |
;; Maintainer: Colin Walters <walters@debian.org> |
;; Maintainer: Colin Walters <walters@debian.org> |
2076 |
(setq last-command-char (upcase last-command-char))) |
(setq last-command-char (upcase last-command-char))) |
2077 |
(cond |
(cond |
2078 |
((memq last-command-char '(?_ ?n)) |
((memq last-command-char '(?_ ?n)) |
2079 |
(goto-char (point-min)) |
(goto-char (minibuffer-prompt-end)) |
2080 |
(if (and (search-forward " +/- " nil t) |
(if (and (search-forward " +/- " nil t) |
2081 |
(not (search-forward "e" nil t))) |
(not (search-forward "e" nil t))) |
2082 |
(beep) |
(beep) |