From 1214bb6e49ca390307377712044d73b220025a39 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Mon, 18 Jul 2005 15:16:47 +0000 Subject: [PATCH] (calculator-copy): Delete duplicate words. --- lisp/calculator.el | 4 ++-- 1 file 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 ;; 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) -- 2.39.2