# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 960497965 0
# Node ID 4e7f28c8e364fbdc9d2066ff82f17e9188f08084
# Parent  e89a3b5d7c138a29ba515e986e9cfaa83a038a63
(forward-thing): Use functionp instead of fboundp.
Set maintainer to FSF since author isn't reachable.

diff -r e89a3b5d7c13 -r 4e7f28c8e364 lisp/thingatpt.el
--- a/lisp/thingatpt.el	Thu Jun 08 20:58:15 2000 +0000
+++ b/lisp/thingatpt.el	Thu Jun 08 20:59:25 2000 +0000
@@ -1,8 +1,10 @@
 ;;; thingatpt.el --- Get the `thing' at point
 
-;; Copyright (C) 1991,92,93,94,95,96,97,1998 Free Software Foundation, Inc.
+;; Copyright (C) 1991,92,93,94,95,96,97,1998,2000
+;;  Free Software Foundation, Inc.
 
 ;; Author: Mike Williams <mikew@gopher.dosli.govt.nz>
+;; Maintainer: FSF
 ;; Keywords: extensions, matching, mouse
 ;; Created: Thu Mar 28 13:48:23 1991
 
@@ -54,7 +56,7 @@
   "Move forward to the end of the next THING."
   (let ((forward-op (or (get thing 'forward-op)
 			(intern-soft (format "forward-%s" thing)))))
-    (if (fboundp forward-op)
+    (if (functionp forward-op)
 	(funcall forward-op (or n 1))
       (error "Can't determine how to move over a %s" thing))))