summaryrefslogtreecommitdiff
path: root/lisp/ffap.el
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2000-05-23 19:57:48 +0000
committerStefan Monnier <monnier@iro.umontreal.ca>2000-05-23 19:57:48 +0000
commite5eee690ffdc37ee963da26aa5c2d6cf2b0e85e4 (patch)
treedc04a36e9e39b70b859c76717bc12ea6ad2560f6 /lisp/ffap.el
parent9695b7830bb868557c15bca83a8d0966ba0b6751 (diff)
downloademacs-e5eee690ffdc37ee963da26aa5c2d6cf2b0e85e4.tar.gz
(ffap-highlight): Use facep rather than internal-find-face.
Diffstat (limited to 'lisp/ffap.el')
-rw-r--r--lisp/ffap.el5
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/ffap.el b/lisp/ffap.el
index 720142b2181..bc934ed351b 100644
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -1,6 +1,6 @@
;;; ffap.el --- find file (or url) at point
;;
-;; Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc.
+;; Copyright (C) 1995, 96, 97, 2000 Free Software Foundation, Inc.
;;
;; Author: Michelangelo Grigni <mic@mathcs.emory.edu>
;; Created: 29 Mar 1993
@@ -1284,8 +1284,7 @@ Uses the face `ffap' if it is defined, or else `highlight'."
(setq ffap-highlight-overlay
(apply 'make-overlay ffap-string-at-point-region))
(overlay-put ffap-highlight-overlay 'face
- (if (internal-find-face 'ffap)
- 'ffap 'highlight)))))
+ (if (facep 'ffap) 'ffap 'highlight)))))
;;; Main Entrance (`find-file-at-point' == `ffap'):