dotfiles-misc/protesilaos.dotfiles
1
0
Fork 0
mirror of https://github.com/protesilaos/dotfiles.git synced 2026-09-10 07:16:20 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

emacs: tweak prot-spell-spell-dwim

Browse source
This commit is contained in:
Protesilaos Stavrou 2023-12-29 19:09:15 +02:00
parent dccf91bbc8
commit b3fd9ff91f
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
2 changed files with 18 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
emacs/.emacs.d/prot-emacs.org
View file

@ -13959,15 +13959,19 @@ Used by `prot-spell-change-dictionary'."
;;;###autoload
(defun prot-spell-spell-dwim (beg end)
"Spellcheck between BEG END, current word, or select dictionary.
"Spell check between BEG END, current word, or select a dictionary.
Use `flyspell-region' on the active region. With point over a
word and no active region invoke `ispell-word'. Else call
`prot-spell-change-dictionary'."
Use `flyspell-region' on the active region and deactivate the
mark.
With point over a word and no active region invoke `ispell-word'.
Else call `prot-spell-change-dictionary'."
(interactive "r")
(cond
((use-region-p)
(flyspell-region beg end))
(flyspell-region beg end)
(deactivate-mark))
((thing-at-point 'word)
(call-interactively 'ispell-word))
(t

14
emacs/.emacs.d/prot-lisp/prot-spell.el
View file

@ -73,15 +73,19 @@ Used by `prot-spell-change-dictionary'."
;;;###autoload
(defun prot-spell-spell-dwim (beg end)
"Spellcheck between BEG END, current word, or select dictionary.
"Spell check between BEG END, current word, or select a dictionary.
Use `flyspell-region' on the active region. With point over a
word and no active region invoke `ispell-word'. Else call
`prot-spell-change-dictionary'."
Use `flyspell-region' on the active region and deactivate the
mark.
With point over a word and no active region invoke `ispell-word'.
Else call `prot-spell-change-dictionary'."
(interactive "r")
(cond
((use-region-p)
(flyspell-region beg end))
(flyspell-region beg end)
(deactivate-mark))
((thing-at-point 'word)
(call-interactively 'ispell-word))
(t