From: Emanuel Berg via Users list for the GNU Emacs text editor <help-gnu-emacs@gnu.org>
To: help-gnu-emacs@gnu.org
Subject: don't hard-code keys
Date: Sun, 02 May 2021 00:35:24 +0200 [thread overview]
Message-ID: <877dkirsk3.fsf@zoho.eu> (raw)
Here are two interesting functions for several reasons...
But the question: how can I avoid hard-coding the C-u key but
instead have the keybinding inserted thru a reference to the
function, i.e. `universal-argument'?
I don't plan to rebind C-u and/or use something else for
universal-argument, rather I'd like to just not have the C-u
hard-coded for personal/political reasons.
(defun open-irc (&optional connect)
(interactive "P")
(let ((irc-buffer (car (erc-buffer-list))))
(if irc-buffer
(progn
(switch-to-buffer irc-buffer)
(erc-scroll-to-bottom-no-blanks))
(if connect
(irc-connect-to-all)
(message "did nothing, C-u to connect") )))) ; [1]
(defun new-message (&optional force)
(interactive "P")
(message (format "%s" force))
(if (or (not (eq major-mode 'message-mode)) force)
(progn
(unless (gnus-alive-p) (gnus))
(gnus-post-news 'post "") )
(message "did nothing, C-u to force") )) ; [2]
[1] https://dataswamp.org/~incal/emacs-init/erc-incal.el
[2] https://dataswamp.org/~incal/emacs-init/gnus/gnus-incal.el
--
underground experts united
https://dataswamp.org/~incal
next reply other threads:[~2021-05-01 22:35 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2021-05-01 22:35 Emanuel Berg via Users list for the GNU Emacs text editor [this message]
2021-05-02 7:13 ` don't hard-code keys Tassilo Horn
2021-05-02 14:44 ` Emanuel Berg via Users list for the GNU Emacs text editor
2021-05-02 17:28 ` Thibaut Verron
2021-05-02 17:33 ` Emanuel Berg via Users list for the GNU Emacs text editor
2021-05-02 17:38 ` Emanuel Berg via Users list for the GNU Emacs text editor
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=877dkirsk3.fsf@zoho.eu \
--to=help-gnu-emacs@gnu.org \
--cc=moasenwood@zoho.eu \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).