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

Diff of /erbot/erbc.el

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

revision 1.85 by deego, Mon Jan 24 04:11:50 2005 UTC revision 1.86 by deego, Mon Jan 24 04:18:54 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:07:24 deego>  ;; Time-stamp: <2005-01-23 23:16:57 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 nick)  (defun fsi-eval-maybe (str &optional fs-victim)
1279    (unless nick (setq nick 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)))))
1282      (cond      (cond
1283       ((consp aa) (fsi-eval aa))       ((consp aa) (fsi-eval aa))
1284       (t (format "%s: %s" nick str)))))       (t (format "%s: %s" fs-victim str)))))
1285    
1286            
1287    

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

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