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

Diff of /erbot/erbc.el

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

revision 1.95 by deego, Wed Mar 23 14:54:54 2005 UTC revision 1.96 by deego, Tue Mar 29 19:14:26 2005 UTC
# Line 1  Line 1 
1  ;;; erbc.el --- Erbot user-interface commands.  ;;; erbc.el --- Erbot user-interface commands.
2  ;; Time-stamp: <2005-03-23 09:42:33 deego>  ;; Time-stamp: <2005-03-29 14:11: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 573  Optional argument TGT . Line 573  Optional argument TGT .
573  Optional argument FOO .  Optional argument FOO .
574    
575  We will also bind a number of variables, as appropriate, for example,  We will also bind a number of variables, as appropriate, for example,
576  fs-msg*, fs-args, fs-a, fs-b... so that these vars can be used  fs-msg*, fs-lispargs, fs-lispa , fs-lispb... so that these vars can be used
577  anywhere in the code, or the user-defined parts of the code...  anywhere in the code, or the user-defined parts of the code...
578    
579  In the grand scheme of things, these bindings should turn out to be  In the grand scheme of things, these bindings should turn out to be
# Line 1990  from only that part. ") Line 1990  from only that part. ")
1990    
1991    
1992    
1993  (defvar fs-args nil  (defvar fs-lispargs nil
1994    "Will be used when using the lisp form")    "Will be used when using the lisp form")
1995    
1996    
1997    
1998  (defvar fs-a nil  (defvar fs-lispa nil
1999    "Will be used when using the lisp form")    "Will be used when using the lisp form")
2000    
2001    
2002  (defvar fs-b nil  (defvar fs-lispb nil
2003    "Will be used when using the lisp form")    "Will be used when using the lisp form")
2004    
2005    
2006  (defvar fs-c nil  (defvar fs-lispc nil
2007    "Will be used when using the lisp form")    "Will be used when using the lisp form")
2008    
2009  (defvar fs-d nil  (defvar fs-lispd nil
2010    "Will be used when using the lisp form")    "Will be used when using the lisp form")
2011    
2012  (defvar fs-e nil  (defvar fs-lispe nil
2013    "Will be used when using the lisp form")    "Will be used when using the lisp form")
2014    
2015    
# Line 2037  Looks for TERM, and shows its descriptio Line 2037  Looks for TERM, and shows its descriptio
2037  number N, and ending at M-1. The first record is numbered 0.  number N, and ending at M-1. The first record is numbered 0.
2038  "  "
2039    (let    (let
2040        ;;((fs-args (append (list mainterm N M prestring expr) rest)))        ;;((fs-lispargs (append (list mainterm N M prestring expr) rest)))
2041        ;; nothing, just a let not used any more..        ;; nothing, just a let not used any more..
2042        ((fs-nothingsorry nil))        ((fs-nothingsorry nil))
2043      ;; in the global scheme of things, this will turn out to be only a      ;; in the global scheme of things, this will turn out to be only a
2044      ;; local binding, since erbeng-main will have (let)'ed this.  Same      ;; local binding, since erbeng-main will have (let)'ed this.  Same
2045      ;; for fs-a, fs-b, fs-c...      ;; for fs-lispa , fs-lispb, fs-lispc...
2046    
2047      (setq fs-args (mapcar 'fsi-read-or-orig (cdr fs-msglistsansbot)))      (setq fs-lispargs (mapcar 'fsi-read-or-orig (cdr fs-msglistsansbot)))
2048      (when fs-found-query-p      (when fs-found-query-p
2049        (setq N 0)        (setq N 0)
2050        (setq M 1))        (setq M 1))
# Line 2162  number N, and ending at M-1. The first r Line 2162  number N, and ending at M-1. The first r
2162               ((and expandp (member cc '("lisp")))               ((and expandp (member cc '("lisp")))
2163                (let*                (let*
2164                    ((fs-nothingsorry nil))                    ((fs-nothingsorry nil))
2165                     ;; (fs-args fs-args) ;; no need                     ;; (fs-lispargs fs-lispargs) ;; no need
2166                  (setq fs-a (nth 0 fs-args))                  (setq fs-lispa (nth 0 fs-lispargs))
2167                  (setq fs-b (nth 1 fs-args))                  (setq fs-lispb (nth 1 fs-lispargs))
2168                  (setq fs-c (nth 2 fs-args))                  (setq fs-lispc (nth 2 fs-lispargs))
2169                  (setq fs-d (nth 3 fs-args))                  (setq fs-lispd (nth 3 fs-lispargs))
2170                  (setq fs-e (nth 4 fs-args))                  (setq fs-lispe (nth 4 fs-lispargs))
2171                  (erbeng-main                  (erbeng-main
2172                   (concat erbn-char " (progn "                   (concat erbn-char " (progn "
2173                           (substring aa                           (substring aa
# Line 4394  See: http://www.w3.org/Security/faq/wwws Line 4394  See: http://www.w3.org/Security/faq/wwws
4394  (defconst fs-bunny 142857)  (defconst fs-bunny 142857)
4395  (defconst fs-pi pi)  (defconst fs-pi pi)
4396  (defconst fs-e e)  (defconst fs-e e)
4397    (defconst fs-euler e)
4398  (defconst fs-emacs-version emacs-version)  (defconst fs-emacs-version emacs-version)
4399    
4400  (defalias 'fsi-emacs-version 'emacs-version)  (defalias 'fsi-emacs-version 'emacs-version)

Legend:
Removed from v.1.95  
changed lines
  Added in v.1.96

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