Mercurial > emacs
comparison lisp/calc/calc-yank.el @ 58679:9a7f5565091f
Add a provide statement.
(calc-Need-calc-yank): Remove it.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Tue, 30 Nov 2004 17:29:04 +0000 |
| parents | e4aa15831776 |
| children | 6841983190b8 f2ebccfa87d4 |
comparison
equal
deleted
inserted
replaced
| 58678:0f17749c4df5 | 58679:9a7f5565091f |
|---|---|
| 25 ;;; Commentary: | 25 ;;; Commentary: |
| 26 | 26 |
| 27 ;;; Code: | 27 ;;; Code: |
| 28 | 28 |
| 29 ;; This file is autoloaded from calc-ext.el. | 29 ;; This file is autoloaded from calc-ext.el. |
| 30 | |
| 30 (require 'calc-ext) | 31 (require 'calc-ext) |
| 31 | |
| 32 (require 'calc-macs) | 32 (require 'calc-macs) |
| 33 | |
| 34 (defun calc-Need-calc-yank () nil) | |
| 35 | |
| 36 | 33 |
| 37 ;;; Kill ring commands. | 34 ;;; Kill ring commands. |
| 38 | 35 |
| 39 (defun calc-kill (nn &optional no-delete) | 36 (defun calc-kill (nn &optional no-delete) |
| 40 (interactive "P") | 37 (interactive "P") |
| 579 calc-simplify-mode))) | 576 calc-simplify-mode))) |
| 580 (if (>= num 0) | 577 (if (>= num 0) |
| 581 (calc-enter-result num "edit" vals) | 578 (calc-enter-result num "edit" vals) |
| 582 (calc-enter-result 1 "edit" vals (- num)))))))))) | 579 (calc-enter-result 1 "edit" vals (- num)))))))))) |
| 583 | 580 |
| 581 (provide 'calc-yank) | |
| 582 | |
| 584 ;;; arch-tag: ca61019e-caca-4daa-b32c-b6afe372d5b5 | 583 ;;; arch-tag: ca61019e-caca-4daa-b32c-b6afe372d5b5 |
| 585 ;;; calc-yank.el ends here | 584 ;;; calc-yank.el ends here |