Mercurial > emacs
comparison lisp/webjump.el @ 17973:52395fdffffe
(webjump-adult-p): Function deleted.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 27 May 1997 16:20:16 +0000 |
| parents | f74cdb2aa9cc |
| children | c18511c53797 |
comparison
equal
deleted
inserted
replaced
| 17972:79911e7f54fe | 17973:52395fdffffe |
|---|---|
| 283 (funcall expr name) | 283 (funcall expr name) |
| 284 (error "WebJump URL function \"%s\" undefined." expr))) | 284 (error "WebJump URL function \"%s\" undefined." expr))) |
| 285 (t (error "WebJump URL expression for \"%s\" invalid." | 285 (t (error "WebJump URL expression for \"%s\" invalid." |
| 286 name))))))) | 286 name))))))) |
| 287 | 287 |
| 288 (defun webjump-adult-p () | |
| 289 (and (boundp 'age) (integerp age) (>= age 21))) | |
| 290 | |
| 291 (defun webjump-builtin (expr name) | 288 (defun webjump-builtin (expr name) |
| 292 (if (< (length expr) 1) | 289 (if (< (length expr) 1) |
| 293 (error "WebJump URL builtin for \"%s\" empty." name)) | 290 (error "WebJump URL builtin for \"%s\" empty." name)) |
| 294 (let ((builtin (aref expr 0))) | 291 (let ((builtin (aref expr 0))) |
| 295 (cond | 292 (cond |