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

Diff of /erbot/erbc.el

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

revision 1.99 by deego, Fri Apr 1 16:47:52 2005 UTC revision 1.100 by deego, Fri Apr 1 18:16:00 2005 UTC
# Line 1  Line 1 
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
# Line 551  When string, will be matched against tar Line 551  When string, will be matched against tar
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.
# Line 919  local, because the parent function calli Line 925  local, because the parent function calli
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
# Line 4565  See: http://www.w3.org/Security/faq/wwws Line 4573  See: http://www.w3.org/Security/faq/wwws
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)

Legend:
Removed from v.1.99  
changed lines
  Added in v.1.100

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