From a99caf447dd0b2d8ccc329fb64eb10a8613152f4 Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 21 May 2004 05:25:50 +0000 Subject: [PATCH] Undo the last change. --- lisp/ChangeLog | 6 ------ lisp/riece-addon.el | 7 ++----- 2 files changed, 2 insertions(+), 11 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 15c8e29..87d8b4e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,11 +1,5 @@ 2004-05-21 Daiki Ueno - * riece-addon.el (riece-enable-addon): Check if riece-*-enable - exists. - (riece-disable-addon): Check if riece-*-disable exists. - -2004-05-21 Daiki Ueno - * riece-mini.el (riece-mini-enabled): New flag. (riece-mini-display-message-function): Check riece-mini-enabled. (riece-mini-enable): New function. diff --git a/lisp/riece-addon.el b/lisp/riece-addon.el index 9eed0a5..6ad7f7f 100644 --- a/lisp/riece-addon.el +++ b/lisp/riece-addon.el @@ -100,8 +100,7 @@ (if (symbol-value enabled) (if riece-debug (message "Can't enable add-on %S" addon)) - (funcall (or (intern-soft (concat (symbol-name addon) "-enable")) - #'ignore)) + (funcall (intern (concat (symbol-name addon) "-enable"))) (if riece-debug (message "Add-on %S enabled" addon)))))) @@ -112,9 +111,7 @@ (message "Add-on %S doesn't support enable/disable" addon)) (if (symbol-value enabled) (progn - (funcall (or (intern-soft (concat (symbol-name (car addons)) - "-disable")) - #'ignore)) + (funcall (intern (concat (symbol-name (car addons)) "-disable"))) (if riece-debug (message "Add-on %S disabled" (car addons)))) (if riece-debug -- 1.7.10.4