diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-06-08 20:59:25 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-06-08 20:59:25 +0000 |
| commit | 6254fc9fb22016f51219400c124a508e9ab13dec (patch) | |
| tree | ddf61587342a8aa804d06b2dc1d12d0b9bbda488 /lisp/thingatpt.el | |
| parent | b5d56c1f0a369678331d52561dc2b893b6eaa213 (diff) | |
| download | emacs-6254fc9fb22016f51219400c124a508e9ab13dec.tar.gz | |
(forward-thing): Use functionp instead of fboundp.
Set maintainer to FSF since author isn't reachable.
Diffstat (limited to 'lisp/thingatpt.el')
| -rw-r--r-- | lisp/thingatpt.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el index 214f6dcfde1..99463d371d7 100644 --- a/lisp/thingatpt.el +++ b/lisp/thingatpt.el @@ -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)))) |