1 |
;;; erbc.el --- Erbot user-interface commands. |
;;; erbc.el --- Erbot user-interface commands. |
2 |
;; Time-stamp: <2005-04-01 13:14:13 deego> |
;; Time-stamp: <2005-04-06 12:48:22 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 |
4157 |
(if addp (setq ct (concat "." ct)))) |
(if addp (setq ct (concat "." ct)))) |
4158 |
(erbcountry (downcase ct))) |
(erbcountry (downcase ct))) |
4159 |
|
|
4160 |
|
|
4161 |
|
|
4162 |
|
(defun fsi-country-search (&rest names) |
4163 |
|
(unless names (error |
4164 |
|
(format "Syntax: %s country-search NM (example , country japa)" erbn-char))) |
4165 |
|
(erbcountry-search |
4166 |
|
(mapconcat (lambda (arg) (format "%s" arg)) names " "))) |
4167 |
|
|
4168 |
|
|
4169 |
;;; 2003-02-09 T13:40:04-0500 (Sunday) D. Goel |
;;; 2003-02-09 T13:40:04-0500 (Sunday) D. Goel |
4170 |
(defun fsi-spook (&rest args) |
(defun fsi-spook (&rest args) |
4171 |
(with-temp-buffer |
(with-temp-buffer |