mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(ffap-highlight): Use facep rather than internal-find-face.

Browse source
This commit is contained in:
Stefan Monnier 2000-05-23 19:57:48 +00:00
parent 9695b7830b
commit e5eee690ff
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ffap.el
View file

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