diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-07-04 08:33:01 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-07-11 18:37:32 -0700 |
commit | 5b23323eaceb6c5f8510271f1e41b86416888e94 (patch) | |
tree | 89d29ce80613399f152e5bdfc9b6b1d78f8fe6d1 | |
parent | 8816bb9e8eeb04785b5ece4d46e0bcf0c9da7eac (diff) | |
download | dotfiles-5b23323eaceb6c5f8510271f1e41b86416888e94.tar.gz |
e-mail greeting skeletons: use completing-read
Can then use <TAB><TAB> to expand and accept the default value, at least once
Emacs bug#56500 is fixed.
-rw-r--r-- | .emacs.d/init.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 7208969f..137d6f57 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -2119,21 +2119,21 @@ Used in my `message-mode' yasnippets." (spw/define-skeleton spw/message-dear (notmuch-message-mode :abbrev "dear" :file 'notmuch-mua) "" - (read-string "Dear " (ignore-errors (spw/recipient-first-name))) + (completing-read "Dear " (ignore-errors (list (spw/recipient-first-name)))) "Dear " str "," \n ?\n (when (> (mark) (point)) (exchange-point-and-mark) '\n) - "\n") (spw/define-skeleton spw/message-hello (notmuch-message-mode :abbrev "hl" :file 'notmuch-mua) "" - (read-string "Hello " (ignore-errors (spw/recipient-first-name))) + (completing-read "Hello " (ignore-errors (list (spw/recipient-first-name)))) "Hello " str "," \n ?\n (when (> (mark) (point)) (exchange-point-and-mark) '\n) - "\n") (spw/define-skeleton spw/message-thanks (notmuch-message-mode :abbrev "ty" :file 'notmuch-mua) "" - (read-string "Dear " (ignore-errors (spw/recipient-first-name))) + (completing-read "Dear " (ignore-errors (list (spw/recipient-first-name)))) "Dear " str "," \n \n "Thank you for your e-mail." \n \n '(exchange-point-and-mark) \n - "\n") |