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 |
63 |
|
|
64 |
|
|
65 |
(defvar erbc-version "NA") |
(defvar erbc-version "NA") |
66 |
(defvar fs-version "20031114") |
(defvar fs-version "dev") |
67 |
|
|
68 |
|
|
69 |
;;========================================== |
;;========================================== |
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 |
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 |
|
|
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) |
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) |