diff options
| author | Jim Porter <jporterbugs@gmail.com> | 2021-05-03 08:24:01 -0700 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-05-07 21:49:04 -0400 |
| commit | 048cc03290abc786f439ee9838c15a81541af2aa (patch) | |
| tree | e07640b7660366450df11dcecbe365eb7907e48f /lisp/delsel.el | |
| parent | a2842a11728336fc8110eedb5176ecfbe71bbc79 (diff) | |
| download | emacs-048cc03290abc786f439ee9838c15a81541af2aa.tar.gz | |
Ensure `<menu-bar> <edit> <clear>' handles rectangular regions
* lisp/delsel.el (delete-active-region): Autoload it and make it interactive.
* lisp/menu-bar.el (menu-bar-edit-menu): Bind "Clear" to
`delete-active-region'.
Diffstat (limited to 'lisp/delsel.el')
| -rw-r--r-- | lisp/delsel.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/delsel.el b/lisp/delsel.el index 982320340d8..96a9dcc0c79 100644 --- a/lisp/delsel.el +++ b/lisp/delsel.el @@ -84,9 +84,11 @@ information on adapting behavior of commands in Delete Selection mode." (defvar delsel--replace-text-or-position nil) +;;;###autoload (defun delete-active-region (&optional killp) "Delete the active region. If KILLP in not-nil, the active region is killed instead of deleted." + (interactive "P") (cond (killp ;; Don't allow `kill-region' to change the value of `this-command'. |