erbot-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Erbot-cvs] Changes to erbot/erbeng.el


From: D . Goel
Subject: [Erbot-cvs] Changes to erbot/erbeng.el
Date: Fri, 02 Sep 2005 15:25:00 -0400

Index: erbot/erbeng.el
diff -u erbot/erbeng.el:1.16 erbot/erbeng.el:1.17
--- erbot/erbeng.el:1.16        Fri Aug 12 00:36:17 2005
+++ erbot/erbeng.el     Fri Sep  2 19:24:59 2005
@@ -1,5 +1,5 @@
 ;;; erbeng.el --- 
-;; Time-stamp: <2005-08-11 20:32:33 deego>
+;; Time-stamp: <2005-09-02 14:18:08 deego>
 ;; Copyright (C) 2002 D. Goel
 ;; Emacs Lisp Archive entry
 ;; Filename: erbeng.el
@@ -177,7 +177,7 @@
 
 
 (defun erbeng-lisp-object-p (msg) 
-  (setq msg (ignore-errors (read msg)))
+  (setq msg (ignore-errors (erbn-read msg)))
   (and (listp msg)
        (let ((fir (format "%s" (first msg))))
    (or
@@ -247,7 +247,7 @@
 (defun erbeng-get-reply (msg &optional proc nick tgt &rest foo)
   "  ;; now assumes that the msg is (a string) in lisp format... and this just
   ;; evals it.."
-  (eval (read msg)))
+  (eval (erbn-read msg)))
 ;  (let* (
 ;  (lispmsg 
 ;   (erbeng-read (erbutils-stringify msg))))
@@ -260,7 +260,7 @@
 
 
 (defun erbeng-read (msg)
-  (ignore-errors (read msg)))
+  (ignore-errors (erbn-read msg)))
 
 
 




reply via email to

[Prev in Thread] Current Thread [Next in Thread]