Commit 6254fc9f authored by Gerd Moellmann's avatar Gerd Moellmann

(forward-thing): Use functionp instead of fboundp.

Set maintainer to FSF since author isn't reachable.
parent b5d56c1f
;;; 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))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment