* riece-mcat.el (riece-mcat-update): Suppress

[riece] / lisp / riece-signal.el

diff --git a/lisp/riece-signal.el b/lisp/riece-signal.el
index 522e5a4..d5fe870 100644 (file)
--- a/lisp/riece-signal.el
+++ b/lisp/riece-signal.el
@@ -19,8 +19,8 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 
 ;;; Commentary:
 
@@ -104,14 +104,16 @@ This function is for internal use only."
       (setq signal (riece-make-signal signal-name args)
            slots (symbol-value symbol))
       (while slots
-       (riece-ignore-errors (format "slot function for \"%S\""
-                                    signal-name)
-         (if (or (null (riece-slot-filter (car slots)))
-                 (riece-ignore-errors (format "signal filter for \"%S\""
-                                              symbol-name)
-                   (funcall (riece-slot-filter (car slots)) signal)))
-             (funcall (riece-slot-function (car slots))
-                      signal (riece-slot-handback (car slots)))))
+       (if (or (null (riece-slot-filter (car slots)))
+               (riece-funcall-ignore-errors (format "signal filter for \"%S\""
+                                                    signal-name)
+                                            (riece-slot-filter (car slots))
+                                            signal))
+           (riece-funcall-ignore-errors (format "slot function for \"%S\""
+                                                signal-name)
+                                        (riece-slot-function (car slots))
+                                        signal
+                                        (riece-slot-handback (car slots))))
        (setq slots (cdr slots))))))
 
 (provide 'riece-signal)