From 8f12817f58a31ed02ebbeb425069209823360ea1 Mon Sep 17 00:00:00 2001 From: "Edward M. Reingold" Date: Thu, 17 Nov 1994 21:49:00 +0000 Subject: [PATCH] Undefine kill-region and copy-region-as-kill. --- lisp/calendar/calendar.el | 7 ++----- 1 file 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) -- 2.39.5