Index: emacs/lisp/calculator.el
diff -c emacs/lisp/calculator.el:1.19 emacs/lisp/calculator.el:1.20
*** emacs/lisp/calculator.el:1.19 Sat Jul 16 17:31:53 2005
--- emacs/lisp/calculator.el Mon Jul 18 15:16:47 2005
***************
*** 4,10 ****
;; Author: Eli Barzilay <[EMAIL PROTECTED]>
;; Keywords: tools, convenience
! ;; Time-stamp: <26 May 2005, 14:32:34, Lute Kamstra, pijl>
;; This file is part of GNU Emacs.
--- 4,10 ----
;; Author: Eli Barzilay <[EMAIL PROTECTED]>
;; Keywords: tools, convenience
! ;; Time-stamp: <2005-07-18 17:45:34 juri>
;; This file is part of GNU Emacs.
***************
*** 1594,1600 ****
(calculator-displayers
(if calculator-copy-displayer nil calculator-displayers)))
(calculator-enter)
! ;; remove trailing spaces and and an index
(let ((s (cdr calculator-stack-display)))
(and s
(if (string-match "^\\([^ ]+\\) *\\(\\[[0-9/]+\\]\\)? *$" s)
--- 1594,1600 ----
(calculator-displayers
(if calculator-copy-displayer nil calculator-displayers)))
(calculator-enter)
! ;; remove trailing spaces and an index
(let ((s (cdr calculator-stack-display)))
(and s
(if (string-match "^\\([^ ]+\\) *\\(\\[[0-9/]+\\]\\)? *$" s)
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
