1 |
;;; erbc3.el ---erbot lisp stuff which should be PERSISTENT ACROSS SESSIONS. |
;;; erbc3.el ---erbot lisp stuff which should be PERSISTENT ACROSS SESSIONS. |
2 |
;; Time-stamp: <2005-03-28 10:05:16 deego> |
;; Time-stamp: <2005-04-28 12:00:09 deego> |
3 |
;; Copyright (C) 2003 D. Goel |
;; Copyright (C) 2003 D. Goel |
4 |
;; Emacs Lisp Archive entry |
;; Emacs Lisp Archive entry |
5 |
;; Filename: erbc3.el |
;; Filename: erbc3.el |
180 |
(fsi-pv-load)) |
(fsi-pv-load)) |
181 |
|
|
182 |
(defun fsi-pf-load () |
(defun fsi-pf-load () |
183 |
(when (file-exists-p erbn-pf-file) |
(if (file-exists-p erbn-pf-file) |
184 |
(ignore-errors (load erbn-pf-file)))) |
(fsi-ignore-errors-else-string (load erbn-pf-file)) |
185 |
|
(message "File does not exist: %s" erbn-pf-file))) |
186 |
|
|
187 |
|
|
188 |
|
|
189 |
(defun fsi-pv-load () |
(defun fsi-pv-load () |
190 |
(when (file-exists-p erbn-pv-file) |
(when (file-exists-p erbn-pv-file) |
279 |
(and (listp body) |
(and (listp body) |
280 |
(> (length body) 0)) |
(> (length body) 0)) |
281 |
(error "Function body should have a length of 1 or more")) |
(error "Function body should have a length of 1 or more")) |
282 |
(unless (symbolp fcn) |
(unless (and (symbolp fcn) (not (fsi-constant-object-p fcn))) |
283 |
(error "Defun symbols only! :P")) |
(error "Defun symbols only! :P")) |
284 |
;; doc string exists, and is followed by more stuff.. |
;; doc string exists, and is followed by more stuff.. |
285 |
(when (and (> (length body) 1) |
(when (and (> (length body) 1) |
376 |
|
|
377 |
|
|
378 |
|
|
379 |
|
(defun fsi-constant-object-p (object) |
380 |
|
"If the object is a symbol like nil or t, a symbol that cannot be |
381 |
|
redefunned, return true. " |
382 |
|
(member object (list nil t))) |
383 |
|
|
384 |
|
|
385 |
|
(erbutils-defalias-i '(type-of)) |
386 |
|
|
387 |
(provide 'erbc3) |
(provide 'erbc3) |
388 |
(run-hooks 'erbc3-after-load-hook) |
(run-hooks 'erbc3-after-load-hook) |
389 |
|
|