Commit 1214bb6e authored by Juri Linkov's avatar Juri Linkov
Browse files

(calculator-copy): Delete duplicate words.

parent 8ff67d13
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment