(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)))
+ riece-variables-files))
+ (variables riece-saved-forms))
(while files
(condition-case nil
(load (expand-file-name (car files)))
(file-error nil))
- (setq files (cdr files)))))
+ (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)))))
(defvar print-quoted)
(defvar print-escape-multibyte)
(defun riece-save-variables-files ()
"Save current settings to `riece-saved-variables-file'."
+ (message (riece-mcat "Saving %s...") 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")
print-level
print-length
(variables riece-saved-forms))
+ (insert "(custom-set-variables\n")
(while variables
- (prin1 `(setq ,(car variables)
- ',(symbol-value (car variables)))
+ (insert " '")
+ (prin1 `(,(car variables) ',(symbol-value (car variables)))
(current-buffer))
(insert "\n")
- (setq variables (cdr variables)))))
+ (setq variables (cdr variables)))
+ (insert ")")))
+ (message (riece-mcat "Saving %s...done") riece-saved-variables-file)
(setq riece-save-variables-are-dirty nil))
;;;###autoload
(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)