(require 'riece-addon)
(require 'riece-signal)
-(autoload 'derived-mode-class "derived")
-
(defvar riece-channel-list-mode-map (make-sparse-keymap))
(defvar riece-user-list-mode-map (make-sparse-keymap))
(let ((files (if file
(setq riece-variables-file file
riece-variables-files (list file))
- riece-variables-files))
- (variables riece-saved-forms))
+ riece-variables-files)))
(while files
(condition-case nil
(load (expand-file-name (car files)))
(file-error nil))
- (setq files (cdr files)))
- (while variables
- (if (fboundp 'custom-reevaluate-setting)
- (custom-reevaluate-setting (car variables))
- (funcall (or (get (car variables) 'custom-set) 'set-default)
- (car variables)
- (eval (car (or (get (car variables) 'saved-value)
- (get (car variables) 'standard-value))))))
- (setq variables (cdr variables)))))
+ (setq files (cdr files)))))
(defvar print-quoted)
(defvar print-escape-multibyte)
print-level
print-length
(variables riece-saved-forms))
- (insert "(custom-set-variables\n")
(while variables
- (insert " '")
- (prin1 `(,(car variables) ',(symbol-value (car variables)))
+ (prin1 `(setq ,(car variables)
+ ',(symbol-value (car variables)))
(current-buffer))
(insert "\n")
- (setq variables (cdr variables)))
- (insert ")")))
+ (setq variables (cdr variables)))))
(message (riece-mcat "Saving %s...done") riece-saved-variables-file)
(setq riece-save-variables-are-dirty nil))
(setq riece-command-mode-syntax-table
(copy-syntax-table (syntax-table)))
(set-syntax-table riece-command-mode-syntax-table)
- (mapcar
- (lambda (c) (modify-syntax-entry c "w"))
- "^[]{}'`"))
+ (let* ((chars "^[]{}'`")
+ (length (length chars))
+ (index 0))
+ (while (< index length)
+ (modify-syntax-entry (aref chars index) "w")
+ (setq index (1+ index)))))
(run-hooks 'riece-command-mode-hook))
riece-mode-line-buffer-identification)
truncate-lines t
buffer-read-only t)
- (make-local-hook 'riece-update-buffer-functions)
+ (riece-make-local-hook 'riece-update-buffer-functions)
(add-hook 'riece-update-buffer-functions
'riece-update-channel-list-buffer nil t)
(use-local-map riece-channel-list-mode-map)
buffer-read-only t)
(if (boundp 'transient-mark-mode)
(set (make-local-variable 'transient-mark-mode) t))
- (make-local-hook 'riece-update-buffer-functions)
+ (riece-make-local-hook 'riece-update-buffer-functions)
(add-hook 'riece-update-buffer-functions
'riece-update-user-list-buffer nil t)
(use-local-map riece-user-list-mode-map)
(defun riece-create-buffers ()
(let ((alist riece-buffer-alist))
(while alist
- (save-excursion
- (set-buffer (apply #'riece-get-buffer-create
- (cdr (car alist))))
+ (with-current-buffer (apply #'riece-get-buffer-create
+ (cdr (car alist)))
(set (car (car alist)) (current-buffer))
(unless (or (null (nth 2 (car alist)))
(eq major-mode (nth 2 (car alist))))
(funcall (nth 2 (car alist))))
(setq alist (cdr alist))))))
-(defvar reporter-prompt-for-summary-p)
-(defun riece-submit-bug-report (&optional recent-messages recent-keys)
+(defun riece-submit-bug-report ()
"Submit via mail a bug report on Riece."
- ;; This strange form ensures that (recent-keys) is the value before
- ;; the bug subject string is read.
- (interactive (list (riece-recent-messages 20) (recent-keys)))
- (message "Querying server version...")
- (let ((pointer riece-server-process-alist)
- nickname)
- (while pointer
- (when (riece-server-process-opened (cdr (car pointer)))
- (process-send-string (cdr (car pointer)) "VERSION\r\n")
- (if (setq nickname
- (with-current-buffer (process-buffer (cdr (car pointer)))
- riece-real-nickname))
- (process-send-string
- (cdr (car pointer))
- (format "PRIVMSG %s :\1VERSION\1\r\n" nickname))))
- (setq pointer (cdr pointer))))
- (sit-for 3)
- (message "Querying server version...done")
- (require 'reporter)
- (let ((reporter-prompt-for-summary-p t))
- (unless riece-debug
- (error "Please turn on riece-debug and restart Riece."))
- (reporter-submit-bug-report
- "liece@unixuser.org"
- (riece-version)
- '(riece-debug)
- nil
- nil
- "This bug report will be sent to the Riece Development Team,
-not to your local site managers!!
-
-Please write in Japanese or English, because the Riece maintainers do
-not have translators to read other languages for them.
-
-Please describe as succinctly as possible:
-\t- What happened.
-\t- What you thought should have happened.
-\t- Precisely what you were doing at the time.
-
-Also include a reliable recipe for triggering the bug, as well as
-any lisp back-traces that you may have.
-\(setq stack-trace-on-error t\), or \(setq debug-on-error t\) if you
-are familiar with the debugger, to get a lisp back-trace.")
- (delete-other-windows)
- (save-excursion
- (goto-char (point-max))
- (insert
- "\nAdd-on state:\n"
- "------------\n"
- (save-window-excursion
- (save-excursion
- (riece-command-list-addons)
- (search-forward "\n\n")
- (buffer-substring (point-min) (point)))))
- (insert "Recent messages from servers:\n"
- "--------------------------")
- (let ((pointer riece-server-process-alist))
- (while pointer
- (insert "\n- \"" (car (car pointer)) "\", \n"
- (format "%S" (if (equal (car (car pointer)) "")
- riece-server
- (cdr (assoc (car (car pointer))
- riece-server-alist))))
- "\n"
- (if (riece-server-process-opened (cdr (car pointer)))
- (save-excursion
- (set-buffer (process-buffer (cdr (car pointer))))
- (goto-char (point-max))
- (beginning-of-line -60)
- (buffer-substring (point) (point-max)))
- "(closed server)"))
- (setq pointer (cdr pointer))))
- (insert "\n\nRecent debug messages:\n"
- "-----------------------------------\n"
- (with-current-buffer riece-debug-buffer
- (buffer-string)))
- ;; Insert recent keystrokes.
- (insert "\n\nRecent keystrokes:\n"
- "-----------------\n\n")
- (let ((before-keys (point)))
- (insert (key-description recent-keys))
- (save-restriction
- (narrow-to-region before-keys (point))
- (goto-char before-keys)
- (while (progn (move-to-column 50) (not (eobp)))
- (search-forward " " nil t)
- (insert "\n"))))
- ;; Insert recent minibuffer messages.
- (insert "\n\nRecent messages (most recent first):\n"
- "-----------------------------------\n"
- recent-messages))))
+ (interactive)
+ (browse-url "https://savannah.nongnu.org/bugs/?group=riece"))
(provide 'riece)