/[erbot]/erbot/erbc.el
ViewVC logotype

Diff of /erbot/erbc.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.86 by deego, Mon Jan 24 04:18:54 2005 UTC revision 1.87 by deego, Mon Jan 24 04:20:26 2005 UTC
# Line 1  Line 1 
1  ;;; erbc.el --- Erbot user-interface commands.  ;;; erbc.el --- Erbot user-interface commands.
2  ;; Time-stamp: <2005-01-23 23:16:57 deego>  ;; Time-stamp: <2005-01-23 23:19:33 deego>
3  ;; Copyright (C) 2002 D. Goel  ;; Copyright (C) 2002 D. Goel
4  ;; Emacs Lisp Archive entry  ;; Emacs Lisp Archive entry
5  ;; Filename: erbc.el  ;; Filename: erbc.el
# Line 1275  anything useful. "))) Line 1275  anything useful. ")))
1275    
1276    
1277    
1278  (defun fsi-eval-maybe (str &optional fs-victim)  (defun fsi-eval-or-say (str &optional fs-victim)
1279    (unless fs-victim (setq fs-victim fs-nick))    (unless fs-victim (setq fs-victim fs-nick))
1280    (let ((aa (when (stringp str)    (let ((aa (when (stringp str)
1281                (ignore-errors (read str)))))                (ignore-errors (read str)))))
# Line 1297  anything useful. "))) Line 1297  anything useful. ")))
1297      ;; Check for flame.el support      ;; Check for flame.el support
1298      (cond      (cond
1299       ((and (consp flames) (> (length flames) 0))       ((and (consp flames) (> (length flames) 0))
1300        (fsi-eval-maybe (fs-random-choose flames) fs-flame-target))        (fsi-eval-or-say (fs-random-choose flames) fs-flame-target))
1301       (t (fs-flame-mild fs-flame-target)))))       (t (fs-flame-mild fs-flame-target)))))
1302    
1303    

Legend:
Removed from v.1.86  
changed lines
  Added in v.1.87

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26