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 |
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 |
|
|