Mercurial > emacs
changeset 64440:41bfd05eff2a
(calculator-copy): Delete duplicate words.
author | Juri Linkov <juri@jurta.org> |
---|---|
date | Mon, 18 Jul 2005 15:16:47 +0000 |
parents | 8ec39ac5cfc8 |
children | d0cd5eb4d042 |
files | lisp/calculator.el |
diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calculator.el Mon Jul 18 15:15:19 2005 +0000 +++ b/lisp/calculator.el Mon Jul 18 15:16:47 2005 +0000 @@ -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 @@ (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)