Undefine kill-region and copy-region-as-kill.

1 files changed, 2 insertions, 5 deletions

diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 045d8b02927..28dcfc46039 100644
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -1387,13 +1387,10 @@ the inserted text.  Value is always t."
   (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)