# HG changeset patch
# User Edward M. Reingold <reingold@emr.cs.iit.edu>
# Date 785108940 0
# Node ID a119e2a45c5fb113bc0e766ad44c4c95e0591ceb
# Parent  9108e45601ba99c5e84a5e7468438624f17bf357
Undefine kill-region and copy-region-as-kill.

diff -r 9108e45601ba -r a119e2a45c5f lisp/calendar/calendar.el
--- a/lisp/calendar/calendar.el	Thu Nov 17 20:12:13 1994 +0000
+++ b/lisp/calendar/calendar.el	Thu Nov 17 21:49:00 1994 +0000
@@ -1387,13 +1387,10 @@
   (if window-system (require 'cal-menu))
   (calendar-for-loop i from 0 to 9 do
        (define-key calendar-mode-map (int-to-string i) 'digit-argument))
-  ;; kill-region and copy-region-as-kill are omitted from this list
-  ;; because they cause an ugly second pane in the Edit menu.
   (let ((l (list 'narrow-to-region 'mark-word 'mark-sexp 'mark-paragraph
                  'mark-defun 'mark-whole-buffer 'mark-page
-                 'downcase-region 'upcase-region
-                 'capitalize-region 'write-region)))
-   
+                 'downcase-region 'upcase-region 'kill-region
+                 'copy-region-as-kill 'capitalize-region 'write-region)))
     (while l
       (substitute-key-definition (car l) 'calendar-not-implemented
 				 calendar-mode-map global-map)