mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

(ffap) <defface>: Add explicit face declaration.

Browse Source 
(ffap-highlight): Use face `ffap' directly instead of checking
for its existence.
This commit is contained in:
Juri Linkov 2006-02-17 21:54:17 +00:00
parent bec275ed0a
commit dfe7296633
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/ffap.el
View File

@ -1321,6 +1321,12 @@ which may actually result in an url rather than a filename."
(defvar ffap-highlight t
"If non-nil, ffap highlights the current buffer substring.")
(defface ffap
'((t :inherit highlight))
"Face used to highlight the current buffer substring."
:group 'ffap
:version "22.1")
(defvar ffap-highlight-overlay nil
"Overlay used by `ffap-highlight'.")
@ -1344,8 +1350,7 @@ Uses the face `ffap' if it is defined, or else `highlight'."
(t
(setq ffap-highlight-overlay
(apply 'make-overlay ffap-string-at-point-region))
(overlay-put ffap-highlight-overlay 'face
(if (facep 'ffap) 'ffap 'highlight)))))
(overlay-put ffap-highlight-overlay 'face 'ffap))))
;;; Main Entrance (`find-file-at-point' == `ffap'):