1 |
;;; erbc.el --- Erbot user-interface commands. |
;;; erbc.el --- Erbot user-interface commands. |
2 |
;; Time-stamp: <2005-04-01 11:44:28 deego> |
;; Time-stamp: <2005-04-01 13:14:13 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 |
551 |
(setq msg (subseq msg 0 -1))))) |
(setq msg (subseq msg 0 -1))))) |
552 |
msg) |
msg) |
553 |
|
|
554 |
|
(defvar erbn-dead-check-p nil |
555 |
|
"If non-nil, we will not reply to people who have shot themselves |
556 |
|
using mark-dead or russian roulette. These people need to be revived |
557 |
|
first. Of course, like any magic, revival sometimes works, and |
558 |
|
sometimes doesn't.") |
559 |
|
|
560 |
(defun fsi-lispify (&optional msg proc nick tgt localp |
(defun fsi-lispify (&optional msg proc nick tgt localp |
561 |
userinfo &rest foo) |
userinfo &rest foo) |
562 |
"Parse the english MSG into a lisp command. |
"Parse the english MSG into a lisp command. |
925 |
|
|
926 |
|
|
927 |
;; do a dead check |
;; do a dead check |
928 |
(erbn-dead-check) |
(when erbn-dead-check-p (and (not foundquery) |
929 |
|
(erbn-dead-check))) |
930 |
|
|
931 |
|
|
932 |
(setq |
(setq |
933 |
newmsglist |
newmsglist |
4573 |
(defalias 'fs-gn 'fs-google-nevadamissouri) |
(defalias 'fs-gn 'fs-google-nevadamissouri) |
4574 |
(defalias 'fs-gp 'fs-google-planetmath) |
(defalias 'fs-gp 'fs-google-planetmath) |
4575 |
(defalias 'fs-gt 'fs-google-twiki) |
(defalias 'fs-gt 'fs-google-twiki) |
4576 |
(defalias 'fs-gu 'fs-google-usemod) |
;;(defalias 'fs-gu 'fs-google-usemod) |
4577 |
|
|
4578 |
(defalias 'fsi-mark 'mark) |
(defalias 'fsi-mark 'mark) |
4579 |
(defalias 'fsi-point 'point) |
(defalias 'fsi-point 'point) |