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

Diff of /erbot/erbc3.el

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

revision 1.24 by deego, Mon Mar 28 15:05:38 2005 UTC revision 1.25 by deego, Thu Apr 28 16:27:27 2005 UTC
# Line 1  Line 1 
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
# Line 180  to query using PROMPT, or just return t. Line 180  to query using PROMPT, or just return t.
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)
# Line 276  to query using PROMPT, or just return t. Line 279  to query using PROMPT, or just return t.
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)
# Line 373  to query using PROMPT, or just return t. Line 376  to query using PROMPT, or just return t.
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    

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

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