Mercurial > emacs
comparison lisp/mouse.el @ 43657:dc2db86d1fea
(mouse-region-delete-keys): Add deletechar.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sun, 03 Mar 2002 16:51:45 +0000 |
| parents | 0897162acd41 |
| children | 679c18d33c77 |
comparison
equal
deleted
inserted
replaced
| 43656:c825cf5da356 | 43657:dc2db86d1fea |
|---|---|
| 999 (setcar last event) | 999 (setcar last event) |
| 1000 nil))) | 1000 nil))) |
| 1001 | 1001 |
| 1002 ;; Momentarily show where the mark is, if highlighting doesn't show it. | 1002 ;; Momentarily show where the mark is, if highlighting doesn't show it. |
| 1003 | 1003 |
| 1004 (defvar mouse-region-delete-keys '([delete]) | 1004 (defvar mouse-region-delete-keys '([delete] [deletechar]) |
| 1005 "List of keys which shall cause the mouse region to be deleted.") | 1005 "List of keys which shall cause the mouse region to be deleted.") |
| 1006 | 1006 |
| 1007 (defun mouse-show-mark () | 1007 (defun mouse-show-mark () |
| 1008 (if transient-mark-mode | 1008 (if transient-mark-mode |
| 1009 (delete-overlay mouse-drag-overlay) | 1009 (delete-overlay mouse-drag-overlay) |