From: Juri Linkov Date: Mon, 18 Jul 2005 15:16:47 +0000 (+0000) Subject: (calculator-copy): Delete duplicate words. X-Git-Tag: emacs-pretest-22.0.90~8047 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1214bb6e49ca390307377712044d73b220025a39;p=emacs.git (calculator-copy): Delete duplicate words. --- 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 ;; 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)