[Erbot-cvs] erbot erbc.el erbc3.el

[D. Goel]

CVSROOT:        /cvsroot/erbot
Module name:    erbot
Branch:         
Changes by:     D. Goel <address@hidden>        05/12/30 18:17:16

Modified files:
        .              : erbc.el erbc3.el 

Log message:
        Variable change: fs-m8b-p is now fsi-m8b-p !!!

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/erbot/erbot/erbc.el.diff?tr1=1.116&tr2=1.117&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/erbot/erbot/erbc3.el.diff?tr1=1.28&tr2=1.29&r1=text&r2=text

Patches:
Index: erbot/erbc.el
diff -u erbot/erbc.el:1.116 erbot/erbc.el:1.117
--- erbot/erbc.el:1.116 Wed Nov 30 17:37:55 2005
+++ erbot/erbc.el       Fri Dec 30 18:17:16 2005
@@ -1,5 +1,5 @@
 ;;; erbc.el --- Erbot user-interface commands -- see also erbc5.el
-;; Time-stamp: <2005-11-30 12:35:17 deego>
+;; Time-stamp: <2005-12-30 13:10:00 deego>
 ;; Copyright (C) 2002 D. Goel
 ;; Emacs Lisp Archive entry
 ;; Filename: erbc.el
@@ -536,7 +536,7 @@
   "Change it to t to enable the erbot to look up the title of urls
 posted in a channel.  When string, will be matched against target.")
 
-(defcustom fs-m8b-p nil
+(defcustom fsi-m8b-p nil
   "Change it to t for the magic 8-ball... define m8b then of
 course...
 When string, will be matched against target. "
@@ -646,9 +646,9 @@
     ;; requested by elf:
     ;; if double ??, then make it a call to m8b
     (when (and
-          fs-m8b-p
-          (if (stringp fs-m8b-p)
-              (and (stringp tgt) (string-match fs-m8b-p tgt))
+          fsi-m8b-p
+          (if (stringp fsi-m8b-p)
+              (and (stringp tgt) (string-match fsi-m8b-p tgt))
             t))
       (let (len)
        (when (and (stringp msg)
Index: erbot/erbc3.el
diff -u erbot/erbc3.el:1.28 erbot/erbc3.el:1.29
--- erbot/erbc3.el:1.28 Wed Nov  9 01:19:45 2005
+++ erbot/erbc3.el      Fri Dec 30 18:17:16 2005
@@ -1,5 +1,5 @@
 ;;; erbc3.el ---erbot lisp stuff which should be PERSISTENT ACROSS SESSIONS.
-;; Time-stamp: <2005-08-11 20:30:32 deego>
+;; Time-stamp: <2005-12-08 13:02:18 deego>
 ;; Copyright (C) 2003 D. Goel
 ;; Emacs Lisp Archive entry
 ;; Filename: erbc3.el
@@ -156,7 +156,7 @@
    
 (defun erbn-readonly-check (sym)
   (if (get sym 'readonly)
-      (error "The symbol %S can't be redefined! It is read-only!"
+      (error "The symbol %S can't be redefined or set! It is read-only!"
             sym)))