From 0913e7f64a080117d2ca498d137033916b5ef48d Mon Sep 17 00:00:00 2001 From: yoichi Date: Wed, 15 Dec 2004 15:02:43 +0000 Subject: [PATCH] * riece-addon.el (riece-command-enable-addon): Fixed. (riece-command-disable-addon): Ditto. --- lisp/ChangeLog | 5 +++++ lisp/riece-addon.el | 48 ++++++++++++++++++++++++------------------------ 2 files changed, 29 insertions(+), 24 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 74d6b41..e9caaf6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-12-15 Yoichi NAKAYAMA + + * riece-addon.el (riece-command-enable-addon): Fixed. + (riece-command-disable-addon): Ditto. + 2004-12-14 Daiki Ueno * riece-alias.el (riece-alias-abbrev-identity-string): Return a diff --git a/lisp/riece-addon.el b/lisp/riece-addon.el index a02d74e..5861006 100644 --- a/lisp/riece-addon.el +++ b/lisp/riece-addon.el @@ -288,18 +288,18 @@ Useful keys: (list (or (if (eq major-mode 'riece-addon-list-mode) (get-text-property (point) 'riece-addon)) - (completing-read "Add-on: " - (mapcar (lambda (addon) - (list (symbol-name addon))) - riece-addons) - (lambda (pointer) - (let ((enabled - (intern-soft (concat (symbol-name - (car pointer)) - "-enabled")))) - (and enabled - (null (symbol-value enabled))))) - t)))) + (intern-soft + (completing-read "Add-on: " + (mapcar (lambda (addon) + (list (symbol-name addon))) + riece-addons) + (lambda (pointer) + (let ((enabled + (intern-soft (concat (car pointer) + "-enabled")))) + (and enabled + (null (symbol-value enabled))))) + t))))) (riece-enable-addon addon t) (let ((enabled (intern-soft (concat (symbol-name addon) "-enabled")))) (if (and (eq major-mode 'riece-addon-list-mode) @@ -319,18 +319,18 @@ Useful keys: (list (or (if (eq major-mode 'riece-addon-list-mode) (get-text-property (point) 'riece-addon)) - (completing-read "Add-on: " - (mapcar (lambda (addon) - (list (symbol-name addon))) - riece-addons) - (lambda (pointer) - (let ((enabled - (intern-soft (concat (symbol-name - (car pointer)) - "-enabled")))) - (and enabled - (symbol-value enabled)))) - t)))) + (intern-soft + (completing-read "Add-on: " + (mapcar (lambda (addon) + (list (symbol-name addon))) + riece-addons) + (lambda (pointer) + (let ((enabled + (intern-soft (concat (car pointer) + "-enabled")))) + (and enabled + (symbol-value enabled)))) + t))))) (riece-disable-addon addon t) (let ((enabled (intern-soft (concat (symbol-name addon) "-enabled")))) (if (and (eq major-mode 'riece-addon-list-mode) -- 1.7.10.4