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

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

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

revision 1.8 by pj, Thu Dec 20 18:50:30 2001 UTC revision 1.9 by schwab, Fri Feb 8 12:32:00 2002 UTC
# Line 1  Line 1 
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>
# Line 2076  If mouse is pressed in Calc window, push Line 2076  If mouse is pressed in Calc window, push
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)

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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