(let ((pointer riece-addons))
(while pointer
(riece-insinuate-addon (car pointer) riece-debug)
- (unless (get (car pointer) 'riece-addon-default-disabled)
- (riece-enable-addon (car pointer) riece-debug))
(setq pointer (cdr pointer))))
(setq riece-addons-insinuated t))
(if (or confirm (null riece-server))
(while server-list
(riece-command-open-server (car server-list))
(setq server-list (cdr server-list))))
+ (let ((pointer riece-addons))
+ (while pointer
+ (unless (get (car pointer) 'riece-addon-default-disabled)
+ (riece-enable-addon (car pointer) riece-debug))
+ (setq pointer (cdr pointer))))
(run-hooks 'riece-startup-hook)
(message "%s" (substitute-command-keys
"Type \\[describe-mode] for help"))))
(delete-region start end)))))
(defun riece-exit ()
- (let ((pointer riece-addons))
- (while pointer
- (riece-disable-addon (car pointer) riece-debug)
- (setq pointer (cdr pointer))))
(if riece-save-variables-are-dirty
(riece-save-variables-files))
(while riece-buffer-list