[Emacs-diffs] Changes to emacs/lisp/calc/calc-yank.el

[Jay Belanger]

Index: emacs/lisp/calc/calc-yank.el
diff -c emacs/lisp/calc/calc-yank.el:1.17 emacs/lisp/calc/calc-yank.el:1.18
*** emacs/lisp/calc/calc-yank.el:1.17   Wed Apr 27 04:35:16 2005
--- emacs/lisp/calc/calc-yank.el        Mon May  2 19:45:21 2005
***************
*** 1,6 ****
  ;;; calc-yank.el --- kill-ring functionality for Calc
  
! ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.
  
  ;; Author: David Gillespie <address@hidden>
  ;; Maintainer: Jay Belanger <address@hidden>
--- 1,6 ----
  ;;; calc-yank.el --- kill-ring functionality for Calc
  
! ;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2005 Free Software Foundation, 
Inc.
  
  ;; Author: David Gillespie <address@hidden>
  ;; Maintainer: Jay Belanger <address@hidden>
***************
*** 231,237 ****
                        pos j)))))
        (if (string-match "\\` *-?[0-9][0-9]?[0-9]?[0-9]?[0-9]?[0-9]? *\\'"
                          (car data))
!           (setq vals (list 'vec (string-to-int (car data))))
          (if (and (null arg)
                   (string-match "[[{][^][{}]*[]}]" (car data)))
              (setq pos (match-beginning 0)
--- 231,237 ----
                        pos j)))))
        (if (string-match "\\` *-?[0-9][0-9]?[0-9]?[0-9]?[0-9]?[0-9]? *\\'"
                          (car data))
!           (setq vals (list 'vec (string-to-number (car data))))
          (if (and (null arg)
                   (string-match "[[{][^][{}]*[]}]" (car data)))
              (setq pos (match-beginning 0)