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

(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 ;;; 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> ;; Author: Mike Williams <mikew@gopher.dosli.govt.nz>
;; Maintainer: FSF
;; Keywords: extensions, matching, mouse ;; Keywords: extensions, matching, mouse
;; Created: Thu Mar 28 13:48:23 1991 ;; Created: Thu Mar 28 13:48:23 1991
...@@ -54,7 +56,7 @@ ...@@ -54,7 +56,7 @@
"Move forward to the end of the next THING." "Move forward to the end of the next THING."
(let ((forward-op (or (get thing 'forward-op) (let ((forward-op (or (get thing 'forward-op)
(intern-soft (format "forward-%s" thing))))) (intern-soft (format "forward-%s" thing)))))
(if (fboundp forward-op) (if (functionp forward-op)
(funcall forward-op (or n 1)) (funcall forward-op (or n 1))
(error "Can't determine how to move over a %s" thing)))) (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