aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorRichard M. Stallman1997-05-27 16:20:16 +0000
committerRichard M. Stallman1997-05-27 16:20:16 +0000
commitb10e147ce505192ebfbb339ccee8537e32c802c8 (patch)
tree2f4afdc97424441c4b880b23ce8da0da51ce6e3e /lisp
parent40f30b63178469190bea8b52649477563ca7b072 (diff)
downloademacs-b10e147ce505192ebfbb339ccee8537e32c802c8.tar.gz
emacs-b10e147ce505192ebfbb339ccee8537e32c802c8.zip
(webjump-adult-p): Function deleted.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/webjump.el3
1 files changed, 0 insertions, 3 deletions
diff --git a/lisp/webjump.el b/lisp/webjump.el
index 4c8a8d57f2e..a2548da47e6 100644
--- a/lisp/webjump.el
+++ b/lisp/webjump.el
@@ -285,9 +285,6 @@ gotten from `http://www.cs.brown.edu/people/nwv/'."
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))