;; 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:
(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)