mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-05 20:43:08 +00:00
Code Issues Releases Activity

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

Browse Source 
Set maintainer to FSF since author isn't reachable.
This commit is contained in:
Gerd Moellmann 2000-06-08 20:59:25 +00:00
parent b5d56c1f0a
commit 6254fc9fb2
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/thingatpt.el
View File

@ -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))))