X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/d88757d61b84855d9860155c424ab6bfdcf5a77d..fbb63435176d3614d3603b675784122bf50d22b1:/lisp/calculator.el diff --git a/lisp/calculator.el b/lisp/calculator.el index 301a27eac5..b9ba03f657 100644 --- a/lisp/calculator.el +++ b/lisp/calculator.el @@ -1,10 +1,11 @@ ;;; calculator.el --- a [not so] simple calculator for Emacs -;; Copyright (C) 1998, 2000, 2001 by Free Software Foundation, Inc. +;; Copyright (C) 1998, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Eli Barzilay ;; Keywords: tools, convenience -;; Time-stamp: <26 May 2005, 14:32:34, Lute Kamstra, pijl> +;; Time-stamp: <2005-07-18 17:45:34 juri> ;; This file is part of GNU Emacs. @@ -1594,7 +1595,7 @@ Optional string argument KEYS will force using it as the keys entered." (calculator-displayers (if calculator-copy-displayer nil calculator-displayers))) (calculator-enter) - ;; remove trailing spaces and and an index + ;; remove trailing spaces and an index (let ((s (cdr calculator-stack-display))) (and s (if (string-match "^\\([^ ]+\\) *\\(\\[[0-9/]+\\]\\)? *$" s)