On Oct 8, 3:04 am, Andreas Politz <poli...@fh-trier.de> wrote:
Xahwrote:
On Oct 7, 2:08 pm, Chetan <Chetan.xs...@xspam.sbcglobal.net> wrote:
"Drew Adams" <drew.ad...@oracle.com> writes:
i have a some 20 personal commands that insert some text. However, i
have delete-selection-mode on, meaning that when a region is active,
any typing should delete/override it.
But when calling my insert text commands it will just insert at the
end of region. Here's a example:
(defun insert-date () "Insert current date." (interactive)
(insert (format-time-string "%Y-%m-%d")))
Do i need to modify each commands to check on mark-active and delete-
selection-mode then call delete region first? Or, is there some
variable i can just set?
See the Commentary at the beginning of `delsel.el':
;; Commands that delete the selection need a `delete-selection'
;; property on their symbols. Commands that insert text but do not
;; have this property do not delete the selection. The property can
;; be one of these values:
;; 'yank
;; For commands which do a yank; ensures the region about to be
;; deleted isn't yanked.
;; 'supersede
;; Delete the active region and ignore the current command,
;; i.e. the command will just delete the region.
;; 'kill
;; `kill-region' is used on the selection, rather than
;; `delete-region'. (Text selected with the mouse will typically
;; be yankable anyhow.)
;; non-nil
;; The normal case: delete the active region prior to executing
;; the command which will insert replacement text.
Example:
(put 'insert-date 'delete-selection t)
The command also needs to be activated with keyboard. M-x does not
do it.
Thank you both.
Why does it needs to be called from keyboard? Unfortunately most of my
commands are used by calling a short alias.
Xah
∑http://xahlee.org/
☄
Because it't a different command.
(put 'execute-extended-command 'delete-selection t)
LOL. When i tried this, it'll just delete the region when you do M-x,
regardless what command you gonna call.
for a moment i was gonna say Thanks! Great solution!
Xah
∑ http://xahlee.org/
☄