erbot-cvs
[Top][All Lists]
Advanced

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

[Erbot-cvs] erbot erbc.el


From: D. Goel
Subject: [Erbot-cvs] erbot erbc.el
Date: Fri, 04 Apr 2008 16:50:38 +0000

CVSROOT:        /cvsroot/erbot
Module name:    erbot
Changes by:     D. Goel <deego> 08/04/04 16:50:38

Modified files:
        .              : erbc.el 

Log message:
        Fix broken parens in erbc.el

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/erbot/erbc.el?cvsroot=erbot&r1=1.129&r2=1.130

Patches:
Index: erbc.el
===================================================================
RCS file: /cvsroot/erbot/erbot/erbc.el,v
retrieving revision 1.129
retrieving revision 1.130
diff -u -b -r1.129 -r1.130
--- erbc.el     6 Dec 2007 16:25:41 -0000       1.129
+++ erbc.el     4 Apr 2008 16:50:38 -0000       1.130
@@ -1,5 +1,5 @@
 ;;; erbc.el --- Erbot user-interface commands -- see also erbc5.el
-;; Time-stamp: <2007-12-06 11:25:03 deego>
+;; Time-stamp: <2008-04-04 12:49:39 deego>
 ;; Copyright (C) 2002 D. Goel
 ;; Emacs Lisp Archive entry
 ;; Filename: erbc.el
@@ -3662,7 +3662,7 @@
   "TODO: implemenet fixedcase, literal, subexp... If needed, let the
 author know.."
   (unless (and from to term)
-    (error "Syntax: %s (replace-regexp FROM TO TERM &optional NUMBER" 
erbn-char)))
+    (error "Syntax: %s (replace-regexp FROM TO TERM &optional NUMBER" 
erbn-char))
   (erbnocmd-iterate-internal term number 'replace-regexp-in-string from to
                             nil)
   (format "Replaced regexp %S with %S" from to))
@@ -4239,7 +4239,7 @@
 
 
 (defun fsi-country (&optional ct)
-  (unless ct (error "Syntax: %s country NM (example , country jp" erbn-char)))
+  (unless ct (error "Syntax: %s country NM (example , country jp" erbn-char))
   (setq ct (format "%s" ct))
   (let ((addp (and (> (length ct) 1)
                   ;; does not start with .
@@ -4251,7 +4251,7 @@
 
 (defun fsi-country-search (&rest names)
   (unless names (error
-             "Syntax: %s country-search NM (example , country japa" 
erbn-char)))
+             "Syntax: %s country-search NM (example , country japa" erbn-char))
   (erbcountry-search
    (mapconcat (lambda (arg) (format "%s" arg)) names " ")))
 




reply via email to

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