diff options
| author | Juri Linkov <juri@jurta.org> | 2005-07-18 15:16:47 +0000 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2005-07-18 15:16:47 +0000 |
| commit | 1214bb6e49ca390307377712044d73b220025a39 (patch) | |
| tree | bb74247ed430e86cc03d0936352d81782c2232ec /lisp/calculator.el | |
| parent | 8ff67d1374bd210eddd2f0021cae843b359135fe (diff) | |
| download | emacs-1214bb6e49ca390307377712044d73b220025a39.tar.gz | |
(calculator-copy): Delete duplicate words.
Diffstat (limited to 'lisp/calculator.el')
| -rw-r--r-- | lisp/calculator.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/calculator.el b/lisp/calculator.el index 301a27eac5f..4210fad2ec9 100644 --- a/lisp/calculator.el +++ b/lisp/calculator.el @@ -4,7 +4,7 @@ ;; Author: Eli Barzilay <eli@barzilay.org> ;; 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 +1594,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) |