Qual é a função de seleção de palavra / símbolo vinculada a <double-mouse-1>

Adoro a capacidade de selecionar palavras / símbolos no ponto que atualmente faço com o clique duplo do mouse. Gostaria de poder fazer isso a partir do teclado e, portanto, gostaria de vinculá-lo a um pressionamento de tecla (ou talvez já o seja?), Por isso preciso do nome da função. Presumo que a função já deva existir, mas não consigo descobrir qual é o nome.

Tentei, C-h kmas quando clico duas vezes no mouse, <down-mouse-1>aparece a ajuda (presumo que o sistema de ajuda não aguarde o segundo clique ou algo assim). Também procurei na documentação em que essa funcionalidade está definida na seção 21.2, mas ela não diz o nome da função.

Atualização: para atalhos de teclado típicos, suponho que seja o equivalente ao <C-left>seguido pelos <C-S-right>quais são left-worde right-wordrespectivamente, embora a tecla shift seja mantida para o último. (Eu não entendo completamente a relação entre as designações do teclado com a tecla shift e o mapeamento para funções, a ajuda para <C-S-right>traduzi-lo <C-right>antes de identificá-lo como right-word)

Na verdade, é um pouco complicado. Quando você clica duas vezes, mouse-1há várias ações. <down-mouse-1>ocorre primeiro quando você pressiona o botão. Então mouse-1ocorre, quando você solta o botão.

<down-mouse-1>está vinculado ao comando mouse-drag-region, e esse comando chama mouse-drag-track. Essa função conta os cliques do botão do mouse e acompanha qualquer movimento do mouse (se você clicar duas vezes, significa que não moveu o mouse).

mouse-drag-trackchama a função mouse-start-end para determinar o intervalo de texto a ser selecionado. Ele passa para mouse-start-enda posição em que você clicou, os dois primeiros argumentos e a contagem de cliques, como o terceiro argumento. Isto é mouse-start-end:

mouse-start-end is a compiled Lisp function in `mouse.el'.

(mouse-start-end START END MODE)

Return a list of region bounds based on START and END according to MODE.
If MODE is 0 then set point to (min START END), mark to (max START END).
If MODE is 1 then set point to start of word at (min START END),
mark to end of word at (max START END).
If MODE is 2 then do the same for lines.

A contagem de cliques passada como o terceiro arg ( MODE) é 1 para um clique duplo.

Você não poderá chamar apenas parte desse código a partir de uma sequência de teclas do teclado, mas examinar o código poderá ajudá-lo a escrever um comando de ligação de teclas do teclado para fazer o que deseja.

O @Drew explicou algumas das complexidades associadas aos eventos vinculados às ações do mouse. Quanto ao seu objetivo final de marcar a palavra no momento usando o teclado, você pode estar interessado na região de expansão .

expand-regionpermite manipular a região por unidades semânticas. Por exemplo, quando nenhuma região está ativa, a chamada er/expand-region(normalmente vinculada a C-=) marcará a palavra atual. A chamada novamente expande a região para a frase atual. E então o parágrafo, seção etc. As unidades reais dependerão do modo em que você está; portanto, nos modos lisp, eles seriam símbolo, expressão que encerra o símbolo, expressão que encerra essa expressão etc.

A página vinculada tem mais explicações e um vídeo demonstrando isso.

Aqui está uma função que eu extraí mouse-set-regionque faz a marcação quando você clica duas vezes:

(defun ora-mark-like-double-mouse-1 ()
  (interactive)
  (let ((bnd (mouse-start-end (point) (point) 1)))
    (goto-char (car bnd))
    (push-mark)
    (set-mark (point))
    (goto-char (cadr bnd))))