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

Diff of /erbot/erbc.el

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

revision 1.73 by deego, Thu Jan 6 21:56:23 2005 UTC revision 1.74 by deego, Fri Jan 7 01:56:28 2005 UTC
# Line 1  Line 1 
1  ;;; erbc.el --- Erbot user-interface commands.  ;;; erbc.el --- Erbot user-interface commands.
2  ;; Time-stamp: <2005-01-06 16:56:10 deego>  ;; Time-stamp: <2005-01-06 17:19:18 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 63  Line 63 
63    
64    
65  (defvar erbc-version "NA")  (defvar erbc-version "NA")
66  (defvar fs-version "20031114")  (defvar fs-version "dev")
67    
68    
69  ;;==========================================  ;;==========================================
# Line 2717  risky.. ") Line 2717  risky.. ")
2717  ;; (defalias 'fs-cons 'cons)  ;; (defalias 'fs-cons 'cons)
2718    
2719  (defvar fs-internal-limit-line-length 125  (defvar fs-internal-limit-line-length 125
2720    "This should be a multiple of 80 .. -35 .. suggest: 210.")    "Suggested value: (multiple of 80) minus 35 .. suggested: 210.")
2721    
2722  (defvar fs-internal-limit-length  (defvar fs-internal-limit-length
2723    300    300
# Line 3365  number N, and ending at M-1. The first r Line 3365  number N, and ending at M-1. The first r
3365    (fs-google-with-options "site:emacswiki.org" args))    (fs-google-with-options "site:emacswiki.org" args))
3366    
3367  (defun fsi-google-sl4 (&rest args)  (defun fsi-google-sl4 (&rest args)
3368    "Google on the emacswiki site."    "Google on the sl4 site."
3369    (fs-google-with-options "site:sl4.org" args))    (fs-google-with-options "site:sl4.org" args))
3370    
3371  (defun fsi-google-planetmath (&rest args)  (defun fsi-google-planetmath (&rest args)
3372    "Google on the emacswiki site."    "Google on the planetmath site."
3373    (fs-google-with-options "site:planetmath.org" args))    (fs-google-with-options "site:planetmath.org" args))
3374    
3375  (defun fsi-google-octave (&rest args)  (defun fsi-google-octave (&rest args)
3376    "Google on the emacswiki site."    "Google on the octave site."
3377    (fs-google-with-options "site:octave.org" args))    (fs-google-with-options "site:octave.org" args))
3378    
3379    
# Line 3385  number N, and ending at M-1. The first r Line 3385  number N, and ending at M-1. The first r
3385    
3386    
3387  (defun fs-google-gnufans-net (&rest args)  (defun fs-google-gnufans-net (&rest args)
3388    "Google on the emacswiki site."    "Google on gnufans.net."
3389    (fs-google-with-options "site:gnufans.net" args))    (fs-google-with-options "site:gnufans.net" args))
3390    
3391  (defun fs-google-gnufans-org (&rest args)  (defun fs-google-gnufans-org (&rest args)
3392    "Google on the emacswiki site."    "Google on gnufans.org"
3393    (fs-google-with-options "site:gnufans.org" args))    (fs-google-with-options "site:gnufans.org" args))
3394    
3395  (defun fs-google-hurdwiki(&rest args)  (defun fs-google-hurdwiki(&rest args)
# Line 3404  number N, and ending at M-1. The first r Line 3404  number N, and ending at M-1. The first r
3404    
3405    
3406  (defun fs-google-scarymath (&rest args)  (defun fs-google-scarymath (&rest args)
3407    "Google on the twiki site."    "Google on scarymath"
3408    (fs-google-with-options "site:http:scarymath.org" args))    (fs-google-with-options "site:http:scarymath.org" args))
3409    
3410  (defun fs-google-twiki (&rest args)  (defun fs-google-twiki (&rest args)
3411    "Google on the twiki site."    "Google on the twiki site."
3412    (fs-google-with-options "site:http:twiki.org" args))    (fs-google-with-options "site:http:twiki.org" args))
3413    
3414  (defun fs-google-usemod (&rest args)  ;; unprovide nonfree sites..
3415    "Google on the emacswiki site."  ;; (defun fs-google-usemod (&rest args)
3416    (fs-google-with-options "site:usemod.com" args))  ;;   "Google on usemod"
3417    ;;   (fs-google-with-options "site:usemod.com" args))
3418    
3419  (defalias 'fs-google-meatball 'fs-google-usemod)  ;;(defalias 'fs-google-meatball 'fs-google-usemod)
3420    
3421  (defun fsi-replace-regexp (&optional from to term number delimited  (defun fsi-replace-regexp (&optional from to term number delimited
3422                                      fixedcase literal subexp)                                      fixedcase literal subexp)

Legend:
Removed from v.1.73  
changed lines
  Added in v.1.74

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