Lines Matching +defs:pending +defs:delete
1 ;;; delsel.el --- delete selection if you insert
30 ;; This file makes the active region be pending delete, meaning that
36 ;; Commands which will delete the selection need a 'delete-selection
38 ;; have this property won't delete the selction. It can be one of
45 ;; i.e. the command will just delete the region.
48 ;; `delete-region'. (Text selected with the mouse will typically
51 ;; The normal case: delete the active region prior to executing
57 (defalias 'pending-delete-mode 'delete-selection-mode)
60 (define-minor-mode delete-selection-mode
70 (if (not delete-selection-mode)
71 (remove-hook 'pre-command-hook 'delete-selection-pre-hook)
72 (add-hook 'pre-command-hook 'delete-selection-pre-hook)
75 (defun delete-active-region (&optional killp)
78 (delete-region (point) (mark)))
81 (defun delete-selection-pre-hook ()
82 (when (and delete-selection-mode transient-mark-mode mark-active
85 (get this-command 'delete-selection))))
88 (delete-active-region t))
92 ;; that we are going to delete.
97 (delete-active-region))
100 (delete-active-region)
104 (delete-active-region)
113 (setq inhibit-quit 'delete-selection-dummy))
116 (put 'self-insert-command 'delete-selection t)
117 (put 'self-insert-iso 'delete-selection t)
119 (put 'yank 'delete-selection 'yank)
120 (put 'clipboard-yank 'delete-selection 'yank)
121 (put 'insert-register 'delete-selection t)
123 (put 'delete-backward-char 'delete-selection 'supersede)
124 (put 'backward-delete-char-untabify 'delete-selection 'supersede)
125 (put 'delete-char 'delete-selection 'supersede)
127 (put 'newline-and-indent 'delete-selection t)
128 (put 'newline 'delete-selection t)
129 (put 'open-line 'delete-selection 'kill)
138 (if (and delete-selection-mode transient-mark-mode mark-active)