From e5eee690ffdc37ee963da26aa5c2d6cf2b0e85e4 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 23 May 2000 19:57:48 +0000 Subject: [PATCH] (ffap-highlight): Use facep rather than internal-find-face. --- lisp/ffap.el | 5 ++--- 1 file 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 ;; 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'): -- 2.39.5