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 <[EMAIL PROTECTED]>
;; Maintainer: Jay Belanger <[EMAIL PROTECTED]>
--- 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 <[EMAIL PROTECTED]>
;; Maintainer: Jay Belanger <[EMAIL PROTECTED]>
***************
*** 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)
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
