aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ffap.el9
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/ffap.el b/lisp/ffap.el
index 1b6665d16d5..8e30b44739f 100644
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -1321,6 +1321,12 @@ which may actually result in an url rather than a filename."
1321(defvar ffap-highlight t 1321(defvar ffap-highlight t
1322 "If non-nil, ffap highlights the current buffer substring.") 1322 "If non-nil, ffap highlights the current buffer substring.")
1323 1323
1324(defface ffap
1325 '((t :inherit highlight))
1326 "Face used to highlight the current buffer substring."
1327 :group 'ffap
1328 :version "22.1")
1329
1324(defvar ffap-highlight-overlay nil 1330(defvar ffap-highlight-overlay nil
1325 "Overlay used by `ffap-highlight'.") 1331 "Overlay used by `ffap-highlight'.")
1326 1332
@@ -1344,8 +1350,7 @@ Uses the face `ffap' if it is defined, or else `highlight'."
1344 (t 1350 (t
1345 (setq ffap-highlight-overlay 1351 (setq ffap-highlight-overlay
1346 (apply 'make-overlay ffap-string-at-point-region)) 1352 (apply 'make-overlay ffap-string-at-point-region))
1347 (overlay-put ffap-highlight-overlay 'face 1353 (overlay-put ffap-highlight-overlay 'face 'ffap))))
1348 (if (facep 'ffap) 'ffap 'highlight)))))
1349 1354
1350 1355
1351;;; Main Entrance (`find-file-at-point' == `ffap'): 1356;;; Main Entrance (`find-file-at-point' == `ffap'):