(riece-channel-list-buffer "*Channels*" riece-channel-list-mode)
(riece-user-list-buffer " *Users*" riece-user-list-mode)
(riece-temp-buffer " *Temp*")
- (riece-debug-buffer " *Debug*")))
+ (riece-debug-buffer "*Debug*")))
(defvar riece-select-keys
`("#" riece-command-switch-to-channel-by-number
"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
(defvar print-quoted)
(defvar print-escape-multibyte)
(defun riece-save-variables-files ()
- "Save current settings to `riece-variables-file'."
+ "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