Re: don't hard-code keys

[Emanuel Berg]

> Wo-ho! 
>
>   (substitute-command-keys "\\[universal-argument]") ; C-u
>
> :)

Stuff is in place, works fine:

(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, %s to connect"
         (substitute-command-keys "\\[universal-argument]") )))))

https://dataswamp.org/~incal/emacs-init/erc-incal.el

(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, %s to force"
     (substitute-command-keys "\\[universal-argument]")
     )))

https://dataswamp.org/~incal/emacs-init/gnus/gnus-incal.el

-- 
underground experts united
https://dataswamp.org/~incal