Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
e5eee690
Commit
e5eee690
authored
May 23, 2000
by
Stefan Monnier
Browse files
(ffap-highlight): Use facep rather than internal-find-face.
parent
9695b783
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
3 deletions
+2
-3
lisp/ffap.el
lisp/ffap.el
+2
-3
No files found.
lisp/ffap.el
View file @
e5eee690
;;; ffap.el --- find file (or url) at point
;;
;; Copyright (C) 1995,
19
96,
19
97 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'):
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment