Mercurial > emacs
comparison lisp/calendar/calendar.el @ 9998:a119e2a45c5f
Undefine kill-region and copy-region-as-kill.
| author | Edward M. Reingold <reingold@emr.cs.iit.edu> |
|---|---|
| date | Thu, 17 Nov 1994 21:49:00 +0000 |
| parents | addf04676b54 |
| children | 37edcffcf005 |
comparison
equal
deleted
inserted
replaced
| 9997:9108e45601ba | 9998:a119e2a45c5f |
|---|---|
| 1385 nil | 1385 nil |
| 1386 (setq calendar-mode-map (make-sparse-keymap)) | 1386 (setq calendar-mode-map (make-sparse-keymap)) |
| 1387 (if window-system (require 'cal-menu)) | 1387 (if window-system (require 'cal-menu)) |
| 1388 (calendar-for-loop i from 0 to 9 do | 1388 (calendar-for-loop i from 0 to 9 do |
| 1389 (define-key calendar-mode-map (int-to-string i) 'digit-argument)) | 1389 (define-key calendar-mode-map (int-to-string i) 'digit-argument)) |
| 1390 ;; kill-region and copy-region-as-kill are omitted from this list | |
| 1391 ;; because they cause an ugly second pane in the Edit menu. | |
| 1392 (let ((l (list 'narrow-to-region 'mark-word 'mark-sexp 'mark-paragraph | 1390 (let ((l (list 'narrow-to-region 'mark-word 'mark-sexp 'mark-paragraph |
| 1393 'mark-defun 'mark-whole-buffer 'mark-page | 1391 'mark-defun 'mark-whole-buffer 'mark-page |
| 1394 'downcase-region 'upcase-region | 1392 'downcase-region 'upcase-region 'kill-region |
| 1395 'capitalize-region 'write-region))) | 1393 'copy-region-as-kill 'capitalize-region 'write-region))) |
| 1396 | |
| 1397 (while l | 1394 (while l |
| 1398 (substitute-key-definition (car l) 'calendar-not-implemented | 1395 (substitute-key-definition (car l) 'calendar-not-implemented |
| 1399 calendar-mode-map global-map) | 1396 calendar-mode-map global-map) |
| 1400 (setq l (cdr l)))) | 1397 (setq l (cdr l)))) |
| 1401 (define-key calendar-mode-map "-" 'negative-argument) | 1398 (define-key calendar-mode-map "-" 'negative-argument) |