"p" riece-command-enter-message-to-user
"q" riece-command-quit
"r" riece-command-configure-windows
+ "s" riece-command-save-variables
"x" riece-command-copy-region
"t" riece-command-topic
"w" riece-command-who
(defun riece-save-variables-files ()
"Save current settings to `riece-saved-variables-file'."
(with-temp-file riece-saved-variables-file
+ (insert ";;; This file is generated automatically by " riece-version ".\n"
+ ";;; Do not edit this file!\n\n")
(let ((print-quoted t)
(print-readably t)
print-escape-multibyte
(riece-insinuate-addon (car (car pointer)) riece-debug)
(setq pointer (cdr pointer))))
(if (or confirm (null riece-server))
- (setq riece-server (completing-read "Server: " riece-server-alist)))
+ (setq riece-server (completing-read (riece-mcat "Server: ")
+ riece-server-alist)))
(if (stringp riece-server)
(setq riece-server (riece-server-name-to-server riece-server)))
(riece-create-buffers)
(setq pointer (cdr pointer))))
(run-hooks 'riece-startup-hook)
(message "%s" (substitute-command-keys
- "Type \\[describe-mode] for help")))))
+ (riece-mcat "Type \\[describe-mode] for help"))))))
(defun riece-exit ()
(if riece-save-variables-are-dirty
riece-channel-buffer nil
riece-channel-buffer-alist nil
riece-user-indicator nil
- riece-long-channel-indicator "None"
- riece-channel-list-indicator "No channel"
+ riece-long-channel-indicator (riece-mcat "None")
+ riece-channel-list-indicator (riece-mcat "No channel")
riece-away-indicator "-"
riece-operator-indicator "-"
riece-channel-status-indicator "-"